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

Diff of /slime/swank-lispworks.lisp

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

revision 1.127 by heller, Sat Jan 10 12:17:41 2009 UTC revision 1.128 by heller, Sat Jan 10 12:25:16 2009 UTC
# Line 426  Return NIL if the symbol is unbound." Line 426  Return NIL if the symbol is unbound."
426             (signal-undefined-functions compiler::*unknown-functions*             (signal-undefined-functions compiler::*unknown-functions*
427                                         ,location))))))                                         ,location))))))
428    
429  (defimplementation swank-compile-file (filename load-p external-format)  (defimplementation swank-compile-file (input-file output-file
430    (with-swank-compilation-unit (filename)                                         load-p external-format)
431      (compile-file filename :load load-p    (with-swank-compilation-unit (input-file)
432        (compile-file input-file
433                      :output-file output-file
434                      :load load-p
435                    :external-format external-format)))                    :external-format external-format)))
436    
437  (defvar *within-call-with-compilation-hooks* nil  (defvar *within-call-with-compilation-hooks* nil

Legend:
Removed from v.1.127  
changed lines
  Added in v.1.128

  ViewVC Help
Powered by ViewVC 1.1.5