Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
55bee36e
Commit
55bee36e
authored
Jul 27, 1993
by
wlott
Browse files
fixed pprint-do to not flame out if one of the binding lists is NIL.
parent
b591ef24
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/pprint.lisp
View file @
55bee36e
...
...
@@ -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.1
5
1993/0
2/11 14:05:00 ram
Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.1
6
1993/0
7/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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment