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 @@
;;; 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
......
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