X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=618db154ef352c7663adf64b302542657ac833c6;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=1511705c8148399865df9c2634fd813afd0e8801;hpb=8a8a8922802460741d6f8f6c11d71b1f414cf3a7;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 1511705..618db15 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -822,7 +822,8 @@
 (def!method print-object :around ((o reference-condition) s)
   (call-next-method)
   (unless (or *print-escape* *print-readably*)
-    (when *print-condition-references*
+    (when (and *print-condition-references*
+               (reference-condition-references o))
       (format s "~&See also:~%")
       (pprint-logical-block (s nil :per-line-prefix "  ")
 	(do* ((rs (reference-condition-references o) (cdr rs))