Description: Adapt CLISP backend to the removal of xref.lisp (which is nonfree)
Forwarded: not-needed
Last-Update: 2018-01-10
---
This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
--- a/swank-loader.lisp
+++ b/swank-loader.lisp
@@ -45,7 +45,7 @@
   #+clozure '(metering (swank ccl) (swank gray))
   #+lispworks '((swank lispworks) (swank gray))
   #+allegro '((swank allegro) (swank gray))
-  #+clisp '(xref metering (swank clisp) (swank gray))
+  #+clisp '(metering (swank clisp) (swank gray))
   #+armedbear '((swank abcl))
   #+cormanlisp '((swank corman) (swank gray))
   #+ecl '((swank ecl) (swank gray))
--- a/swank/clisp.lisp
+++ b/swank/clisp.lisp
@@ -715,27 +715,6 @@ Execute BODY with NAME's function slot s
                              (format nil "(~S () ~A)" 'lambda string))))
       t)))
 
-;;;; Portable XREF from the CMU AI repository.
-
-(setq pxref::*handle-package-forms* '(cl:in-package))
-
-(defmacro defxref (name function)
-  `(defimplementation ,name (name)
-    (xref-results (,function name))))
-
-(defxref who-calls      pxref:list-callers)
-(defxref who-references pxref:list-readers)
-(defxref who-binds      pxref:list-setters)
-(defxref who-sets       pxref:list-setters)
-(defxref list-callers   pxref:list-callers)
-(defxref list-callees   pxref:list-callees)
-
-(defun xref-results (symbols)
-  (let ((xrefs '()))
-    (dolist (symbol symbols)
-      (push (fspec-location symbol symbol) xrefs))
-    xrefs))
-
 (when (find-package :swank-loader)
   (setf (symbol-function (intern "USER-INIT-FILE" :swank-loader))
         (lambda ()