/[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.46 by ram, Sun Mar 14 16:54:03 1993 UTC revision 1.47 by wlott, Mon Mar 15 00:11:58 1993 UTC
# Line 268  Line 268 
268    (let ((name (dd-name defstruct)))    (let ((name (dd-name defstruct)))
269      `(,@(let ((pf (dd-print-function defstruct)))      `(,@(let ((pf (dd-print-function defstruct)))
270            (when pf            (when pf
271              `((setf (structure-class-print-function (find-class ',name))              `((setf (basic-structure-class-print-function (find-class ',name))
272                      ,(if (symbolp pf)                      ,(if (symbolp pf)
273                           `',pf                           `',pf
274                           `#',pf)))))                           `#',pf)))))

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

  ViewVC Help
Powered by ViewVC 1.1.5