Changeset 11124 for trunk/source/level-1/l1-readloop-lds.lisp
- Timestamp:
- Oct 17, 2008, 12:41:24 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-readloop-lds.lisp
r10426 r11124 380 380 (setq +++ ++ ++ + + - - form) 381 381 (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 app386 ;; 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) 390 390 (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))))))) 392 392 393 393 … … 633 633 (*print-length* *error-print-length*) 634 634 ;(*print-pretty* nil) 635 636 637 638 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.~%")) 639 639 (format t "~&> Type :? for other options.") 640 640 (terpri)
Note: See TracChangeset
for help on using the changeset viewer.