0.9.6.16:

[sbcl.git] / src / compiler / globaldb.lisp

diff --git a/src/compiler/globaldb.lisp b/src/compiler/globaldb.lisp
index b72a672..3e6476d 100644 (file)
--- a/src/compiler/globaldb.lisp
+++ b/src/compiler/globaldb.lisp
@@ -198,13 +198,13 @@
   #+sb-xc (/nohexstr class)
   (prog1
       (flet ((lookup (class)
-              (or (gethash class *info-classes*)
-                  (error "~S is not a defined info class." class))))
-       (if (symbolp class)
-           (or (get class 'class-info-or-lose-cache)
-               (setf (get class 'class-info-or-lose-cache)
-                     (lookup class)))
-           (lookup class)))
+               (or (gethash class *info-classes*)
+                   (error "~S is not a defined info class." class))))
+        (if (symbolp class)
+            (or (get class 'class-info-or-lose-cache)
+                (setf (get class 'class-info-or-lose-cache)
+                      (lookup class)))
+            (lookup class)))
     #+sb-xc (/noshow0 "returning from CLASS-INFO-OR-LOSE")))
 (declaim (ftype (function (keyword keyword) type-info) type-info-or-lose))
 (defun type-info-or-lose (class type)