[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (swank-compile-string): Don't use the
no-longer-existing directory argument.

--- /project/slime/cvsroot/slime/ChangeLog	2009/01/08 16:20:14	1.1656
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/09 07:12:55	1.1657
@@ -1,3 +1,8 @@
+2009-01-09  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-allegro.lisp (swank-compile-string): Don't use the
+	no-longer-existing directory argument.
+
 2009-01-08  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el: Move the tree widget for compiler notes to contrib/.
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2009/01/08 10:33:43	1.121
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2009/01/09 07:12:56	1.122
@@ -326,14 +326,15 @@
           (*buffer-start-position* position)
           (*buffer-string* string)
           (*default-pathname-defaults*
-           (if directory (merge-pathnames (pathname filename))
+           (if filename 
+               (merge-pathnames (pathname filename))
                *default-pathname-defaults*)))
       (compile-from-temp-file
        (format nil "~S ~S~%~A" 
                `(in-package ,(package-name *package*))
                `(eval-when (:compile-toplevel :load-toplevel)
                   (setq excl::*source-pathname*
-                        ',(or filename (format nil "~A;~D" buffer position))))
+                        ',(format nil "~A;~D" buffer position)))
                string)))))
 
 ;;;; Definition Finding