From 2cd2aa1991fe547633c7977b64e358cf32b1953b Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Mon, 22 Jul 2002 17:05:00 +0000
Subject: [PATCH] (pprint-logical-block (nil nil :prefix 42)) causes a bus
 error because the prefix is not a string (or nil).  Check for this.  (Don't
 need the declaration for suffix because that gets tested somewhere else.)

---
 code/pprint.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/pprint.lisp b/code/pprint.lisp
index dee8f67ef..2829f53f6 100644
--- a/code/pprint.lisp
+++ b/code/pprint.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.30 2001/06/11 14:22:09 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.31 2002/07/22 17:05:00 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -340,6 +340,7 @@
   (suffix nil :type (or null simple-string)))
 
 (defun start-logical-block (stream prefix per-line-p suffix)
+  (declare (type (or null string) prefix))
   (when prefix
     (pretty-sout stream prefix 0 (length prefix)))
   (let* ((pending-blocks (pretty-stream-pending-blocks stream))
-- 
GitLab