/[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.120 by trittweiler, Tue Dec 30 18:57:54 2008 UTC revision 1.121 by heller, Thu Jan 8 10:33:43 2009 UTC
# Line 315  Line 315 
315             (delete-file binary-filename))             (delete-file binary-filename))
316           (not failure?)))))           (not failure?)))))
317    
318  (defimplementation swank-compile-string (string &key buffer position directory  (defimplementation swank-compile-string (string &key buffer position filename
319                                                  policy)                                           policy)
320    (declare (ignore policy))    (declare (ignore policy))
321    ;; We store the source buffer in excl::*source-pathname* as a string    ;; We store the source buffer in excl::*source-pathname* as a string
322    ;; of the form <buffername>;<start-offset>.  Quite ugly encoding, but    ;; of the form <buffername>;<start-offset>.  Quite ugly encoding, but
# Line 326  Line 326 
326            (*buffer-start-position* position)            (*buffer-start-position* position)
327            (*buffer-string* string)            (*buffer-string* string)
328            (*default-pathname-defaults*            (*default-pathname-defaults*
329             (if directory (merge-pathnames (pathname directory))             (if directory (merge-pathnames (pathname filename))
330                 *default-pathname-defaults*)))                 *default-pathname-defaults*)))
331        (compile-from-temp-file        (compile-from-temp-file
332         (format nil "~S ~S~%~A"         (format nil "~S ~S~%~A"
333                 `(in-package ,(package-name *package*))                 `(in-package ,(package-name *package*))
334                 `(eval-when (:compile-toplevel :load-toplevel)                 `(eval-when (:compile-toplevel :load-toplevel)
335                   (setq excl::*source-pathname*                    (setq excl::*source-pathname*
336                    ',(format nil "~A;~D" buffer position)))                          ',(or filename (format nil "~A;~D" buffer position))))
337                 string)))))                 string)))))
338    
339  ;;;; Definition Finding  ;;;; Definition Finding

Legend:
Removed from v.1.120  
changed lines
  Added in v.1.121

  ViewVC Help
Powered by ViewVC 1.1.5