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