/[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.98.12.4 by rtoy, Sat Feb 13 17:10:08 2010 UTC revision 1.98.12.5 by rtoy, Sun Feb 14 03:06:41 2010 UTC
# Line 1639  Line 1639 
1639                  definition."                  definition."
1640                 name)                 name)
1641        (continue ()        (continue ()
1642          :report "Invalidate already loaded code and instances, use new definition."          :report (lambda (stream)
1643                      (write-string _"Invalidate already loaded code and instances, use new definition."
1644                                    stream))
1645          (warn _"Previously loaded ~S accessors will no longer work." name)          (warn _"Previously loaded ~S accessors will no longer work." name)
1646          (register-layout new-layout))          (register-layout new-layout))
1647        (clobber-it ()        (clobber-it ()
1648          :report "Assume redefinition is compatible, allow old code and instances."          :report (lambda (stream)
1649                      (write-string "Assume redefinition is compatible, allow old code and instances."
1650                                    stream))
1651          (warn _"Any old ~S instances will be in a bad way.~@          (warn _"Any old ~S instances will be in a bad way.~@
1652                 I hope you know what you're doing..."                 I hope you know what you're doing..."
1653                name)                name)

Legend:
Removed from v.1.98.12.4  
changed lines
  Added in v.1.98.12.5

  ViewVC Help
Powered by ViewVC 1.1.5