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