Changeset 491


Ignore:
Timestamp:
Feb 7, 2004, 1:57:27 PM (21 years ago)
Author:
Gary Byers
Message:

Initial listener doesn't claim to be *INTERACTIVE-ABORT-PROCESS*.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-readloop.lisp

    r479 r491  
    443443                                 *initial-process*)))
    444444     #'(lambda ()
    445          (setq *interactive-abort-process*
    446                *current-process*)
    447445         (startup-ccl (and *load-lisp-init-file* init-file))
    448446         (listener-function)
Note: See TracChangeset for help on using the changeset viewer.