[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
(fspec-definition-locations): Improve handling of (:internal ... n)
like fspecs.


--- /project/slime/cvsroot/slime/swank-allegro.lisp	2006/07/28 15:04:53	1.89
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2006/08/10 18:55:51	1.90
@@ -407,7 +407,10 @@
       (list
        (list (list nil fspec)
              (make-location (list :buffer file)
-                            (list :position position))))))
+                            (list :position position t))))))
+   ((and (listp fspec) (eq (car fspec) :internal))
+    (destructuring-bind (_internal next _n) fspec
+      (fspec-definition-locations next)))
    (t
     (let ((defs (excl::find-source-file fspec)))
       (if (null defs)