Skip to content
Snippets Groups Projects
Commit 55bee36e authored by wlott's avatar wlott
Browse files

fixed pprint-do to not flame out if one of the binding lists is NIL.

parent b591ef24
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.15 1993/02/11 14:05:00 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.16 1993/07/27 15:59:54 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1311,7 +1311,7 @@
(pprint-exit-if-list-exhausted)
(write-char #\space stream)
(pprint-indent :current 0 stream)
(funcall (formatter "~:<~@{~:<~W~^ ~@_~:I~W~@{ ~_~W~}~:>~^~:@_~}~:>")
(funcall (formatter "~:<~@{~:<~^~W~^ ~@_~:I~W~@{ ~_~W~}~:>~^~:@_~}~:>")
stream
(pprint-pop))
(pprint-exit-if-list-exhausted)
......
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