summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 15:57:18 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 15:57:18 +0100
commit2e942326f2fe5906ad97a46da425d93bb4fda2fe (patch)
treeed95b651e58db41a81569f9926823a82c3c0752d /Lisp
parent820d94c5ebf10dfee495898862a18cf451032e85 (diff)
Add a debugging aid to ADD-METHOD (OBJECTIVE-C-GENERIC-FUNCTION OBJECTIVE-C-METHOD).
darcs-hash:002220739b73a2ef8394655e7757cab7ba10eb5e
Diffstat (limited to 'Lisp')
-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.