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

[Luke Gorrie]

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

Modified Files:
	swank-loader.lisp 
Log Message:
(binary-pathname): Place fasl files under ~/.slime/fasl/ (or _slime in
win32) instead of the SLIME installation directory. The installation
directory can now be read-only.

Date: Thu Jun 17 09:04:52 2004
Author: lgorrie

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.26 slime/swank-loader.lisp:1.27
--- slime/swank-loader.lisp:1.26	Wed Jun 16 13:25:46 2004
+++ slime/swank-loader.lisp	Thu Jun 17 09:04:52 2004
@@ -58,9 +58,15 @@
   (> (file-write-date new-file) (file-write-date old-file)))
 
 (defun binary-pathname (source-pathname)
-  (merge-pathnames
-   (make-pathname :directory `(:relative "fasl" ,*lisp-name*))
-   (merge-pathnames (compile-file-pathname source-pathname))))
+  "Return the pathname where SOURCE-PATHNAME's binary should be compiled."
+  (let ((cfp (compile-file-pathname source-pathname)))
+    (merge-pathnames (make-pathname
+                      :directory `(:relative #-mswindows ".slime"
+                                   #+mswindows "_slime"
+                                   "fasl" ,*lisp-name*)
+                      :name (pathname-name cfp)
+                      :type (pathname-type cfp))
+                     (user-homedir-pathname))))
 
 (defun compile-files-if-needed-serially (files)
   "Compile each file in FILES if the source is newer than