From a4b1a6c5c634fc7f4c5598d49f762851848476f2 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 19 Jul 1990 14:17:19 +0000 Subject: [PATCH] Fixed defprinter stuff to not lose when the charpos can't be determined. --- compiler/macros.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/macros.lisp b/compiler/macros.lisp index 47ea0157b..5644b3102 100644 --- a/compiler/macros.lisp +++ b/compiler/macros.lisp @@ -829,14 +829,14 @@ ;;; Start and finish the the printing of a defprinter function. ;;; (defun start-defprinter (name stream indent object) - (declare (symbol name) (stream stream) (type index indent)) + (declare (symbol name) (stream stream) (type (or index null) indent)) (declare (ignore indent)) (format stream "#<~S ~X" name (system:%primitive make-fixnum object))) ;;; (defun finish-defprinter (name stream indent) - (declare (symbol name) (stream stream) (type index indent)) + (declare (symbol name) (stream stream) (type (or index null) indent)) (declare (ignore name)) - (if *defprint-pretty* + (if (and *defprint-pretty* indent) (format stream ">~%~VT" indent) (format stream ">"))) -- GitLab