From 869adead6800b00d8dc17a9dfa2bdaf83a175c67 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 7 Mar 2008 00:20:44 +0100
Subject: Remove an obsolete debugging aid.

darcs-hash:521ffa1607066cc2f7fb52c116e3d0b85db4d31a
---
 Lisp/method-definition.lisp | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp
index f057244..0d94401 100644
--- a/Lisp/method-definition.lisp
+++ b/Lisp/method-definition.lisp
@@ -419,10 +419,6 @@ __define-objective-c-generic-function__.
                                ,(typespec->c-type return-type)
                                ,cffi-lambda-list
                              (declare (ignorable ,(cadr arg-symbols)))
-                             #+(or) (progn ;for debugging
-                                      (print '(,(generic-function-name gf)
-                                               ,@arguments))
-                                      (format t "~&~A" (list ,@arg-symbols)))
                              (unwind-protect
                                  (,(if (member (typespec-primary-type return-type)
                                                '(:id :class :selector))
-- 
cgit v1.2.3