From a36eedff4d1f69fd69fc17a90129f2877f8ecce1 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 10 Dec 1991 16:59:51 +0000 Subject: [PATCH] In DEFPRINTER, ignore the depth since it is no longer used. --- compiler/macros.lisp | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/compiler/macros.lisp b/compiler/macros.lisp index 92c73025e..79d27e360 100644 --- a/compiler/macros.lisp +++ b/compiler/macros.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/macros.lisp,v 1.27 1991/12/05 06:04:14 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/macros.lisp,v 1.28 1991/12/10 16:59:51 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -852,24 +852,24 @@ (first option))))))))) `(defun ,(symbolicate "%PRINT-" name) (structure stream depth) + (declare (ignore depth)) (flet ((do-prints () ,@(prints))) (cond (*print-pretty* - (pprint-logical-block - (stream nil :prefix "#<" :suffix ">") - (prin1 ',name stream) - (write-char #\space stream) - (pprint-indent :current 0 stream) - (let ((*print-base* 16) - (*print-radix* t)) - (prin1 (get-lisp-obj-address structure) stream)) - (do-prints))) + (pprint-logical-block (stream nil :prefix "#<" :suffix ">") + (prin1 ',name stream) + (write-char #\space stream) + (pprint-indent :current 0 stream) + (let ((*print-base* 16) + (*print-radix* t)) + (prin1 (get-lisp-obj-address structure) stream)) + (do-prints))) (t - (format stream "#<~S ~X" - ',name - (get-lisp-obj-address structure)) - (do-prints) - (format stream ">")))) + (format stream "#<~S ~X" + ',name + (get-lisp-obj-address structure)) + (do-prints) + (format stream ">")))) nil)))) -- GitLab