[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
	* swank-allegro.lisp (swank-compile-string): Forgot to remove old
	definition in changeset 2009-05-12.

	Patch by Stelian Ionescu.


--- /project/slime/cvsroot/slime/ChangeLog	2009/05/15 18:33:50	1.1752
+++ /project/slime/cvsroot/slime/ChangeLog	2009/05/15 18:47:38	1.1753
@@ -1,5 +1,12 @@
 2009-05-15  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* swank-allegro.lisp (swank-compile-string): Forgot to remove old
+	definition in changeset 2009-05-12.
+
+	Patch by Stelian Ionescu.
+
+2009-05-15  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	Move font-lock-magic into contrib/slime-fontifying-fu.el.
 
 	* slime.el (slime-highlight-suppressed-forms),
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2009/05/12 17:37:13	1.126
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2009/05/15 18:47:38	1.127
@@ -367,28 +367,6 @@
            string)))
     (reader-error () (values nil nil t))))
 
-(defimplementation swank-compile-string (string &key buffer position filename
-                                         policy)
-  (declare (ignore policy))
-  ;; We store the source buffer in excl::*source-pathname* as a string
-  ;; of the form <buffername>;<start-offset>.  Quite ugly encoding, but
-  ;; the fasl file is corrupted if we use some other datatype.
-  (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*)))
-      (compile-from-temp-file
-       (format nil "~S ~S~%~A" 
-               `(in-package ,(package-name *package*))
-               `(eval-when (:compile-toplevel :load-toplevel)
-                  (setq excl::*source-pathname*
-                        ',(format nil "~A;~D" buffer position)))
-               string)))))
-
 ;;;; Definition Finding
 
 (defun fspec-primary-name (fspec)