Ignore:
Timestamp:
Dec 30, 2010, 11:50:08 PM (9 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-listener.lisp

    r14234 r14537  
    112112                (t
    113113                 (destructuring-bind (string package-name pathname offset) val
    114                    ;; This env is used both for read and eval.  *nx-source-note-map* is for the latter.
    115                    (let ((env (cons '(*loading-file-source-file* *loading-toplevel-location* ccl::*nx-source-note-map*)
    116                                     (list pathname nil source-map))))
     114                   ;; This env is used both for read and eval.
     115                   (let ((env (cons '(*loading-file-source-file* *load-pathname* *load-truename* *loading-toplevel-location*
     116                                      ccl::*nx-source-note-map*)
     117                                    (list pathname pathname (and pathname (or (probe-file pathname) pathname)) nil
     118                                          source-map))))
    117119                     (when package-name
    118120                       (push '*package* (car env))
Note: See TracChangeset for help on using the changeset viewer.