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