Commit a3215d4d authored by Troels Henriksen's avatar Troels Henriksen
Browse files

Oops again. Apparently the `package' presentation type was from the

McCLIM Listener.
parent 3ea91784
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment