Changeset 11124 for trunk/source/level-1


Ignore:
Timestamp:
Oct 17, 2008, 12:41:24 PM (11 years ago)
Author:
gz
Message:

Indentation tweaks

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop-lds.lisp

    r10426 r11124  
    380380      (setq +++ ++ ++ + + - - form)
    381381      (unwind-protect
    382           (let* ((package *package*)
    383                  (values (multiple-value-list (cheap-eval-in-environment form nil))))
    384             (unless (eq package *package*)
    385               ;; If changing a local value (e.g. buffer-local), not useful to notify app
    386               ;; without more info.  Perhaps should have a *source-context* that can send along?
    387               (unless (member '*package* vars)
    388                 (application-ui-operation *application* :note-current-package *package*)))
    389             values)
     382           (let* ((package *package*)
     383                  (values (multiple-value-list (cheap-eval-in-environment form nil))))
     384             (unless (eq package *package*)
     385               ;; If changing a local value (e.g. buffer-local), not useful to notify app
     386               ;; without more info.  Perhaps should have a *source-context* that can send along?
     387               (unless (member '*package* vars)
     388                 (application-ui-operation *application* :note-current-package *package*)))
     389             values)
    390390        (loop for var in vars as pval on vals
    391           do (setf (car pval) (symbol-value var)))))))
     391              do (setf (car pval) (symbol-value var)))))))
    392392
    393393
     
    633633                 (*print-length* *error-print-length*)
    634634                                        ;(*print-pretty* nil)
    635                    (*print-array* nil))
    636               (format t "~&> Type :GO to continue, :POP to abort, :R for a list of available restarts.")
    637               (format t "~&> If continued: ~A~%" continue))
    638             (format t "~&> Type :POP to abort, :R for a list of available restarts.~%"))
     635                 (*print-array* nil))
     636            (format t "~&> Type :GO to continue, :POP to abort, :R for a list of available restarts.")
     637            (format t "~&> If continued: ~A~%" continue))
     638          (format t "~&> Type :POP to abort, :R for a list of available restarts.~%"))
    639639        (format t "~&> Type :? for other options.")
    640640        (terpri)
Note: See TracChangeset for help on using the changeset viewer.