[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv4559

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (pathname-as-directory): Treat "/foo/bar" and "/foo/bar/"
the same.
(compile-file-output): Use the above function.


--- /project/slime/cvsroot/slime/ChangeLog	2010/01/28 09:52:18	1.1973
+++ /project/slime/cvsroot/slime/ChangeLog	2010/01/30 15:44:50	1.1974
@@ -1,3 +1,9 @@
+2010-01-30  Stas Boukarev  <stassats at gmail.com>
+
+	* swank.lisp (pathname-as-directory): Treat "/foo/bar" and "/foo/bar/"
+	the same.
+	(compile-file-output): Use the above function.
+
 2010-01-28  Mark Evenson  <evenson at dada.local>
 
 	* swank-abcl.lisp (emacs-inspect): Make inspection of Java objects
--- /project/slime/cvsroot/slime/swank.lisp	2010/01/20 18:10:40	1.686
+++ /project/slime/cvsroot/slime/swank.lisp	2010/01/30 15:44:50	1.687
@@ -2670,8 +2670,13 @@
 (defvar *fasl-pathname-function* nil
   "In non-nil, use this function to compute the name for fasl-files.")
 
+(defun pathname-as-directory (pathname)
+  (append (pathname-directory pathname)
+          (when (pathname-name pathname)
+            (list (file-namestring pathname)))))
+
 (defun compile-file-output (file directory)
-  (make-pathname :directory directory
+  (make-pathname :directory (pathname-as-directory directory)
                  :defaults (compile-file-pathname file)))
 
 (defun fasl-pathname (input-file options)