Skip to content
Snippets Groups Projects
Commit 35863cf5 authored by wlott's avatar wlott
Browse files

In destructuring-bind, pass NIL to parse-defmacro as the name, 'cause

there is no name.
parent 3502ed99
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.16 1990/11/19 06:53:12 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.17 1990/12/11 12:45:13 wlott Exp $
;;; ;;;
;;; This file contains the macros that are part of the standard ;;; This file contains the macros that are part of the standard
;;; Spice Lisp environment. ;;; Spice Lisp environment.
...@@ -182,8 +182,7 @@ ...@@ -182,8 +182,7 @@
(let* ((arg-list-name (gensym "ARG-LIST-"))) (let* ((arg-list-name (gensym "ARG-LIST-")))
(multiple-value-bind (multiple-value-bind
(body local-decls) (body local-decls)
(parse-defmacro lambda-list arg-list-name body (parse-defmacro lambda-list arg-list-name body nil 'destructuring-bind
'destructuring-bind 'destructuring-bind
:annonymousp t :doc-string-allowed nil) :annonymousp t :doc-string-allowed nil)
`(let ((,arg-list-name ,arg-list)) `(let ((,arg-list-name ,arg-list))
,@local-decls ,@local-decls
......
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