/[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.231 by heller, Thu Jan 8 10:33:44 2009 UTC revision 1.232 by heller, Sat Jan 10 12:25:16 2009 UTC
# Line 485  compiler state." Line 485  compiler state."
485    
486  (defvar *trap-load-time-warnings* nil)  (defvar *trap-load-time-warnings* nil)
487    
488  (defimplementation swank-compile-file (pathname load-p external-format)  (defimplementation swank-compile-file (input-file output-file
489                                           load-p external-format)
490    (handler-case    (handler-case
491        (multiple-value-bind (output-file warnings-p failure-p)        (multiple-value-bind (output-file warnings-p failure-p)
492            (with-compilation-hooks ()            (with-compilation-hooks ()
493              (compile-file pathname :external-format external-format))              (compile-file input-file :output-file output-file
494                              :external-format external-format))
495          (values output-file warnings-p          (values output-file warnings-p
496                  (or failure-p                  (or failure-p
497                      (when load-p                      (when load-p
498                        ;; Cache the latest source file for definition-finding.                        ;; Cache the latest source file for definition-finding.
499                        (source-cache-get pathname (file-write-date pathname))                        (source-cache-get input-file
500                                            (file-write-date input-file))
501                        (not (load output-file))))))                        (not (load output-file))))))
502      (sb-c:fatal-compiler-error () nil)))      (sb-c:fatal-compiler-error () nil)))
503    

Legend:
Removed from v.1.231  
changed lines
  Added in v.1.232

  ViewVC Help
Powered by ViewVC 1.1.5