/[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.223 by heller, Sat Oct 4 19:13:41 2008 UTC revision 1.224 by heller, Thu Oct 16 21:15:28 2008 UTC
# Line 467  compiler state." Line 467  compiler state."
467    
468  (defimplementation swank-compile-file (pathname load-p external-format)  (defimplementation swank-compile-file (pathname load-p external-format)
469    (handler-case    (handler-case
470        (let ((output-file (with-compilation-hooks ()        (multiple-value-bind (output-file warnigns-p failure-p)
471                             (compile-file pathname            (with-compilation-hooks ()
472                                           :external-format external-format))))              (compile-file pathname :external-format external-format))
473          (when output-file          (values output-file warnings-p
474            ;; Cache the latest source file for definition-finding.                  (or failure-p
475            (source-cache-get pathname (file-write-date pathname))                      (when load-p
476            (when load-p                        ;; Cache the latest source file for definition-finding.
477              (load output-file))))                        (source-cache-get pathname (file-write-date pathname))
478                          (not (load output-file))))))
479      (sb-c:fatal-compiler-error () nil)))      (sb-c:fatal-compiler-error () nil)))
480    
481  ;;;; compile-string  ;;;; compile-string

Legend:
Removed from v.1.223  
changed lines
  Added in v.1.224

  ViewVC Help
Powered by ViewVC 1.1.5