/[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.96 by gerd, Thu Jul 17 17:48:32 2003 UTC revision 1.97 by emarsden, Fri Aug 8 11:32:52 2003 UTC
# Line 91  Line 91 
91                  :report "Ignore the lock and continue")                  :report "Ignore the lock and continue")
92                (unlock-package ()                (unlock-package ()
93                  :report "Disable the package's definition-lock then continue"                  :report "Disable the package's definition-lock then continue"
94                  (setf (ext:package-definition-lock package) nil))))))))                  (setf (ext:package-definition-lock package) nil))
95                  (unlock-all ()
96                    :report "Unlock all packages, then continue"
97                    (lisp::unlock-all-packages))))))))
98    (let ((whole (gensym "WHOLE-"))    (let ((whole (gensym "WHOLE-"))
99          (environment (gensym "ENV-")))          (environment (gensym "ENV-")))
100      (multiple-value-bind      (multiple-value-bind
# Line 216  Line 219 
219             :report "Ignore the lock and continue")             :report "Ignore the lock and continue")
220           (unlock-package ()           (unlock-package ()
221             :report "Disable package's definition-lock then continue"             :report "Disable package's definition-lock then continue"
222             (setf (ext:package-definition-lock (symbol-package name)) nil))))             (setf (ext:package-definition-lock (symbol-package name)) nil))
223             (unlock-all ()
224               :report "Unlock all packages, then continue"
225               (lisp::unlock-all-packages))))
226    (let ((whole (gensym "WHOLE-")))    (let ((whole (gensym "WHOLE-")))
227      (multiple-value-bind (body local-decs doc)      (multiple-value-bind (body local-decs doc)
228                           (parse-defmacro arglist whole body name 'deftype                           (parse-defmacro arglist whole body name 'deftype
# Line 1858  Line 1864 
1864               (handler-bind ((c::parse-unknown-type               (handler-bind ((c::parse-unknown-type
1865                               #'(lambda (c)                               #'(lambda (c)
1866                                   (c::note-undefined-reference                                   (c::note-undefined-reference
1867                                    (c::parse-unknown-type-specifier c)                                    (kernel:parse-unknown-type-specifier c)
1868                                    :type))))                                    :type))))
1869                 (unwind-protect                 (unwind-protect
1870                     (multiple-value-prog1                     (multiple-value-prog1

Legend:
Removed from v.1.96  
changed lines
  Added in v.1.97

  ViewVC Help
Powered by ViewVC 1.1.5