From d90c22afa9fab66549325fc862d1836d32260dc6 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 3 Mar 1992 09:01:24 +0000 Subject: [PATCH] Don't qualify IGNORABLE as being in the EXT package, 'cause it's not. --- pcl/boot.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pcl/boot.lisp b/pcl/boot.lisp index e802a4d9a..0e2ca6aa3 100644 --- a/pcl/boot.lisp +++ b/pcl/boot.lisp @@ -1367,7 +1367,7 @@ work during bootstrapping. (defmacro with-slots (slots instance &body body) (let ((in (gensym))) `(let ((,in ,instance)) - #+cmu (declare (ext:ignorable ,in)) + #+cmu (declare (ignorable ,in)) ,@(and (symbolp instance) `((declare (variable-rebinding ,in ,instance)) (symbol-macrolet ,(mapcar #'(lambda (slot-entry) @@ -1387,7 +1387,7 @@ work during bootstrapping. (defmacro with-accessors (slots instance &body body) (let ((in (gensym))) `(let ((,in ,instance)) - #+cmu (declare (ext:ignorable ,in)) + #+cmu (declare (ignorable ,in)) ,@(and (symbolp instance) `((declare (variable-rebinding ,in ,instance)) (symbol-macrolet ,(mapcar #'(lambda (slot-entry) -- GitLab