X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Feval.lisp;h=99fea12556644bf81ee75ef0772597663bb6e714;hb=6a0601ab48635465ad3400c290e5cfbca28e5367;hp=56ea38cf7a6f868eb7cbda2ac8aba8a6f9bd4f9c;hpb=0371580437ef7f3e39f0bfbb9e45264986408b19;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 56ea38c..99fea12 100644
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -143,7 +143,7 @@
                            (not (consp (let ((sb!c:*lexenv* lexenv))
                                          (sb!c:lexenv-find name funs)))))
                       (%coerce-name-to-fun name)
-                    (%simple-eval original-exp lexenv))))
+                      (%simple-eval original-exp lexenv))))
                ((quote)
                 (unless (= n-args 1)
                   (error "wrong number of args to QUOTE:~% ~S" exp))
@@ -198,9 +198,9 @@
                     ;; PROGN; otherwise, the EVAL-WHEN form returns NIL.
                     (declare (ignore ct lt))
                     (when e
-                    (simple-eval-progn-body body lexenv)))))
+                      (simple-eval-progn-body body lexenv)))))
                ((locally)
-              (simple-eval-locally exp lexenv))
+                (simple-eval-locally exp lexenv))
                ((macrolet)
                 (destructuring-bind (definitions &rest body)
                     (rest exp)
@@ -212,7 +212,7 @@
                               (declare (ignore funs))
                               sb!c:*lexenv*)
                             :eval))))
-                  (simple-eval-locally `(locally ,@body) lexenv))))
+                    (simple-eval-locally `(locally ,@body) lexenv))))
                ((symbol-macrolet)
                 (destructuring-bind (definitions &rest body) (rest exp)
                   (multiple-value-bind (lexenv vars)