From 35863cf5003af1ae054cefa78e07dcac311124e9 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 11 Dec 1990 12:45:13 +0000 Subject: [PATCH] In destructuring-bind, pass NIL to parse-defmacro as the name, 'cause there is no name. --- code/macros.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/code/macros.lisp b/code/macros.lisp index 47402ecf2..24548e5c6 100644 --- a/code/macros.lisp +++ b/code/macros.lisp @@ -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 -- GitLab