0.9.7.31:

[sbcl.git] / contrib / sb-introspect / sb-introspect.lisp

diff --git a/contrib/sb-introspect/sb-introspect.lisp b/contrib/sb-introspect/sb-introspect.lisp
index cd328d3..d0bcbac 100644 (file)
--- a/contrib/sb-introspect/sb-introspect.lisp
+++ b/contrib/sb-introspect/sb-introspect.lisp
@@ -141,9 +141,9 @@ If an unsupported TYPE is requested, the function will return NIL.
            (if (listp x)
                x
                (list x)))
-        (get-class (name)
-          (and (symbolp name)
-               (find-class name nil))))
+         (get-class (name)
+           (and (symbolp name)
+                (find-class name nil))))
     (listify
      (case type
        ((:variable)