From 58d15e56c3c88f59299baddb43521417ae3bd8b1 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Sun, 1 Jun 2003 19:35:05 +0000
Subject: [PATCH] 	* src/code/defmacro.lisp (parse-defmacro-lambda-list):
 Undo last 	change.

---
 code/defmacro.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/code/defmacro.lisp b/code/defmacro.lisp
index 21fc00c2a..2626f7593 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
-- 
GitLab