X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fwrapper.lisp;h=eb567cd36ba5854f73daedceb8faffb901b1ba73;hb=43ed30b023d8ea5d0cd9c6a8928b4169aa0275ef;hp=c204e4f8b21b1b518db7debf000e28a46d7d2a4e;hpb=94476bde095777523c57d3f1e16e8cbcd8f6a2dd;p=sbcl.git

diff --git a/src/pcl/wrapper.lisp b/src/pcl/wrapper.lisp
index c204e4f..eb567cd 100644
--- a/src/pcl/wrapper.lisp
+++ b/src/pcl/wrapper.lisp
@@ -194,8 +194,8 @@
 (defun valid-wrapper-of (instance)
   (let ((wrapper (wrapper-of instance)))
     (if (invalid-wrapper-p wrapper)
-	(check-wrapper-validity instance)
-	wrapper)))
+        (check-wrapper-validity instance)
+        wrapper)))
 
 ;;;  NIL: means nothing so far, no actual arg info has NILs in the
 ;;;  metatype.