diff options
| -rw-r--r-- | Lisp/method-definition.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 0179ae8..1503935 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -121,6 +121,10 @@ `(defcallback ,callback-name ,(typespec->c-type return-type) ,cffi-lambda-list + #+(or) (progn ;for debugging + (print '(,(generic-function-name gf) + ,@arguments)) + (format t "~&~A" (list ,@arg-symbols))) (,(generic-function-name gf) ;; Leave the second argument (the ;; selector) out. |