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

Diff of /slime/swank-allegro.lisp

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

revision 1.50 by heller, Wed Aug 18 21:19:27 2004 UTC revision 1.51 by pseibel, Sat Aug 28 02:27:08 2004 UTC
# Line 239  Line 239 
239           (when binary-filename           (when binary-filename
240             (delete-file binary-filename))))))             (delete-file binary-filename))))))
241    
242  (defimplementation swank-compile-string (string &key buffer position)  (defimplementation swank-compile-string (string &key buffer position directory)
243    ;; We store the source buffer in excl::*source-pathname* as a string    ;; We store the source buffer in excl::*source-pathname* as a string
244    ;; of the form <buffername>;<start-offset>.  Quite ugly encoding, but    ;; of the form <buffername>;<start-offset>.  Quite ugly encoding, but
245    ;; the fasl file is corrupted if we use some other datatype.    ;; the fasl file is corrupted if we use some other datatype.
246    (with-compilation-hooks ()    (with-compilation-hooks ()
247      (let ((*buffer-name* buffer)      (let ((*buffer-name* buffer)
248            (*buffer-start-position* position)            (*buffer-start-position* position)
249            (*buffer-string* string))            (*buffer-string* string)
250              (*default-pathname-defaults*
251               (if directory (merge-pathnames (pathname directory))
252                   *default-pathname-defaults*)))
253        (compile-from-temp-file        (compile-from-temp-file
254         (format nil "~S ~S~%~A"         (format nil "~S ~S~%~A"
255                 `(in-package ,(package-name *package*))                 `(in-package ,(package-name *package*))

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

  ViewVC Help
Powered by ViewVC 1.1.5