From 8d30081b0a5561a95932efb9bb4a6cb44135d67c Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 24 Aug 1993 23:26:54 +0000 Subject: [PATCH] Add printer for CLASS-CELL to make compiler progress prettier. --- code/class.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/code/class.lisp b/code/class.lisp index 98399ee47..573069d99 100644 --- a/code/class.lisp +++ b/code/class.lisp @@ -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))))) -- GitLab