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 @@
;;; 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
;;; Spice Lisp environment.
......@@ -182,8 +182,7 @@
(let* ((arg-list-name (gensym "ARG-LIST-")))
(multiple-value-bind
(body local-decls)
(parse-defmacro lambda-list arg-list-name body
'destructuring-bind 'destructuring-bind
(parse-defmacro lambda-list arg-list-name body nil 'destructuring-bind
:annonymousp t :doc-string-allowed nil)
`(let ((,arg-list-name ,arg-list))
,@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