Skip to content
Snippets Groups Projects
Commit 58d15e56 authored by gerd's avatar gerd
Browse files

* src/code/defmacro.lisp (parse-defmacro-lambda-list): Undo last

	change.
parent 4e68c504
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -214,7 +214,7 @@
(setf allow-other-keys-p t)) (setf allow-other-keys-p t))
((eq var '&aux) ((eq var '&aux)
(setf now-processing :auxs)) (setf now-processing :auxs))
((consp var) ((listp var)
(case now-processing (case now-processing
(:required (:required
(let ((sub-list-name (gensym "SUBLIST-"))) (let ((sub-list-name (gensym "SUBLIST-")))
...@@ -253,7 +253,6 @@ ...@@ -253,7 +253,6 @@
name error-kind error-fun) name error-kind error-fun)
(push keyword keys))) (push keyword keys)))
(:auxs (push-let-binding (car var) (cadr var) nil)))) (:auxs (push-let-binding (car var) (cadr var) nil))))
((null var))
((symbolp var) ((symbolp var)
(case now-processing (case now-processing
(:required (:required
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment