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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
swank::*sysdep-pathname*: Use defparameter so that cmucl loads the fasl file.
(compiler-notes-for-emacs): Got lost during refactoring.
Date: Thu Oct 16 07:08:40 2003
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.30 slime/swank.lisp:1.31
--- slime/swank.lisp:1.30	Wed Oct 15 22:05:56 2003
+++ slime/swank.lisp	Thu Oct 16 07:08:40 2003
@@ -14,7 +14,7 @@
     (:export #:start-server)))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (defvar swank::*sysdep-pathname*
+  (defparameter swank::*sysdep-pathname*
     (merge-pathnames (or #+cmu "swank-cmucl" 
 			 #+(and sbcl sb-thread) "swank-sbcl" 
 			 #+openmcl "swank-openmcl")
@@ -22,6 +22,7 @@
 			 *default-pathname-defaults*))))
 
 (in-package :swank)
+
 (defvar *swank-io-package*
   (let ((package (make-package "SWANK-IO-PACKAGE")))
     (import '(nil t quote) package)
@@ -97,11 +98,12 @@
     (force-output *emacs-io*)))
 
 (defun prin1-to-string-for-emacs (object)
-  (let ((*print-case* :downcase)
-        (*print-readably* nil)
-        (*print-pretty* nil)
-        (*package* *swank-io-package*))
-    (prin1-to-string object)))
+  (with-standard-io-syntax
+    (let ((*print-case* :downcase)
+          (*print-readably* nil)
+          (*print-pretty* nil)
+          (*package* *swank-io-package*))
+      (prin1-to-string object))))
 
 ;;; The Reader
 
@@ -112,7 +114,6 @@
 EVAL-STRING binds *buffer-package*.  Strings originating from a slime
 buffer are best read in this package.  See also FROM-STRING and TO-STRING.")
 
-
 (defun from-string (string)
   "Read string in the *BUFFER-PACKAGE*"
   (let ((*package* *buffer-package*))
@@ -129,7 +130,6 @@
                (find-package (string-upcase name))))
       *package*))
 
-
 ;;; public interface.  slimefuns are the things that emacs is allowed
 ;;; to call
 
@@ -169,7 +169,6 @@
       (let ((*print-pretty* t)
 	    (*print-circle* t)
 	    (*print-level* nil)
-            #+cmu (ext:*gc-verbose* nil)
 	    (*print-length* nil))
 	(with-output-to-string (stream)
 	  (pprint value stream))))))
@@ -178,7 +177,6 @@
   (setq *package* (guess-package-from-string package))
   (package-name *package*))
 
-
 ;;;; Compilation Commands.
 
 (defvar *compiler-notes* '()
@@ -211,6 +209,10 @@
 \(See *NOTES-DATABASE* for a description of the return type.)"
   (gethash (canonicalize-filename filename) *notes-database*))
 
+(defslimefun compiler-notes-for-emacs ()
+  "Return the list of compiler notes for the last compilation unit."
+  (reverse *compiler-notes*))
+
 (defun measure-time-interval (fn)
   "Call FN and return the first return value and the elapsed time.
 The time is measured in microseconds."
@@ -236,7 +238,6 @@
   ;; CMUCL used ext:map-apropos here, not sure why
   (remove-if #'keywordp (apropos-list string package external-only)))
 
-
 (defun print-output-to-string (fn)
   (with-output-to-string (*standard-output*)
     (let ((*debug-io* *standard-output*))
@@ -276,4 +277,4 @@
 
 ;;; Local Variables:
 ;;; eval: (font-lock-add-keywords 'lisp-mode '(("(\\(defslimefun\\)\\s +\\(\\(\\w\\|\\s_\\)+\\)"  (1 font-lock-keyword-face) (2 font-lock-function-name-face))))
-;;; End:
+;;; End