From 39f0df3c817ccad9f0caee635b3a2a766cab30ed Mon Sep 17 00:00:00 2001
From: emarsden <emarsden>
Date: Fri, 16 Jul 2004 09:05:25 +0000
Subject: [PATCH] Make DEFMACRO-BIND-LIST-ERROR subclass PROGRAM-ERROR.

---
 code/defmacro.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/defmacro.lisp b/code/defmacro.lisp
index 6cf3a91dd..0191d4744 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
-- 
GitLab