/[cmucl]/src/code/macros.lisp
ViewVC logotype

Diff of /src/code/macros.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.113.10.4 by rtoy, Wed Feb 10 03:57:23 2010 UTC revision 1.113.10.5 by rtoy, Wed Feb 10 14:07:36 2010 UTC
# Line 90  Line 90 
90                         :format-control _"defining macro ~A"                         :format-control _"defining macro ~A"
91                         :format-arguments (list name))                         :format-arguments (list name))
92                (continue ()                (continue ()
93                  :report "Ignore the lock and continue")                  :report (lambda (condition stream)
94                              (declare (ignore condition))
95                              (write-string _"Ignore the lock and continue" stream)))
96                (unlock-package ()                (unlock-package ()
97                  :report "Disable the package's definition-lock then continue"                  :report (lambda (condition stream)
98                              (declare (ignore condition))
99                              (write-string _"Disable the package's definition-lock then continue" stream))
100                  (setf (ext:package-definition-lock package) nil))                  (setf (ext:package-definition-lock package) nil))
101                (unlock-all ()                (unlock-all ()
102                  :report "Unlock all packages, then continue"                  :report (lambda (condition stream)
103                              (declare (ignore condition))
104                              (write-string _"Unlock all packages, then continue" stream))
105                  (lisp::unlock-all-packages))))))))                  (lisp::unlock-all-packages))))))))
106    (let ((whole (gensym "WHOLE-"))    (let ((whole (gensym "WHOLE-"))
107          (environment (gensym "ENV-")))          (environment (gensym "ENV-")))
# Line 218  Line 224 
224                    :format-control _"defining type ~A"                    :format-control _"defining type ~A"
225                    :format-arguments (list name))                    :format-arguments (list name))
226           (continue ()           (continue ()
227             :report "Ignore the lock and continue")             :report (lambda (condition stream)
228                         (declare (ignore condition))
229                         (write-string _"Ignore the lock and continue" stream)))
230           (unlock-package ()           (unlock-package ()
231             :report "Disable package's definition-lock then continue"             :report (lambda (condition stream)
232                         (declare (ignore condition))
233                         (write-string _"Disable package's definition-lock then continue" stream))
234             (setf (ext:package-definition-lock (symbol-package name)) nil))             (setf (ext:package-definition-lock (symbol-package name)) nil))
235           (unlock-all ()           (unlock-all ()
236             :report "Unlock all packages, then continue"             :report (lambda (condition stream)
237                         (declare (ignore condition))
238                         (write-string _"Unlock all packages, then continue" stream))
239             (lisp::unlock-all-packages))))             (lisp::unlock-all-packages))))
240    (let ((whole (gensym "WHOLE-")))    (let ((whole (gensym "WHOLE-")))
241      (multiple-value-bind (body local-decs doc)      (multiple-value-bind (body local-decs doc)

Legend:
Removed from v.1.113.10.4  
changed lines
  Added in v.1.113.10.5

  ViewVC Help
Powered by ViewVC 1.1.5