Changeset 11464 for trunk/source/level-1


Ignore:
Timestamp:
Dec 4, 2008, 12:28:14 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-io.lisp

    r11064 r11464  
    791791               (class-name (class-name class)))
    792792          (cond ((not (and (symbolp class-name)
    793                            (eq class (find-class class-name))))
     793                           (eq class (find-class class-name nil))))
    794794                 (%write-string "An instance of" stream)
    795795                 (pp-space stream)
Note: See TracChangeset for help on using the changeset viewer.