/[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.248 by heller, Mon Aug 10 19:30:22 2009 UTC revision 1.249 by trittweiler, Tue Aug 11 09:15:03 2009 UTC
# Line 629  compiler state." Line 629  compiler state."
629                                          :emacs-filename filename                                          :emacs-filename filename
630                                          :emacs-string string                                          :emacs-string string
631                                          :emacs-position position))                                          :emacs-position position))
632                   (funcall cont (compile-file temp-file-name))))))                   (multiple-value-bind (output-file warningsp failurep)
633                         (compile-file temp-file-name)
634                       (unless failurep
635                         (funcall cont output-file)))))))
636        (with-open-file (s temp-file-name :direction :output :if-exists :error)        (with-open-file (s temp-file-name :direction :output :if-exists :error)
637          (write-string string s))          (write-string string s))
638        (unwind-protect        (unwind-protect

Legend:
Removed from v.1.248  
changed lines
  Added in v.1.249

  ViewVC Help
Powered by ViewVC 1.1.5