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