Fix Allegro CL backend problem with temporary files.

* swank-allegro.lisp (swank-compile-string): Don't bind
*default-pathname-defaults*.

(cherry picked from SLIME commit
fc001b63)

Conflicts:
	ChangeLog

swank-allegro.lisp

@@ -498,11 +498,7 @@
       (with-compilation-hooks ()
         (let ((*buffer-name* buffer)
               (*buffer-start-position* position)
-              (*buffer-string* string)
-              (*default-pathname-defaults*
-               (if filename 
-                   (merge-pathnames (pathname filename))
-                   *default-pathname-defaults*)))
+              (*buffer-string* string))
           (compile-from-temp-file string buffer position filename)))
     (reader-error () nil)))