Changeset 603


Ignore:
Timestamp:
Mar 1, 2004, 5:06:11 PM (15 years ago)
Author:
gb
Message:

Notify "application-ui" on package change.

File:
1 edited

Legend:

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

    r480 r603  
    231231    form))
    232232
    233 (defun toplevel-eval (form &optional env &aux values)
    234    (declare (resident))
     233(defun toplevel-eval (form &optional env)
    235234  (setq +++ ++ ++ + + - - form)
    236   (setq values (multiple-value-list (cheap-eval-in-environment form env)))
    237   values)
     235  (let* ((package *package*)
     236         (values (multiple-value-list (cheap-eval-in-environment form env))))
     237    (unless (eq package *package*)
     238      (application-ui-operation *application* :note-package *package*))
     239    values))
    238240
    239241(defun toplevel-print (values)
Note: See TracChangeset for help on using the changeset viewer.