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 @@ ...@@ -139,7 +139,8 @@
; as something. ; as something.
(let ((package-name (provided-package-name-at-mark syntax (point pane)))) (let ((package-name (provided-package-name-at-mark syntax (point pane))))
(if (find-package package-name) (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) (with-text-face (stream :italic)
(princ package-name stream))))) (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