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

Diff of /slime/swank-ccl.lisp

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

revision 1.26 by heller, Tue Mar 6 22:04:21 2012 UTC revision 1.27 by heller, Mon Mar 26 15:09:57 2012 UTC
# Line 207  Line 207 
207        (unwind-protect        (unwind-protect
208             (progn             (progn
209               (with-open-file (s temp-file-name :direction :output               (with-open-file (s temp-file-name :direction :output
210                                  :if-exists :error)                                  :if-exists :error :external-format :utf-8)
211                 (write-string string s))                 (write-string string s))
212               (let ((binary-filename (compile-temp-file               (let ((binary-filename (compile-temp-file
213                                       temp-file-name filename buffer position)))                                       temp-file-name filename buffer position)))
# Line 226  Line 226 
226                        (setf (gethash temp-file-name *temp-file-map*)                        (setf (gethash temp-file-name *temp-file-map*)
227                              buffer-name)                              buffer-name)
228                        temp-file-name))                        temp-file-name))
229                  :compile-file-original-buffer-offset (1- offset)))                  :compile-file-original-buffer-offset (1- offset)
230                    :external-format :utf-8))
231    
232  (defimplementation save-image (filename &optional restart-function)  (defimplementation save-image (filename &optional restart-function)
233    (ccl:save-application filename :toplevel-function restart-function))    (ccl:save-application filename :toplevel-function restart-function))

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5