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