1 line
379 B
Plaintext
1 line
379 B
Plaintext
"
|
|
(SETQ SI::*CLOSURE-CACHE-ENABLED* NIL)
|
|
(QUOTE (\\TEDIT.BLTCHAR \\MAIKO.PUNTBLTCHAR SI::*CLOSURE-CACHE* XCL::*DELETED-IMPLICIT-HASH-SLOT* ))
|
|
(MOVD? (QUOTE NILL) (QUOTE PROMPTPRINT))
|
|
(MOVD? (QUOTE NILL) (QUOTE CURSORP))
|
|
(MOVD? (QUOTE NILL) (QUOTE CHANGEBACKGROUNDBORDER))
|
|
(MOVD (QUOTE \ETHEREVENTFN) (QUOTE \ETHEREVENTFN-))
|
|
(MOVD (QUOTE NILL) (QUOTE \ETHEREVENTFN))
|
|
(LOGOUT)
|
|
"
|