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

Diff of /slime/swank-clisp.lisp

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

revision 1.78 by heller, Wed Sep 17 06:19:48 2008 UTC revision 1.79 by heller, Thu Oct 16 21:15:28 2008 UTC
# Line 598  Execute BODY with NAME's function slot s Line 598  Execute BODY with NAME's function slot s
598  (defimplementation swank-compile-file (filename load-p external-format)  (defimplementation swank-compile-file (filename load-p external-format)
599    (with-compilation-hooks ()    (with-compilation-hooks ()
600      (with-compilation-unit ()      (with-compilation-unit ()
601        (let ((fasl-file (compile-file filename        (multiple-value-bind (fasl-file warningsp failurep)
602                                       :external-format external-format)))            (compile-file filename :external-format external-format)
603          (when (and load-p fasl-file)          (values fasl-file warningsp
604            (load fasl-file))                  (or failurep
605          nil))))                      (and load-p
606                             (not (load fasl-file)))))))))
607    
608  (defimplementation swank-compile-string (string &key buffer position directory  (defimplementation swank-compile-string (string &key buffer position directory
609                                           debug)                                           debug)

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79

  ViewVC Help
Powered by ViewVC 1.1.5