[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (swank-compile-file*): Renamed from
 compile-file-with-compile-file.

--- /project/slime/cvsroot/slime/ChangeLog	2013/01/10 11:46:42	1.2386
+++ /project/slime/cvsroot/slime/ChangeLog	2013/01/11 09:00:30	1.2387
@@ -1,3 +1,8 @@
+2013-01-11  Helmut Eller  <heller at common-lisp.net>
+
+	* swank.lisp (swank-compile-file*): Renamed from
+	compile-file-with-compile-file.
+
 2013-01-10  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-ecl.lisp (frame-var-value): Return the value without name.
--- /project/slime/cvsroot/slime/swank.lisp	2013/01/09 14:29:57	1.802
+++ /project/slime/cvsroot/slime/swank.lisp	2013/01/11 09:00:30	1.803
@@ -2421,9 +2421,8 @@
                                    :loadp (if loadp t)
                                    :faslfile faslfile))))))
 
-(defun compile-file-with-compile-file (pathname load-p &rest options
-                                       &key policy
-                                       &allow-other-keys)
+(defun swank-compile-file* (pathname load-p &rest options &key policy
+                                                      &allow-other-keys)
   (multiple-value-bind (output-pathname warnings? failure?)
       (swank-compile-file pathname
                           (fasl-pathname pathname options)
@@ -2434,7 +2433,7 @@
     (declare (ignore warnings?))
     (values t (not failure?) load-p output-pathname)))
 
-(defvar *compile-file-for-emacs-hook* '(compile-file-with-compile-file))
+(defvar *compile-file-for-emacs-hook* '(swank-compile-file*))
 
 (defslimefun compile-file-for-emacs (filename load-p &rest options)
   "Compile FILENAME and, when LOAD-P, load the result.
@@ -2452,6 +2451,8 @@
                  (when tried
                    (return (values success load? output-pathname))))))))))
 
+;; FIXME: now that *compile-file-for-emacs-hook* is there this is
+;; redundant and confusing.
 (defvar *fasl-pathname-function* nil
   "In non-nil, use this function to compute the name for fasl-files.")