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