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) () )