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

[Luke Gorrie]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
(find-fspec-location): Fixed to work for more types of definition than
just functions. So M-. now works for e.g. classes in Allegro. Patch
from Matthew Danish.

Date: Wed Aug  4 09:18:55 2004
Author: lgorrie

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.47 slime/swank-allegro.lisp:1.48
--- slime/swank-allegro.lisp:1.47	Sun Aug  1 22:23:57 2004
+++ slime/swank-allegro.lisp	Wed Aug  4 09:18:55 2004
@@ -263,7 +263,7 @@
     (list (string (second fspec)))))
 
 (defun find-fspec-location (fspec type)
-  (let ((file (excl:source-file fspec)))
+  (let ((file (excl:source-file fspec type)))
     (etypecase file
       (pathname
        (let* ((start (scm:find-definition-in-file fspec type file))