0.9.2.26: refactoring internals of foreign linkage

[sbcl.git] / src / code / pprint.lisp

diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp
index bc26510..af4eaa2 100644 (file)
--- a/src/code/pprint.lisp
+++ b/src/code/pprint.lisp
@@ -1099,7 +1099,9 @@
 
 (defun pprint-flet (stream list &rest noise)
   (declare (ignore noise))
-  (if (cddr list)
+  (if (and (consp list)
+          (consp (cdr list))
+           (cddr list))
       (funcall (formatter
                 "~:<~^~W~^ ~@_~:<~@{~:<~^~W~^~3I ~:_~/SB!PRETTY:PPRINT-LAMBDA-LIST/~1I~:@_~@{~W~^ ~_~}~:>~^ ~_~}~:>~1I~@:_~@{~W~^ ~_~}~:>")
                stream