I met a problem when using hemlock which let me can't reopen hemlock
window.
*(require :hemlock)
; Loading #p"/usr/local/lib/cmucl/lib/subsystems/hemlock-library.x86f".
;; Loading #p"/usr/local/lib/cmucl/lib/subsystems/clx-library.x86f".
T
*(ed)
after the hemlock window pop on,
then I type C-x C-z exit hemlock,and then close the hemlock window
with mouse,
if I retype (ed) in top-level repl, error happens:
T
*(ed)
End-of-File on #<Stream for descriptor 5>
Restarts:
0: [ABORT] Return to Top-Level.
Debug (type H for help)
(COMMON-LISP::FD-STREAM-READ-N-BYTES #<Stream for descriptor 5>
#(12 1 144 0 15 ...)
0
32
...)
Source:
; File: target:code/fd-stream.lisp
; File has been modified since compilation:
; target:code/fd-stream.lisp
; Using form offset instead of character position.
(AND EOF-ERROR-P (ZEROP COUNT))
0] backtrace
0: (COMMON-LISP::FD-STREAM-READ-N-BYTES #<Stream for descriptor 5>
#(12 1 144 0 15 ...)
0
32
...)
1: (XLIB::BUFFER-READ-DEFAULT #<unavailable-arg>
#<unavailable-arg>
#<unavailable-arg>
#<unavailable-arg>
...)
2: (XLIB::BUFFER-INPUT
#<XLIB:DISPLAY localhost:10 (NetSarang Computer, Inc. R1396)>
#(12 1 144 0 15 ...)
0
32
...)
3: (XLIB::READ-INPUT
#<XLIB:DISPLAY localhost:10 (NetSarang Computer, Inc. R1396)>
0
T
#<Function "DEFUN WAIT-FOR-EVENT" {48F42E91}>
...)
4: (XLIB::WAIT-FOR-EVENT
#<XLIB:DISPLAY localhost:10 (NetSarang Computer, Inc. R1396)>
0
T)
5: (XLIB::EVENT-LOOP-STEP-BEFORE
#<XLIB:DISPLAY localhost:10 (NetSarang Computer, Inc. R1396)>
0
T
#:G891)
6: (FLUSH-DISPLAY-EVENTS
#<XLIB:DISPLAY localhost:10 (NetSarang Computer, Inc. R1396)>)
7: (HEMLOCK-INTERNALS::INIT-BITMAP-DEVICE
#<Hemlock Device "Windowed Bitmap Device">)
8: (C::DO-CALL #<Code Object "DEFUN ED" {492A2D07}> 710 711 8 ...)
9: (C::BYTE-UNWIND-PROTECT-XOP #<Code Object "DEFUN ED" {492A2D07}>
#<unused-arg>
61
8)
10: (C::BYTE-CATCH-XOP #<Code Object "DEFUN ED" {492A2D07}>
#<unused-arg> 56 8)
11: (INTERACTIVE-EVAL (ED))
12: (COMMON-LISP::%TOP-LEVEL)
13: (COMMON-LISP::RESTART-LISP)
0]
if I close window of hemlock directly with mouse(didn't type C-x C-z
),another error message happens:
* (ed)
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
NIL is not of type SYSTEM:FD-STREAM
Restarts:
0: [ABORT] Return to Top-Level.
Debug (type H for help)
(DISABLE-CLX-EVENT-HANDLING
#<XLIB:DISPLAY localhost:10 (NetSarang Computer, Inc. R1396)>)
Source:
; File: target:code/clx-ext.lisp
; File has been modified since compilation:
; target:code/clx-ext.lisp
; Using form offset instead of character position.
(FD-STREAM-FD (XLIB::DISPLAY-INPUT-STREAM DISPLAY))
0]
