[no subject]

[jerryb at MIT-AI (Gerald R. Barber)]

In system 27.80 nws, with microcode 663, on LISP Machine One:

In Zwei with the following code fragment with the cursor sitting in the left
most position on the line with the form (TV:KBD-INITIALIZE) a <meta>-.
causes an error: Cannot coerce (NOT (BOUNDP 'CURRENT-PROCESS)) to a string.


(DEFUN LISP-REINITIALIZE (&OPTIONAL (CALLED-BY-USER T))
  (SETQ INHIBIT-SCHEDULING-FLAG T)		;In case called by the user
  (SETQ ALPHABETIC-CASE-AFFECTS-STRING-COMPARISON NIL)
  (OR (FBOUNDP 'INTERN) (FSET 'INTERN #'INTERN-OLD))
  (OR (FBOUNDP 'FSET-CAREFULLY) (FSET 'FSET-CAREFULLY #'FSET-CAREFULLY-COLD-LOAD))
  (SETQ DEFAULT-CONS-AREA WORKING-STORAGE-AREA)	;Reset default areas.
  (AND (FBOUNDP 'NUMBER-GC-ON) (NUMBER-GC-ON))	;This seems to work now, make it the default
  (SETQ CONDITION-HANDLERS NIL)
  (COND ((NOT (BOUNDP 'CURRENT-PROCESS))	;Very first time around
	 (SETQ SCHEDULER-EXISTS NIL
	       CURRENT-PROCESS NIL
	       INHIBIT-CLOCK-INTERRUPTS NIL)
	 (TV:KBD-INITIALIZE)))			;*** PACKAGE WILL NEED TO BE FLUSHED LATER ***
  (TV:INITIALIZE-WIRED-KBD-BUFFER)		;*** PACKAGE WILL NEED TO BE FLUSHED LATER ***