From 1a96ffd930607f0f78a1e921151f6a29cf9cc3a5 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 8 Dec 1992 20:01:11 +0000 Subject: [PATCH] Fixed a bug in pprint-let that caused to to barf on (let (nil) ...). --- code/pprint.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/pprint.lisp b/code/pprint.lisp index 4e94d1c7d..798cd7313 100644 --- a/code/pprint.lisp +++ b/code/pprint.lisp @@ -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.12 1992/11/11 07:40:44 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.13 1992/12/08 20:01:11 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1208,7 +1208,7 @@ (defun pprint-let (stream list &rest noise) (declare (ignore noise)) - (funcall (formatter "~:<~^~W~^ ~@_~:<~@{~:<~W~@{ ~_~W~}~:>~^ ~_~}~:>~1I~:@_~@{~W~^ ~_~}~:>") + (funcall (formatter "~:<~^~W~^ ~@_~:<~@{~:<~^~W~@{ ~_~W~}~:>~^ ~_~}~:>~1I~:@_~@{~W~^ ~_~}~:>") stream list)) -- GitLab