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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(inspect-for-emacs (symbol)): Handle non-interned symbols.
Date: Thu Dec  2 18:11:51 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.267 slime/swank.lisp:1.268
--- slime/swank.lisp:1.267	Mon Nov 29 18:31:53 2004
+++ slime/swank.lisp	Thu Dec  2 18:11:50 2004
@@ -2752,12 +2752,15 @@
 			 symbol 'compiler-macro)
 	;;
 	;; Package
-	`("It is " ,(string-downcase (string status)) " to the package: "
-		   (:value ,package ,(package-name package))
-		   ,@(if (eq :internal status) 
-			 `((:action " [export it]"
-				    ,(lambda () (export symbol package)))))
-		   (:newline))
+        (if package
+            `("It is " ,(string-downcase (string status)) 
+                       " to the package: "
+                       (:value ,package ,(package-name package))
+                       ,@(if (eq :internal status) 
+                             `((:action " [export it]"
+                                        ,(lambda () (export symbol package)))))
+                       (:newline))
+            '("It is a non-interned symbol." (:newline)))
 	;;
 	;; Plist
 	(label-value-line "Property list" (symbol-plist symbol))