bug when argument prompt delay is nil

[Steven C. Bagley <bagley at OZ>]

In Symbolics 3600 Release 6.0, IP-TCP 29.0, AISite 8.4,
microcode TMC5-MIC 319, FEP 18, on Lisp Machine Robot-1:

if you Set Variable argument prompt delay to nil, and then give a
control-X command, the editor blows out as follows:


>>Trap: The second argument given to the SYS:INTERNAL-< instruction, NIL, was not a single-precision floating-point number, a fixnum, or an extended number.
While in the function TIME-ELAPSED-P  (:INTERNAL TV:KBD-IO-BUFFER-INPUT-WAIT 0)  PROCESS-WAIT

TIME-ELAPSED-P:  (P.C. = 6)
   Arg 0 (INCREMENT): NIL
   Arg 1 (INITIAL-TIME): 2335502
   --Defaulted args:--
   Arg 2 (FINAL-TIME): 2335502

(:INTERNAL TV:KBD-IO-BUFFER-INPUT-WAIT 0):  (P.C. = 5)
   Arg 0 (BUFFER): #<IO-BUFFER 121156015: empty, State: NIL>
   Arg 1 (FUNCTION): #<DTP-COMPILED-FUNCTION TIME-ELAPSED-P 2213023>
   Arg 2 (ARGUMENTS): (NIL 2335502)

PROCESS-WAIT:  (P.C. = 10)
   Arg 0 (WHOSTATE): "Typeahead"
   Arg 1 (FUNCTION): #<DTP-COMPILED-FUNCTION (:INTERNAL TV:KBD-IO-BUFFER-INPUT-WAIT 0) 22405612>
   Rest arg (ARGUMENTS): (#<IO-BUFFER 121156015: empty, State: NIL> #<DTP-COMPILED-FUNCTION TIME-ELAPSED-P 2213023> (NIL 2335502))

TV:KBD-IO-BUFFER-INPUT-WAIT:  (P.C. = 34)
   Arg 0 (BUFFER): #<IO-BUFFER 121156015: empty, State: NIL>
   Arg 1 (WHOSTATE): "Typeahead"
   Arg 2 (FUNCTION): #<DTP-COMPILED-FUNCTION TIME-ELAPSED-P 2213023>
   Rest arg (ARGUMENTS): (NIL 2335502)

(:METHOD TV:STREAM-MIXIN :INPUT-WAIT):  (P.C. = 23)
   Arg 0 (SELF): #<ZMACS-WINDOW-PANE Zmacs Window Pane 1 43240666 exposed>
   Arg 1 (SELF-MAPPING-TABLE): #<Map to flavor TV:STREAM-MIXIN -- 1. IV's, 0. FL's 104335410>
   Arg 2 (OPERATION): :INPUT-WAIT
   Arg 3 (WHOSTATE): "Typeahead"
   Arg 4 (FUNCTION): #<DTP-COMPILED-FUNCTION TIME-ELAPSED-P 2213023>
   Rest arg (ARGUMENTS): (NIL 2335502)

(:INTERNAL (:METHOD ZWEI:ZWEI-WITH-TYPEOUT :COMBINED :INPUT-WAIT) 0):  (P.C. = 11)
   Arg 0 (SELF): #<ZMACS-WINDOW-PANE Zmacs Window Pane 1 43240666 exposed>
   Arg 1 (SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZWEI-WITH-TYPEOUT -- 3. IV's, 16. FL's 104335422>
   Arg 2 (.OPERATION.): :INPUT-WAIT
   Rest arg (.DAEMON-CALLER-ARGS.): ("Typeahead" #<DTP-COMPILED-FUNCTION TIME-ELAPSED-P 2213023> NIL 2335502)

(:METHOD SI:INTERACTIVE-STREAM :WHOPPER :INPUT-WAIT):  (P.C. = 25)
   Arg 0 (SELF): #<ZMACS-WINDOW-PANE Zmacs Window Pane 1 43240666 exposed>
   Arg 1 (SELF-MAPPING-TABLE): #<Map to flavor SI:INTERACTIVE-STREAM -- 20. IV's, 2. FL's 104333625>
   Arg 2 (.WHOPPER-CONTINUATION.): #<DTP-COMPILED-FUNCTION (:INTERNAL (:METHOD ZWEI:ZWEI-WITH-TYPEOUT :COMBINED :INPUT-WAIT) 0) 31730143>
   Arg 3 (.OLD-SELF-MAPPING-TABLE.): #<Map to flavor ZWEI:ZWEI-WITH-TYPEOUT -- 3. IV's, 16. FL's 104335422>
   Arg 4 (.OPERATION.): :INPUT-WAIT
   Arg 5 (WHOSTATE): "Typeahead"
   Arg 6 (FUNCTION): #<DTP-COMPILED-FUNCTION TIME-ELAPSED-P 2213023>
   Rest arg (ARGUMENTS): (NIL 2335502)

(:METHOD ZWEI:ZWEI-WITH-TYPEOUT :COMBINED :INPUT-WAIT):  (P.C. = 13)
   Arg 0 (SELF): #<ZMACS-WINDOW-PANE Zmacs Window Pane 1 43240666 exposed>
   Arg 1 (SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZWEI-WITH-TYPEOUT -- 3. IV's, 16. FL's 104335422>
   Arg 2 (.OPERATION.): :INPUT-WAIT
   Rest arg (.DAEMON-CALLER-ARGS.): ("Typeahead" #<DTP-COMPILED-FUNCTION TIME-ELAPSED-P 2213023> NIL 2335502)

Rest of stack:
(:INTERNAL ZWEI:RECORDING-STREAM 2 (:INPUT-WAIT)):  (P.C. = 12)
ZWEI:RECORDING-STREAM:  (P.C. = 32)
Closure of ZWEI:RECORDING-STREAM:
(:INTERNAL ZWEI:MACRO-STREAM-IO 3 (:INPUT-WAIT)):  (P.C. = 11)
ZWEI:MACRO-STREAM-IO:  (P.C. = 52)
Closure of ZWEI:MACRO-STREAM-IO:
ZWEI:WAIT-FOR-POSSIBLE-TYPEAHEAD:  (P.C. = 10)
ZWEI:MAKE-EXTENDED-COMMAND-INTERNAL:  (P.C. = 5)
Closure of ZWEI:MAKE-EXTENDED-COMMAND-INTERNAL:
ZWEI:COMMAND-EXECUTE:  (P.C. = 57)
ZWEI:PROCESS-COMMAND-CHAR:  (P.C. = 14)
(:METHOD ZWEI:EDITOR :EDIT):  (P.C. = 233)
(:METHOD ZWEI:TOP-LEVEL-EDITOR :COMBINED :EDIT):  (P.C. = 60)
ZWEI:ZMACS-WINDOW-TOP-LEVEL:  (P.C. = 51)
SI:PROCESS-TOP-LEVEL:  (P.C. = 54)