X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fltv.lisp;h=4653dd9823773ec6d77919b6d5aca2fcd115a454;hb=f12f2c5a8ae794dc414dd6a42e0b25740d576aa1;hp=9ed48c8743a07206013ffd7327bc954e8bb759b4;hpb=57e21c4b62e8c1a1ee7ef59ed2abb0c864fb06bc;p=sbcl.git

diff --git a/src/compiler/ltv.lisp b/src/compiler/ltv.lisp
index 9ed48c8..4653dd9 100644
--- a/src/compiler/ltv.lisp
+++ b/src/compiler/ltv.lisp
@@ -22,27 +22,27 @@
    storage."
   (if (producing-fasl-file)
       (multiple-value-bind (handle type)
-	  (compile-load-time-value (if read-only-p
-				       form
-				       `(make-value-cell ,form)))
-	(declare (ignore type))
-	(ir1-convert start next result
-		     (if read-only-p
-			 `(%load-time-value ',handle)
-			 `(value-cell-ref (%load-time-value ',handle)))))
+          (compile-load-time-value (if read-only-p
+                                       form
+                                       `(make-value-cell ,form)))
+        (declare (ignore type))
+        (ir1-convert start next result
+                     (if read-only-p
+                         `(%load-time-value ',handle)
+                         `(value-cell-ref (%load-time-value ',handle)))))
       (let ((value
-	     (handler-case (eval form)
-	       (error (condition)
-		 (compiler-error "(during EVAL of LOAD-TIME-VALUE)~%~A"
-				 condition)))))
-	(ir1-convert start next result
-		     (if read-only-p
-			 `',value
-			 `(value-cell-ref ',(make-value-cell value)))))))
+             (handler-case (eval form)
+               (error (condition)
+                 (compiler-error "(during EVAL of LOAD-TIME-VALUE)~%~A"
+                                 condition)))))
+        (ir1-convert start next result
+                     (if read-only-p
+                         `',value
+                         `(value-cell-ref ',(make-value-cell value)))))))
 
 (defoptimizer (%load-time-value ir2-convert) ((handle) node block)
   (aver (constant-lvar-p handle))
   (let ((lvar (node-lvar node))
-	(tn (make-load-time-value-tn (lvar-value handle)
-				     *universal-type*)))
+        (tn (make-load-time-value-tn (lvar-value handle)
+                                     *universal-type*)))
     (move-lvar-result node block (list tn) lvar)))