[slime-cvs] CVS update: slime/swank-cmucl.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv14656

Modified Files:
	swank-cmucl.lisp 
Log Message:
((resolve-note-location t nil nil nil nil)) Don't be too clever.

(compile-file-for-emacs): Use the :load argument to compile-file.

(inspect-in-frame): Deleted.
Date: Wed Mar  3 02:28:48 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.73 slime/swank-cmucl.lisp:1.74
--- slime/swank-cmucl.lisp:1.73	Mon Mar  1 04:02:15 2004
+++ slime/swank-cmucl.lisp	Wed Mar  3 02:28:48 2004
@@ -339,15 +339,17 @@
                                   (pos (eql nil)) 
                                   (path (eql nil))
                                   (source (eql nil)))
+  (list :error "No error location available")
+  #+(or)
   (cond (buffer
          (make-location (list :buffer buffer) 
                         (list :position *buffer-start-position*)))
         (*compile-file-truename*
          (make-location (list :file (namestring *compile-file-truename*))
-                        (list :position 0)))
+                        (list :source-path '(0) 1)))
         (*compile-filename*
          (make-location (list :file *compile-filename*)
-                        (list :position 0)))
+                        (list :source-path '(0) 1)))
         (t 
          (list :error "No error location available"))))
 
@@ -365,9 +367,7 @@
   (with-compilation-hooks ()
     (let ((*buffer-name* nil)
           (*compile-filename* filename))
-      (let ((fasl-file (compile-file filename)))
-        (when (and load-p fasl-file)
-          (load fasl-file))))))
+      (compile-file filename :load load-p))))
 
 (defimplementation compile-string-for-emacs (string &key buffer position)
   (with-compilation-hooks ()
@@ -1026,10 +1026,6 @@
   (swank-pprint 
    (multiple-value-list
     (di:eval-in-frame (nth-frame index) (from-string string)))))
-
-(defslimefun inspect-in-frame (string index)
-  (reset-inspector)
-  (inspect-object (di:eval-in-frame (nth-frame index) (from-string string))))
 
 (defimplementation frame-locals (index)
   (let* ((frame (nth-frame index))