/[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.102 by rtoy, Fri Apr 23 13:23:29 2010 UTC revision 1.103 by rtoy, Sun Dec 26 14:54:33 2010 UTC
# Line 1120  Line 1120 
1120            (res (create-keyword-constructor defstruct creator))            (res (create-keyword-constructor defstruct creator))
1121            (dolist (other-name (rest defaults))            (dolist (other-name (rest defaults))
1122              (res `(setf (fdefinition ',other-name) (fdefinition ',cname)))              (res `(setf (fdefinition ',other-name) (fdefinition ',cname)))
1123              (res `(declaim (ftype function ',other-name))))))              (res `(declaim (ftype function ,other-name))))))
1124    
1125        (dolist (boa boas)        (dolist (boa boas)
1126          (res (create-boa-constructor defstruct boa creator)))          (res (create-boa-constructor defstruct boa creator)))

Legend:
Removed from v.1.102  
changed lines
  Added in v.1.103

  ViewVC Help
Powered by ViewVC 1.1.5