Changeset 11124 for trunk/source/level-1/l1-readloop-lds.lisp

Timestamp:

Oct 17, 2008, 12:41:24 PM (11 years ago)

Author:

gz

Message:

Indentation tweaks

File:

• trunk/source/level-1/l1-readloop-lds.lisp (modified) (2 diffs)

trunk/source/level-1/l1-readloop-lds.lisp

@@ -380 +380 @@
       (setq +++ ++ ++ + + - - form)
       (unwind-protect
-          (let* ((package *package*)
-                 (values (multiple-value-list (cheap-eval-in-environment form nil))))
-            (unless (eq package *package*)
-              ;; If changing a local value (e.g. buffer-local), not useful to notify app
-              ;; without more info.  Perhaps should have a *source-context* that can send along?
-              (unless (member '*package* vars)
-                (application-ui-operation *application* :note-current-package *package*)))
-            values)
+           (let* ((package *package*)
+                  (values (multiple-value-list (cheap-eval-in-environment form nil))))
+             (unless (eq package *package*)
+               ;; If changing a local value (e.g. buffer-local), not useful to notify app
+               ;; without more info.  Perhaps should have a *source-context* that can send along?
+               (unless (member '*package* vars)
+                 (application-ui-operation *application* :note-current-package *package*)))
+             values)
         (loop for var in vars as pval on vals
-          do (setf (car pval) (symbol-value var)))))))
+              do (setf (car pval) (symbol-value var)))))))
 
 
@@ -633 +633 @@
                  (*print-length* *error-print-length*)
                                         ;(*print-pretty* nil)
-                   (*print-array* nil))
-              (format t "~&> Type :GO to continue, :POP to abort, :R for a list of available restarts.")
-              (format t "~&> If continued: ~A~%" continue))
-            (format t "~&> Type :POP to abort, :R for a list of available restarts.~%"))
+                 (*print-array* nil))
+            (format t "~&> Type :GO to continue, :POP to abort, :R for a list of available restarts.")
+            (format t "~&> If continued: ~A~%" continue))
+          (format t "~&> Type :POP to abort, :R for a list of available restarts.~%"))
         (format t "~&> Type :? for other options.")
         (terpri)