[slime-devel] XREF failure on ACL 7.0
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
participants (1)
-
Julian Stecklina