Changeset 603

Timestamp:

Mar 1, 2004, 9:06:11 AM (21 years ago)

Author:

Gary Byers

Message:

Notify "application-ui" on package change.

File:

• trunk/ccl/level-1/l1-readloop-lds.lisp (modified) (1 diff)

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

@@ -231 +231 @@
     form))
 
-(defun toplevel-eval (form &optional env &aux values)
-   (declare (resident))
+(defun toplevel-eval (form &optional env)
   (setq +++ ++ ++ + + - - form)
-  (setq values (multiple-value-list (cheap-eval-in-environment form env)))
-  values)
+  (let* ((package *package*)
+         (values (multiple-value-list (cheap-eval-in-environment form env))))
+    (unless (eq package *package*)
+      (application-ui-operation *application* :note-package *package*))
+    values))
 
 (defun toplevel-print (values)