/[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.215 by heller, Sun Aug 17 08:31:22 2008 UTC revision 1.216 by trittweiler, Fri Aug 22 14:28:41 2008 UTC
# Line 173  Line 173 
173      (:euc-jp "euc-jp" "euc-jp-unix")      (:euc-jp "euc-jp" "euc-jp-unix")
174      (:us-ascii "us-ascii" "us-ascii-unix")))      (:us-ascii "us-ascii" "us-ascii-unix")))
175    
176    ;; C.f. R.M.Kreuter in <20536.1219412774@progn.net> on sbcl-general, 2008-08-22.
177    (defvar *physical-pathname-host* (pathname-host (user-homedir-pathname)))
178    
179    (defimplementation parse-emacs-filename (filename)
180      (sb-ext:parse-native-namestring filename *physical-pathname-host*))
181    
182  (defimplementation find-external-format (coding-system)  (defimplementation find-external-format (coding-system)
183    (car (rassoc-if (lambda (x) (member coding-system x :test #'equal))    (car (rassoc-if (lambda (x) (member coding-system x :test #'equal))
184                    *external-format-to-coding-system*)))                    *external-format-to-coding-system*)))
# Line 429  compiler state." Line 435  compiler state."
435    
436  (defvar *trap-load-time-warnings* nil)  (defvar *trap-load-time-warnings* nil)
437    
438  (defimplementation swank-compile-file (filename load-p external-format)  (defimplementation swank-compile-file (pathname load-p external-format)
439    (handler-case    (handler-case
440        (let ((output-file (with-compilation-hooks ()        (let ((output-file (with-compilation-hooks ()
441                             (compile-file filename                             (compile-file pathname
442                                           :external-format external-format))))                                           :external-format external-format))))
443          (when output-file          (when output-file
444            ;; Cache the latest source file for definition-finding.            ;; Cache the latest source file for definition-finding.
445            (source-cache-get filename (file-write-date filename))            (source-cache-get pathname (file-write-date pathname))
446            (when load-p            (when load-p
447              (load output-file))))              (load output-file))))
448      (sb-c:fatal-compiler-error () nil)))      (sb-c:fatal-compiler-error () nil)))

Legend:
Removed from v.1.215  
changed lines
  Added in v.1.216

  ViewVC Help
Powered by ViewVC 1.1.5