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

In DEFPRINTER, ignore the depth since it is no longer used.

parent 3cf229b3
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -852,24 +852,24 @@
(first option))))))))) (first option)))))))))
`(defun ,(symbolicate "%PRINT-" name) (structure stream depth) `(defun ,(symbolicate "%PRINT-" name) (structure stream depth)
(declare (ignore depth))
(flet ((do-prints () (flet ((do-prints ()
,@(prints))) ,@(prints)))
(cond (*print-pretty* (cond (*print-pretty*
(pprint-logical-block (pprint-logical-block (stream nil :prefix "#<" :suffix ">")
(stream nil :prefix "#<" :suffix ">") (prin1 ',name stream)
(prin1 ',name stream) (write-char #\space stream)
(write-char #\space stream) (pprint-indent :current 0 stream)
(pprint-indent :current 0 stream) (let ((*print-base* 16)
(let ((*print-base* 16) (*print-radix* t))
(*print-radix* t)) (prin1 (get-lisp-obj-address structure) stream))
(prin1 (get-lisp-obj-address structure) stream)) (do-prints)))
(do-prints)))
(t (t
(format stream "#<~S ~X" (format stream "#<~S ~X"
',name ',name
(get-lisp-obj-address structure)) (get-lisp-obj-address structure))
(do-prints) (do-prints)
(format stream ">")))) (format stream ">"))))
nil)))) nil))))
......
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