[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
- To: (BUG LISPM) at MIT-AI
- From: jerryb at MIT-AI (Gerald R. Barber)
- Date: Wed ,14 May 80 20:49:00 EDT
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 ***