/[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.78 by toy, Fri Jan 3 18:02:58 2003 UTC revision 1.79 by toy, Thu Jan 23 21:05:33 2003 UTC
# Line 1644  Line 1644 
1644                (unless (accessor-inherited-data aname info)                (unless (accessor-inherited-data aname info)
1645                  (undefine-function-name aname)                  (undefine-function-name aname)
1646                  (unless (dsd-read-only slot)                  (unless (dsd-read-only slot)
1647                    (undefine-function-name `(setf ,aname))))))))                    (undefine-function-name `(setf ,aname))))
1648    
1649                ))))                ))))
1650        ;;        ;;

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79

  ViewVC Help
Powered by ViewVC 1.1.5