diff --git a/code/defmacro.lisp b/code/defmacro.lisp index 6cf3a91dde45953a211f5f9c92aa73f2d0611a4b..0191d47442db5b330feea9977e1fc221164070a2 100644 --- a/code/defmacro.lisp +++ b/code/defmacro.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defmacro.lisp,v 1.32 2003/07/16 15:33:13 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defmacro.lisp,v 1.33 2004/07/16 09:05:25 emarsden Exp $") ;;; ;;; ********************************************************************** ;;; @@ -388,7 +388,7 @@ ;;;; Conditions signaled at runtime by the resultant body. -(define-condition defmacro-lambda-list-bind-error (error) +(define-condition defmacro-lambda-list-bind-error (program-error) ((kind :reader defmacro-lambda-list-bind-error-kind :initarg :kind) (name :reader defmacro-lambda-list-bind-error-name