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