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

Diff of /slime/swank-cmucl.lisp

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

revision 1.241 by rtoy, Sun Mar 11 18:35:52 2012 UTC revision 1.242 by heller, Mon Mar 26 15:10:08 2012 UTC
# Line 427  NIL if we aren't compiling from a buffer Line 427  NIL if we aren't compiling from a buffer
427  (defimplementation swank-compile-file (input-file output-file  (defimplementation swank-compile-file (input-file output-file
428                                         load-p external-format                                         load-p external-format
429                                         &key policy)                                         &key policy)
430    (declare (ignore external-format policy))    (declare (ignore policy))
431    (clear-xref-info input-file)    (clear-xref-info input-file)
432    (with-compilation-hooks ()    (with-compilation-hooks ()
433      (let ((*buffer-name* nil)      (let ((*buffer-name* nil)
434            (ext:*ignore-extra-close-parentheses* nil))            (ext:*ignore-extra-close-parentheses* nil))
435        (multiple-value-bind (output-file warnings-p failure-p)        (multiple-value-bind (output-file warnings-p failure-p)
436            (compile-file input-file :output-file output-file)            (compile-file input-file :output-file output-file
437                            :external-format external-format)
438          (values output-file warnings-p          (values output-file warnings-p
439                  (or failure-p                  (or failure-p
440                      (when load-p                      (when load-p

Legend:
Removed from v.1.241  
changed lines
  Added in v.1.242

  ViewVC Help
Powered by ViewVC 1.1.5