Changeset 857

Timestamp:

Aug 6, 2004, 12:40:39 AM (20 years ago)

Author:

Gary Byers

Message:

distinguish finding NIL from not finding symbol in MAYBE-PRINT-FAST

File:

• trunk/ccl/lib/pprint.lisp (modified) (1 diff)

trunk/ccl/lib/pprint.lisp

@@ -1818 +1818 @@
            (cond ((and (or is-key (eq p *package*)
                            (and ;*package* ;can be NIL on symbolics
-                                (eq object (find-symbol s))))
+                            (multiple-value-bind (symbol type) (find-symbol s)
+                              (and type (eq object symbol)))))
                        (eq (readtable-case *readtable*) :upcase)
                        (neq *print-case* :studly)