diff --git a/code/macros.lisp b/code/macros.lisp index 47402ecf2687aa5d7b326e32cfbdb3949fcbaa01..24548e5c606e55e5e46892aa5ed2c705c26c6ecf 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