X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fpurify.lisp;h=d869342f8b0a79493895395a82e35780337c9e1d;hb=fb03344c5e8388e0b16512f1cb662d8cf5d13972;hp=162b86c73b70a65da4cc891b10bfdd6cc30d24b1;hpb=0e2c926fea68a32c8ec58f12daa0c2b5befef1d4;p=sbcl.git

diff --git a/src/code/purify.lisp b/src/code/purify.lisp
index 162b86c..d869342 100644
--- a/src/code/purify.lisp
+++ b/src/code/purify.lisp
@@ -21,11 +21,11 @@
    ((zerop n)
     (let ((old-ie (car *info-environment*)))
       (setq *info-environment*
-	    (list* (make-info-environment :name "Working")
-		   (compact-info-environment (first *info-environment*)
-					     :name name)
-		   (rest *info-environment*)))
-      (shrink-vector (sb!c::volatile-info-env-table old-ie) 0)))
+            (list* (make-info-environment :name "Working")
+                   (compact-info-environment (first *info-environment*)
+                                             :name name)
+                   (rest *info-environment*)))
+      (%shrink-vector (sb!c::volatile-info-env-table old-ie) 0)))
    (t
     (compact-environment-aux name (1- n))
     n)))
@@ -46,4 +46,4 @@
 
   (when environment-name (compact-environment-aux environment-name 200))
   (%purify (get-lisp-obj-address root-structures)
-	   (get-lisp-obj-address nil)))
+           (get-lisp-obj-address nil)))