[slime-devel] XREF failure on ACL 7.0

[Julian Stecklina]

Hello,

using stuff like C-c C-w resulted in an error with Allegro CL 7.0
because in fspec-definition-locations in swank-allegro.lisp the
destructuring-bind was given a list without position element. A quick
fix is:

Index: swank-allegro.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-allegro.lisp,v
retrieving revision 1.87
diff -u -r1.87 swank-allegro.lisp
--- swank-allegro.lisp  4 May 2006 14:38:07 -0000       1.87
+++ swank-allegro.lisp  15 May 2006 20:39:32 -0000
@@ -402,8 +402,10 @@
 (defun fspec-definition-locations (fspec)
   (cond
    ((and (listp fspec)
-         (eql (car fspec) :top-level-form))
-    (destructuring-bind (top-level-form file position) fspec 
+         (eql (car fspec) :top-level-form)
+         (= (length fspec) 3))
+    (destructuring-bind (top-level-form file position) fspec
+      (declare (ignore top-level-form))
       (list
        (list (list nil fspec)
              (make-location (list :buffer file)

Regards,
-- 
Julian Stecklina

"I object to doing things that computers can do." - Olin Shivers