Ignore:
Timestamp:
Nov 25, 2007, 12:54:54 PM (12 years ago)
Author:
gb
Message:

PRINT-OBJECT method for CLASS-CELL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-io.lisp

    r7593 r7749  
    16571657    (format stream "for ")
    16581658    (%lfun-name-string (%function-vector-to-function fv) stream)))
     1659
     1660(defmethod print-object ((c class-cell) stream)
     1661  (print-unreadable-object (c stream :type t :identity t)
     1662    (format stream "for ~s" (class-cell-name c))))
    16591663 
    16601664           
Note: See TracChangeset for help on using the changeset viewer.