Skip to content
Snippets Groups Projects
Commit 2cd2aa19 authored by toy's avatar toy
Browse files

(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.)
parent 36bd30e0
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
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