[slime-devel] problem with slime-pre-command-hook

[Ram Bhamidipaty]

I am having a problem with slime, xemacs and sbcl.

slime is from cvs and up to date. I'm using the
xemacs from fedora 11. With sbcl 1.0.30

The problem happens when slime is printing
function info a window at the bottom of the screen.
 At the REPL when I type

  (search

and then hit <space> slime will bring up a *SLIME Note*
window with the function info.

If I type a second <space> then some kind of xemacs
error window comes up:

(12) (command/warning) Error in `pre-command-hook' (resetting to nil):
(invalid-change (Deletion of this object not currently permitted
#<window on "*SLIME Note*" 0xeaa1c7>))

Backtrace follows:

  # bind (inhibit-quit)
  delete-windows-on(#<buffer "*SLIME Note*">)
  # bind (G59432)
  (lambda (G59432) (delete-windows-on (symbol-value G59432))
(bury-buffer (symbol-value G59432)))(--buffer--)
  apply((lambda (G59432) (delete-windows-on (symbol-value G59432))
(bury-buffer (symbol-value G59432))) --buffer-- nil)
  # bind (--cl-rest--)
  (lambda (&rest --cl-rest--) (apply (quote (lambda (G59432)
(delete-windows-on (symbol-value G59432)) (bury-buffer (symbol-value
G59432)))) (quote --buffer--) --cl-rest--))()
  funcall((lambda (&rest --cl-rest--) (apply (quote (lambda (G59432)
(delete-windows-on (symbol-value G59432)) (bury-buffer (symbol-value
G59432)))) (quote --buffer--) --cl-rest--)))
  (while --dolist-temp--59436 (setq undo-fn (car
--dolist-temp--59436)) (funcall undo-fn) (setq --dolist-temp--59436
(cdr --dolist-temp--59436)))
  # bind (undo-fn --dolist-temp--59436)
  (let ((--dolist-temp--59436 slime-pre-command-actions) undo-fn)
(while --dolist-temp--59436 (setq undo-fn (car --dolist-temp--59436))
(funcall undo-fn) (setq --dolist-temp--59436 (cdr
--dolist-temp--59436))) nil)
  # (catch --cl-block-nil-- ...)
  (catch (quote --cl-block-nil--) (let ((--dolist-temp--59436
slime-pre-command-actions) undo-fn) (while --dolist-temp--59436 (setq
undo-fn (car --dolist-temp--59436)) (funcall undo-fn) (setq
--dolist-temp--59436 (cdr --dolist-temp--59436))) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let
((--dolist-temp--59436 slime-pre-command-actions) undo-fn) (while
--dolist-temp--59436 (setq undo-fn (car --dolist-temp--59436))
(funcall undo-fn) (setq --dolist-temp--59436 (cdr
--dolist-temp--59436))) nil)))
  (block nil (let ((--dolist-temp--59436 slime-pre-command-actions)
undo-fn) (while --dolist-temp--59436 (setq undo-fn (car
--dolist-temp--59436)) (funcall undo-fn) (setq --dolist-temp--59436
(cdr --dolist-temp--59436))) nil))
  (dolist (undo-fn slime-pre-command-actions) (funcall undo-fn))
  slime-pre-command-hook()
  # (unwind-protect ...)
  # (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque, size=0) 0x845a9a8> ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (condition-case ... . error)
  # (catch top-level ...)