/[cmucl]/src/code/defstruct.lisp
ViewVC logotype

Diff of /src/code/defstruct.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45 by ram, Sun Mar 14 14:35:58 1993 UTC revision 1.46 by ram, Sun Mar 14 16:54:03 1993 UTC
# Line 1445  Line 1445 
1445  (defun default-structure-print (structure stream depth)  (defun default-structure-print (structure stream depth)
1446    (declare (ignore depth))    (declare (ignore depth))
1447    (if (funcallable-instance-p structure)    (if (funcallable-instance-p structure)
1448        (print-unreadable-object (stream structure :identity t :type t)        (print-unreadable-object (structure stream :identity t :type t)
1449          (write-string "Funcallable Structure" stream))          (write-string "Funcallable Structure" stream))
1450        (let* ((type (%instance-layout structure))        (let* ((type (%instance-layout structure))
1451               (name (class-name (layout-class type)))               (name (class-name (layout-class type)))

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

  ViewVC Help
Powered by ViewVC 1.1.5