#18 ilisp, sbcl, buried buffer and *output*

[Adam Di Carlo]

Using ilisp with sbcl, if the *sbcl* buffer is buried
and I do
compile-defun-ilisp I get the following error, with full
backtrace:

Debugger entered--Lisp error: (error "No buffer named
*Output*")

ilisp-bury-output-internal([cl-struct-ilisp-output-sink
" *Output*" nil "ILISP Output" ilisp-output-mode
ilisp-output-mode-line t lisp-mode 2 25 5 70])
lisp-pop-to-buffer(#<buffer *sbcl*>
[cl-struct-ilisp-output-sink " *Output*" nil "ILISP
Output" ilisp-output-mode ilisp-output-mode-line t
lisp-mode 2 25 5 70])
ilisp-display-output-in-lisp-listener("STYLE-WARNING:
redefining DESTROY-DIRECTORY in
DEFUN\nODCL:DESTROY-DIRECTORY"
[cl-struct-ilisp-output-sink " *Output*" nil "ILISP
Output" ilisp-output-mode ilisp-output-mode-line t
lisp-mode 2 25 5 70])
ilisp-display-output-default("STYLE-WARNING:
redefining DESTROY-DIRECTORY in
DEFUN\nODCL:DESTROY-DIRECTORY"
[cl-struct-ilisp-output-sink " *Output*" nil "ILISP
Output" ilisp-output-mode ilisp-output-mode-line t
lisp-mode 2 25 5 70])
lisp-display-output("STYLE-WARNING: redefining
DESTROY-DIRECTORY in DEFUN\nODCL:DESTROY-DIRECTORY")
compile-defun-lisp()
call-interactively(compile-defun-lisp)
recursive-edit()
byte-code("�!�� �� !�\n�?