[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv18396

Modified Files:
	swank-sbcl.lisp 
Log Message:
simplify newly introduced categorize-definition-source;
gosh what was I thinking?


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/12/16 21:59:49	1.261
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/12/16 22:02:20	1.262
@@ -727,11 +727,9 @@
   (with-struct (sb-introspect::definition-source-
                    pathname form-path character-offset plist)
       definition-source
-    (when (getf plist :emacs-buffer)
-      (return-from categorize-definition-source :buffer))
-    (when (and pathname (or form-path character-offset))
-      (return-from categorize-definition-source :file))
-    :invalid))
+    (cond ((getf plist :emacs-buffer) :buffer)
+          ((and pathname (or form-path character-offset)) :file)
+          (t :invalid))))
 
 (defun definition-source-for-emacs (definition-source type name)
   (with-struct (sb-introspect::definition-source-