/[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.302 by heller, Tue Mar 6 21:42:10 2012 UTC revision 1.303 by heller, Mon Mar 26 15:10:19 2012 UTC
# Line 677  QUALITIES is an alist with (quality . va Line 677  QUALITIES is an alist with (quality . va
677                      :source-namestring filename                      :source-namestring filename
678                      :allow-other-keys t)                      :allow-other-keys t)
679                   (multiple-value-bind (output-file warningsp failurep)                   (multiple-value-bind (output-file warningsp failurep)
680                       (compile-file *buffer-tmpfile*)                       (compile-file *buffer-tmpfile* :external-format :utf-8)
681                     (declare (ignore warningsp))                     (declare (ignore warningsp))
682                     (unless failurep                     (unless failurep
683                       (funcall cont output-file)))))))                       (funcall cont output-file)))))))
684        (with-open-file (s *buffer-tmpfile* :direction :output :if-exists :error)        (with-open-file (s *buffer-tmpfile* :direction :output :if-exists :error
685                             :external-format :utf-8)
686          (write-string string s))          (write-string string s))
687        (unwind-protect        (unwind-protect
688             (with-compiler-policy policy             (with-compiler-policy policy

Legend:
Removed from v.1.302  
changed lines
  Added in v.1.303

  ViewVC Help
Powered by ViewVC 1.1.5