From 0fe03287df8471be9310e8e313f34a03b9a8a06c Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Wed, 7 May 2003 17:15:48 +0000
Subject: [PATCH] Argh.  Remove the debug output.

---
 pcl/low.lisp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/pcl/low.lisp b/pcl/low.lisp
index 62aa373fb..2725ba853 100644
--- a/pcl/low.lisp
+++ b/pcl/low.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.25 2003/05/07 17:14:24 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.26 2003/05/07 17:15:48 gerd Exp $")
 
 ;;; 
 ;;; This file contains optimized low-level constructs for PCL.
@@ -235,15 +235,12 @@ the compiler as completely as possible.  Currently this means that
 	       (and (kernel::standard-class-p ctype)
 		    (pcl::info-funcallable-standard-class-p
 		     (kernel:%class-name ctype))))
-	   (print "funcallable")
 	   '(kernel:%funcallable-instance-info object 0))
 	  ((or (csubtypep ctype standard-object)
 	       (and (kernel::standard-class-p ctype)
 		    (pcl::info-standard-class-p (kernel:%class-name ctype))))
-	   (print "instance")
 	   '(kernel:%instance-ref object 1))
 	  (t
-	   (print "give-up")
 	   `(when (pcl::pcl-instance-p object)
 	      (if (pcl::std-instance-p object)
 		  (pcl::std-instance-slots object)
-- 
GitLab