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

Diff of /slime/swank-corman.lisp

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

revision 1.22 by heller, Thu Jan 8 10:33:44 2009 UTC revision 1.23 by heller, Sat Jan 10 12:25:16 2009 UTC
# Line 361  Line 361 
361                                            (list :error "No location"))))))))                                            (list :error "No location"))))))))
362      (funcall fn)))      (funcall fn)))
363    
364  (defimplementation swank-compile-file (*compile-filename* load-p  (defimplementation swank-compile-file (input-file output-file
365                                         external-format)                                         load-p external-format)
366    (declare (ignore external-format))    (declare (ignore external-format))
367    (with-compilation-hooks ()    (with-compilation-hooks ()
368      (let ((*buffer-name* nil))      (let ((*buffer-name* nil)
369              (*compile-filename* input-file))
370        (multiple-value-bind (output-file warnings? failure?)        (multiple-value-bind (output-file warnings? failure?)
371            (compile-file *compile-filename*)            (compile-file input-file :output-file output-file)
372          (values output-file warnings?          (values output-file warnings?
373                  (or failure? (and load-p (load output-file))))))))                  (or failure? (and load-p (load output-file))))))))
374    

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5