diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 15:57:18 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 15:57:18 +0100 |
| commit | 2e942326f2fe5906ad97a46da425d93bb4fda2fe (patch) | |
| tree | ed95b651e58db41a81569f9926823a82c3c0752d | |
| parent | 820d94c5ebf10dfee495898862a18cf451032e85 (diff) | |
Add a debugging aid to ADD-METHOD (OBJECTIVE-C-GENERIC-FUNCTION OBJECTIVE-C-METHOD).
darcs-hash:002220739b73a2ef8394655e7757cab7ba10eb5e
| -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. |