Skip to content
Snippets Groups Projects
Commit d90c22af authored by wlott's avatar wlott
Browse files

Don't qualify IGNORABLE as being in the EXT package, 'cause it's not.

parent d9207634
Branches
Tags
No related merge requests found
...@@ -1367,7 +1367,7 @@ work during bootstrapping. ...@@ -1367,7 +1367,7 @@ work during bootstrapping.
(defmacro with-slots (slots instance &body body) (defmacro with-slots (slots instance &body body)
(let ((in (gensym))) (let ((in (gensym)))
`(let ((,in ,instance)) `(let ((,in ,instance))
#+cmu (declare (ext:ignorable ,in)) #+cmu (declare (ignorable ,in))
,@(and (symbolp instance) ,@(and (symbolp instance)
`((declare (variable-rebinding ,in ,instance)) `((declare (variable-rebinding ,in ,instance))
(symbol-macrolet ,(mapcar #'(lambda (slot-entry) (symbol-macrolet ,(mapcar #'(lambda (slot-entry)
...@@ -1387,7 +1387,7 @@ work during bootstrapping. ...@@ -1387,7 +1387,7 @@ work during bootstrapping.
(defmacro with-accessors (slots instance &body body) (defmacro with-accessors (slots instance &body body)
(let ((in (gensym))) (let ((in (gensym)))
`(let ((,in ,instance)) `(let ((,in ,instance))
#+cmu (declare (ext:ignorable ,in)) #+cmu (declare (ignorable ,in))
,@(and (symbolp instance) ,@(and (symbolp instance)
`((declare (variable-rebinding ,in ,instance)) `((declare (variable-rebinding ,in ,instance))
(symbol-macrolet ,(mapcar #'(lambda (slot-entry) (symbol-macrolet ,(mapcar #'(lambda (slot-entry)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment