Skip to content
Snippets Groups Projects
Commit 0fe03287 authored by gerd's avatar gerd
Browse files

Argh. Remove the debug output.

parent 76272c4e
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(file-comment (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. ;;; This file contains optimized low-level constructs for PCL.
...@@ -235,15 +235,12 @@ the compiler as completely as possible. Currently this means that ...@@ -235,15 +235,12 @@ the compiler as completely as possible. Currently this means that
(and (kernel::standard-class-p ctype) (and (kernel::standard-class-p ctype)
(pcl::info-funcallable-standard-class-p (pcl::info-funcallable-standard-class-p
(kernel:%class-name ctype)))) (kernel:%class-name ctype))))
(print "funcallable")
'(kernel:%funcallable-instance-info object 0)) '(kernel:%funcallable-instance-info object 0))
((or (csubtypep ctype standard-object) ((or (csubtypep ctype standard-object)
(and (kernel::standard-class-p ctype) (and (kernel::standard-class-p ctype)
(pcl::info-standard-class-p (kernel:%class-name ctype)))) (pcl::info-standard-class-p (kernel:%class-name ctype))))
(print "instance")
'(kernel:%instance-ref object 1)) '(kernel:%instance-ref object 1))
(t (t
(print "give-up")
`(when (pcl::pcl-instance-p object) `(when (pcl::pcl-instance-p object)
(if (pcl::std-instance-p object) (if (pcl::std-instance-p object)
(pcl::std-instance-slots object) (pcl::std-instance-slots object)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment