From 2e942326f2fe5906ad97a46da425d93bb4fda2fe Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 4 Mar 2008 15:57:18 +0100
Subject: Add a debugging aid to ADD-METHOD (OBJECTIVE-C-GENERIC-FUNCTION
 OBJECTIVE-C-METHOD).

darcs-hash:002220739b73a2ef8394655e7757cab7ba10eb5e
---
 Lisp/method-definition.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Lisp')

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.
-- 
cgit v1.2.3