From 0758486bf599bef24294134aa34529052c2fb8ff Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Tue, 18 Apr 2006 19:22:45 +0000
Subject: [PATCH] Fixed typo

---
 src/clos/conditions.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp
index bc55efb7c..340be873d 100644
--- a/src/clos/conditions.lsp
+++ b/src/clos/conditions.lsp
@@ -294,7 +294,7 @@ strings."
 (defun make-condition (type &rest slot-initializations)
   (let ((class (or (and (symbolp type) (find-class type nil))
 		   (first (last (sort (find-subclasses-of-type type (find-class 'condition))
-				      #'clos::subclassp))))))
+				      #'si::subclassp))))))
     (unless class
       (error 'SIMPLE-TYPE-ERROR
 	     :DATUM type