From 4afdfcae927a4d1fa9b1bfc1af24b10723f20a58 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 29 May 1990 16:50:56 +0000
Subject: [PATCH] In DEFINE-CONDITION, allow slot specs to be omitted.

---
 code/error.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/error.lisp b/code/error.lisp
index b750072de..6ded62740 100644
--- a/code/error.lisp
+++ b/code/error.lisp
@@ -382,7 +382,8 @@ The previous version is uglier, but it sets up unique run-time tags.
 
 ) ;eval-when
 
-(defmacro define-condition (name (parent-type) slot-specs &rest options)
+(defmacro define-condition (name (parent-type) &optional slot-specs
+				 &rest options)
   "(DEFINE-CONDITION name (parent-type)
    ( {slot-name | (slot-name) | (slot-name default-value)}*)
    options)"
-- 
GitLab