X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=d52aecc0cde7e69c0d246f78316f419a479c7583;hb=90ca09b75fbc3b63b2f7d09c67b04b866dd783f6;hp=43d93663a7808780c496e6fff670f92c8bf7b9d5;hpb=1bfc464c657a8f4ad24ef612f76a38d8f6f1bbad;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 43d9366..d52aecc 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -90,7 +90,7 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (/show0 "condition.lisp 103")
   (let ((condition-class (locally
-			   ;; KLUDGE: There's a FIND-CLASS DEFTRANSFORM for
+			   ;; KLUDGE: There's a DEFTRANSFORM FIND-CLASS for
 			   ;; constant class names which creates fast but
 			   ;; non-cold-loadable, non-compact code. In this
 			   ;; context, we'd rather have compact, cold-loadable
@@ -102,7 +102,7 @@
   (/show0 "condition.lisp 103"))
 
 (setf (condition-class-report (locally
-				;; KLUDGE: There's a FIND-CLASS DEFTRANSFORM
+				;; KLUDGE: There's a DEFTRANSFORM FIND-CLASS 
 				;; for constant class names which creates fast
 				;; but non-cold-loadable, non-compact code. In
 				;; this context, we'd rather have compact,