Changeset 11464 for trunk/source/level-1

Timestamp:

Dec 4, 2008, 12:28:14 PM (12 years ago)

Author:

gb

Message:

In the PRINT-OBJECT method for STANDARD-OBJECTs, don't error when calling
FIND-CLASS to see if the object's class is properly named.

File:

• trunk/source/level-1/l1-io.lisp (modified) (1 diff)

trunk/source/level-1/l1-io.lisp

@@ -791 +791 @@
                (class-name (class-name class)))
           (cond ((not (and (symbolp class-name)
-                           (eq class (find-class class-name))))
+                           (eq class (find-class class-name nil))))
                  (%write-string "An instance of" stream)
                  (pp-space stream)