/[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.95 by rtoy, Tue Oct 5 21:57:27 2004 UTC revision 1.95.2.1 by rtoy, Mon Dec 19 01:09:49 2005 UTC
# Line 465  Line 465 
465          (unlock-all ()          (unlock-all ()
466            :report "Unlock all packages, then continue"            :report "Unlock all packages, then continue"
467            (lisp::unlock-all-packages))))            (lisp::unlock-all-packages))))
468        (when (info declaration recognized name)
469          (error "Defstruct already names a declaration: ~S." name))
470      (when (stringp (car slot-descriptions))      (when (stringp (car slot-descriptions))
471        (setf (dd-doc defstruct) (pop slot-descriptions)))        (setf (dd-doc defstruct) (pop slot-descriptions)))
472      (dolist (slot slot-descriptions)      (dolist (slot slot-descriptions)

Legend:
Removed from v.1.95  
changed lines
  Added in v.1.95.2.1

  ViewVC Help
Powered by ViewVC 1.1.5