Changeset 14537

Timestamp:

Dec 30, 2010, 3:50:08 PM (14 years ago)

Author:

gz

Message:

Bind *load-pathname* and *load-truename* when processing eval queue forms

File:

• trunk/source/cocoa-ide/cocoa-listener.lisp (modified) (1 diff)

trunk/source/cocoa-ide/cocoa-listener.lisp

@@ -112 +112 @@
                 (t
                  (destructuring-bind (string package-name pathname offset) val
-                   ;; This env is used both for read and eval.  *nx-source-note-map* is for the latter.
-                   (let ((env (cons '(*loading-file-source-file* *loading-toplevel-location* ccl::*nx-source-note-map*)
-                                    (list pathname nil source-map))))
+                   ;; This env is used both for read and eval.
+                   (let ((env (cons '(*loading-file-source-file* *load-pathname* *load-truename* *loading-toplevel-location*
+                                      ccl::*nx-source-note-map*)
+                                    (list pathname pathname (and pathname (or (probe-file pathname) pathname)) nil
+                                          source-map))))
                      (when package-name
                        (push '*package* (car env))