[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv366

Modified Files:
	lisp-syntax-commands.lisp 
Log Message:
`com-package' assumed `package-of' would always return a valid package
object. Fixed.


--- /project/climacs/cvsroot/climacs/lisp-syntax-commands.lisp	2006/03/15 12:14:22	1.2
+++ /project/climacs/cvsroot/climacs/lisp-syntax-commands.lisp	2006/03/15 17:17:48	1.3
@@ -44,7 +44,9 @@
   (let* ((pane (current-window))
 	 (syntax (syntax (buffer pane)))
 	 (package (climacs-lisp-syntax::package-of syntax)))
-    (esa:display-message (format nil "~A" (package-name package)))))
+    (esa:display-message (format nil "~A" (if (packagep package)
+					      (package-name package)
+					      package)))))
 
 (define-command (com-fill-paragraph :name t :command-table lisp-table) ()
   )