[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
Remove debugging code.


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/05/03 15:58:39	1.313
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/05/03 15:59:06	1.314
@@ -853,24 +853,24 @@
                 pathname form-path character-offset plist
                 file-write-date)
                definition-source
-    (:dbg (ecase (categorize-definition-source definition-source)
-       (:buffer-and-file
-        (definition-source-buffer-and-file-location definition-source))
-       (:buffer
-        (definition-source-buffer-location definition-source))
-       (:file
-        (definition-source-file-location definition-source))
-       (:file-without-position
-        (make-location `(:file ,(namestring 
-                                 (translate-logical-pathname pathname)))
-                       '(:position 1)
-                       (when (eql type :function)
-                         `(:snippet ,(format nil "(defun ~a " 
-                                             (symbol-name name))))))
-       (:invalid
-        (error "DEFINITION-SOURCE of ~(~A~) ~A did not contain ~
+    (ecase (categorize-definition-source definition-source)
+      (:buffer-and-file
+       (definition-source-buffer-and-file-location definition-source))
+      (:buffer
+       (definition-source-buffer-location definition-source))
+      (:file
+       (definition-source-file-location definition-source))
+      (:file-without-position
+       (make-location `(:file ,(namestring 
+                                (translate-logical-pathname pathname)))
+                      '(:position 1)
+                      (when (eql type :function)
+                        `(:snippet ,(format nil "(defun ~a " 
+                                            (symbol-name name))))))
+      (:invalid
+       (error "DEFINITION-SOURCE of ~(~A~) ~A did not contain ~
                meaningful information."
-               type name))))))
+              type name)))))
 
 (defun source-file-position (filename write-date form-path)
   (let ((source (get-source-code filename write-date))