From a5d7ec2a97cc0b0f45a17298d781665fd6d19bb8 Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Sun, 11 Apr 2010 20:51:14 +0200
Subject: [PATCH] simple-style-warning & co: better compatibility with ccl

---
 conditions.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/conditions.lisp b/conditions.lisp
index 196a56e..ac471cc 100644
--- a/conditions.lisp
+++ b/conditions.lisp
@@ -6,7 +6,7 @@ use as an initialization form for structure and class-slots, and
 a default value for required keyword arguments."
   (error "Required argument ~@[~S ~]missing." name))
 
-(define-condition simple-style-warning (style-warning simple-warning)
+(define-condition simple-style-warning (simple-warning style-warning)
   ())
 
 (defun simple-style-warning (message &rest args)
@@ -19,7 +19,7 @@ a default value for required keyword arguments."
 ;; implementation. But even then it's still inspectable from the
 ;; debugger...
 (define-condition simple-reader-error
-    #-sbcl(reader-error simple-error)
+    #-sbcl(simple-error reader-error)
     #+sbcl(sb-int:simple-reader-error)
   ())
 
-- 
GitLab