/[slime]/slime/swank-sbcl.lisp
ViewVC logotype

Diff of /slime/swank-sbcl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.283 by nsiivola, Tue Jun 14 15:34:18 2011 UTC revision 1.284 by nsiivola, Thu Jun 16 08:28:45 2011 UTC
# Line 495  information." Line 495  information."
495         ;; The following is to trigger COMPILING-FROM-GENERATED-CODE-P         ;; The following is to trigger COMPILING-FROM-GENERATED-CODE-P
496         ;; in LOCATE-COMPILER-NOTE, and allows handling nested         ;; in LOCATE-COMPILER-NOTE, and allows handling nested
497         ;; compilation from eg. hitting C-C on (eval-when ... (require ..))).         ;; compilation from eg. hitting C-C on (eval-when ... (require ..))).
498           ;;
499           ;; PROBE-FILE to handle tempfile directory being a symlink.
500         (pathnamep filename)         (pathnamep filename)
501         (string= (namestring filename) *buffer-tmpfile*)))         (let ((true1 (probe-file filename))
502                 (true2 (probe-file *buffer-tmpfile*)))
503             (and true1 (equal true1 true2)))))
504    
505  (defun compiling-from-file-p (filename)  (defun compiling-from-file-p (filename)
506    (and (pathnamep filename)    (and (pathnamep filename)
507         (or (null *buffer-name*)         (or (null *buffer-name*)
508             (string/= (namestring filename) *buffer-tmpfile*))))             (null *buffer-tmpfile*)
509               (let ((true1 (probe-file filename))
510                     (true2 (probe-file *buffer-tmpfile*)))
511                 (not (and true1 (equal true1 true2)))))))
512    
513  (defun compiling-from-generated-code-p (filename source)  (defun compiling-from-generated-code-p (filename source)
514    (and (eq filename :lisp) (stringp source)))    (and (eq filename :lisp) (stringp source)))

Legend:
Removed from v.1.283  
changed lines
  Added in v.1.284

  ViewVC Help
Powered by ViewVC 1.1.5