Skip to content
Snippets Groups Projects
Commit 1c76741c authored by ram's avatar ram
Browse files

Changed random object printing to call PCL::PRINT-OBJECT on funcallable

instances.
parent b66c6998
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.16 1990/11/21 10:10:19 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.17 1990/11/27 15:51:00 ram Exp $
;;;
;;; CMU Common Lisp printer.
;;;
......@@ -1348,6 +1348,8 @@
(write-string "Closure Over " stream)
(output-function-object (%primitive c::closure-function object)
stream))))
(#.vm:funcallable-instance-header-type
(pcl::print-object object stream))
(#.vm:value-cell-header-type
(write-string "Value Cell" stream))
(#.vm:unbound-marker-type
......
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