Changeset 7749 for branches

Timestamp:

Nov 25, 2007, 4:54:54 AM (17 years ago)

Author:

Gary Byers

Message:

PRINT-OBJECT method for CLASS-CELL.

File:

• branches/working-0711/ccl/level-1/l1-io.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-io.lisp

@@ -1657 +1657 @@
     (format stream "for ")
     (%lfun-name-string (%function-vector-to-function fv) stream)))
+
+(defmethod print-object ((c class-cell) stream)
+  (print-unreadable-object (c stream :type t :identity t)
+    (format stream "for ~s" (class-cell-name c))))