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

[Luke Gorrie]

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

Modified Files:
	xref.lisp swank-clisp.lisp 
Log Message:
Renamed XREF package to PXREF (P for portable). This makes it possible
to load the package in e.g. CMUCL, which is nice because it's a good
package.

Date: Sun May 16 20:25:25 2004
Author: lgorrie

Index: slime/xref.lisp
diff -u slime/xref.lisp:1.1 slime/xref.lisp:1.2
--- slime/xref.lisp:1.1	Fri Jan  2 03:17:15 2004
+++ slime/xref.lisp	Sun May 16 20:25:24 2004
@@ -653,7 +653,7 @@
 ;;; List Callers ***************************************************
 ;;; ****************************************************************
 
-(defpackage :xref
+(defpackage :pxref
   (:use :common-lisp)
   (:export #:list-callers 
 	   #:list-users 
@@ -690,7 +690,7 @@
 	   #:psgraph-xref
 	   ))
 
-(in-package "XREF")
+(in-package "PXREF")
 
 ;;; Warn user if they're loading the source instead of compiling it first.
 ;(eval-when (compile load eval)


Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.31 slime/swank-clisp.lisp:1.32
--- slime/swank-clisp.lisp:1.31	Fri May  7 17:11:18 2004
+++ slime/swank-clisp.lisp	Sun May 16 20:25:24 2004
@@ -359,18 +359,18 @@
 
 ;;; Portable XREF from the CMU AI repository.
 
-(setq xref::*handle-package-forms* '(cl:in-package))
+(setq pxref::*handle-package-forms* '(cl:in-package))
 
 (defmacro defxref (name function)
   `(defimplementation ,name (name)
     (xref-results (,function name))))
 
-(defxref who-calls      xref:list-callers)
-(defxref who-references xref:list-readers)
-(defxref who-binds      xref:list-setters)
-(defxref who-sets       xref:list-setters)
-(defxref list-callers   xref:list-callers)
-(defxref list-callees   xref:list-callees)
+(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 '()))