summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Lisp/method-definition.lisp4
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.