Skip to content
Snippets Groups Projects
Commit 39f0df3c authored by emarsden's avatar emarsden
Browse files

Make DEFMACRO-BIND-LIST-ERROR subclass PROGRAM-ERROR.

parent 89529db3
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -388,7 +388,7 @@
;;;; Conditions signaled at runtime by the resultant body. ;;;; 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 ((kind :reader defmacro-lambda-list-bind-error-kind
:initarg :kind) :initarg :kind)
(name :reader defmacro-lambda-list-bind-error-name (name :reader defmacro-lambda-list-bind-error-name
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment