[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv9448

Modified Files:
	swank.lisp 
Log Message:
(guess-package-from-string): Handle #. forms.
(inspect-for-emacs standard-class): Handle non-string :documentation
slot contents.


--- /project/slime/cvsroot/slime/swank.lisp	2006/10/16 19:58:45	1.405
+++ /project/slime/cvsroot/slime/swank.lisp	2006/10/17 10:48:54	1.406
@@ -1371,7 +1371,11 @@
         (find-package name))))
 
 (defun guess-package-from-string (name &optional (default-package *package*))
-  (or (and name
+  (or (and (> (length name) 2)
+              (equal "#." (subseq name 0 2))
+              (ignore-errors
+                (find-package (read-from-string name))))
+      (and name
            (or (parse-package name)
                (find-package (string-upcase name))
                (parse-package (substitute #\- #\! name))))
@@ -4384,8 +4388,9 @@
                                       (swank-mop:slot-definition-name slot)))))
                   '("#<N/A (class not finalized)>"))
             (:newline)
-            ,@(when (documentation class t)
-                `("Documentation:" (:newline) ,(documentation class t) (:newline)))
+            ,@(let ((doc (documentation class t)))
+                (when doc
+                  `("Documentation:" (:newline) ,(inspector-princ doc) (:newline))))
             "Sub classes: "
             ,@(common-seperated-spec (swank-mop:class-direct-subclasses class)
                                      (lambda (sub)