[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv8255

Modified Files:
	swank-sbcl.lisp 
Log Message:


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/09/20 17:52:32	1.164
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/09/20 18:37:01	1.165
@@ -309,7 +309,7 @@
          (make-location (list :source-form source)
                         (list :position 1)))
         (t
-         (error "unhandled case"))))
+         (error "unhandled case in compiler note ~S ~S ~S" file source-path source))))
 
 (defun brief-compiler-message-for-emacs (condition)
   "Briefly describe a compiler error for Emacs.
@@ -692,7 +692,7 @@
 (defun fallback-source-location (code-location)
   (let ((fun (code-location-debug-fun-fun code-location)))
     (cond (fun (function-source-location fun))
-          (t (error "Cannot find source location for: ~A " code-location)))))
+          (t (abort-request "Cannot find source location for: ~A " code-location)))))
 
 (defun lisp-source-location (code-location)
   (let ((source (prin1-to-string