Skip to content
Snippets Groups Projects
Commit 8d30081b authored by ram's avatar ram
Browse files

Add printer for CLASS-CELL to make compiler progress prettier.

parent 552461fd
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.30 1993/08/22 22:20:07 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.31 1993/08/24 23:26:54 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -285,6 +285,11 @@
;;;
(defstruct (class-cell
(:constructor make-class-cell (name &optional class))
(:print-function
(lambda (s stream d)
(declare (ignore d))
(print-unreadable-object (s stream :type t)
(prin1 (class-cell-name s) stream))))
(:make-load-form-fun
(lambda (cell)
`(find-class-cell ',(class-cell-name cell)))))
......
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