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