[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	lisp-syntax-commands.lisp 
Log Message:
Fix `com-package'.


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