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

Diff of /slime/swank-lispworks.lisp

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

revision 1.1 by heller, Thu Nov 27 00:36:36 2003 UTC revision 1.2 by heller, Fri Nov 28 14:28:17 2003 UTC
# Line 296  able to return the file name in which th Line 296  able to return the file name in which th
296      (delete-file filename)))      (delete-file filename)))
297    
298  (defun make-dspec-location (dspec filename &optional tmpfile buffer position)  (defun make-dspec-location (dspec filename &optional tmpfile buffer position)
299    (list :dspec (cond ((and tmpfile (pathname-match-p filename tmpfile))    (list :dspec
300                        (list :buffer buffer position))          (cond ((and tmpfile (pathname-match-p filename tmpfile))
301                       (t (list :file (namestring filename))))                 (list :buffer buffer position))
302                  (t
303                   (let ((name (namestring (translate-logical-pathname filename))))
304                     (list :file name))))
305          (string (etypecase dspec          (string (etypecase dspec
306                    (symbol dspec)                    (symbol dspec)
307                    (cons (dspec:dspec-primary-name dspec))))))                    (cons (dspec:dspec-primary-name dspec))))))
# Line 321  able to return the file name in which th Line 324  able to return the file name in which th
324                  (make-dspec-location dspec filename tmpfile buffer position)                  (make-dspec-location dspec filename tmpfile buffer position)
325                  nil)))                  nil)))
326             htab))             htab))
327    
328  (defmethod compile-string-for-emacs (string &key buffer position)  (defmethod compile-string-for-emacs (string &key buffer position)
329    (assert buffer)    (assert buffer)
330    (assert position)    (assert position)
# Line 330  able to return the file name in which th Line 333  able to return the file name in which th
333          (tmpname (hcl:make-temp-file nil "lisp")))          (tmpname (hcl:make-temp-file nil "lisp")))
334      (with-compilation-unit ()      (with-compilation-unit ()
335        (compile-from-temp-file string tmpname)        (compile-from-temp-file string tmpname)
336          (format t "~A~%" compiler:*messages*)
337        (signal-error-data-base        (signal-error-data-base
338         compiler::*error-database* tmpname buffer position)         compiler::*error-database* tmpname buffer position)
339        (signal-undefined-functions compiler::*unknown-functions*        (signal-undefined-functions compiler::*unknown-functions*
340                                    tmpname tmpname buffer position))))                                    tmpname tmpname buffer position))))
341    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5