diff --git a/code/defmacro.lisp b/code/defmacro.lisp index 21fc00c2abd0441fc86075780b6b7440fc5d16d8..2626f7593bbee1ac9c334660feb7be4eed5f77e3 100644 --- a/code/defmacro.lisp +++ b/code/defmacro.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defmacro.lisp,v 1.28 2003/06/01 19:26:11 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defmacro.lisp,v 1.29 2003/06/01 19:35:05 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -214,7 +214,7 @@ (setf allow-other-keys-p t)) ((eq var '&aux) (setf now-processing :auxs)) - ((consp var) + ((listp var) (case now-processing (:required (let ((sub-list-name (gensym "SUBLIST-"))) @@ -253,7 +253,6 @@ name error-kind error-fun) (push keyword keys))) (:auxs (push-let-binding (car var) (cadr var) nil)))) - ((null var)) ((symbolp var) (case now-processing (:required