[slime-cvs] CVS update: slime/present.lisp

[Matthias Koeppe]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv9061

Modified Files:
	present.lisp 
Log Message:
(menu-choices-for-presentation-id): Check against
the gensym in *not-present* instead of :non-present.

Date: Sun Aug 21 18:28:49 2005
Author: mkoeppe

Index: slime/present.lisp
diff -u slime/present.lisp:1.11 slime/present.lisp:1.12
--- slime/present.lisp:1.11	Sun Aug 14 17:43:33 2005
+++ slime/present.lisp	Sun Aug 21 18:28:48 2005
@@ -167,7 +167,7 @@
 
 (defun menu-choices-for-presentation-id (id)
   (let ((ob (lookup-presented-object id)))
-    (if (eq ob :not-present)
+    (if (eq ob *not-present*)
 	'not-present
 	(let ((menu-and-actions (menu-choices-for-presentation ob)))
 	  (setq *presentation-active-menu* (cons id menu-and-actions))