[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	lisp-syntax.lisp 
Log Message:
Oops again. Apparently the `package' presentation type was from the
McCLIM Listener.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/08/28 17:22:58	1.110
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/09/02 19:38:29	1.111
@@ -139,7 +139,8 @@
                                         ; as something.
   (let ((package-name (provided-package-name-at-mark syntax (point pane))))
     (if (find-package package-name)
-        (present (find-package package-name) 'package :stream stream)
+        (with-output-as-presentation (stream (find-package package-name) 'expression)
+          (princ package-name stream))
         (with-text-face (stream :italic)
           (princ package-name stream)))))