diff options
Diffstat (limited to 'src/interp/spad.lisp.pamphlet')
| -rw-r--r-- | src/interp/spad.lisp.pamphlet | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/interp/spad.lisp.pamphlet b/src/interp/spad.lisp.pamphlet index 5fd8bfa8..bfd0a1be 100644 --- a/src/interp/spad.lisp.pamphlet +++ b/src/interp/spad.lisp.pamphlet @@ -104,8 +104,6 @@ (defvar |boot-NewKEY| NIL) (setq /WSNAME 'NOBOOT) (DEFVAR _ '&) -(setq $linestack 'begin_unit) -(setq $maxlinenumber 0) (defvar /EDIT-FM 'A1) (defvar /EDIT-FT 'SPAD) (defvar /RELEASE '"UNKNOWN") @@ -402,7 +400,7 @@ (defun |New,ENTRY,1| () (let (ZZ str N RLGENSYMFG RLGENSYMLST |NewFLAG| XCAPE *PROMPT* SINGLELINEMODE OK ISID NBLNK COUNT CHR ULCASEFG ($LINESTACK 'BEGIN_UNIT) - $NEWLINSTACK $TOKSTACK COMMENTCHR TOK LINE BACK INPUTSTREAM XTRANS + $TOKSTACK COMMENTCHR TOK LINE BACK INPUTSTREAM XTRANS XTOKENREADER STACK STACKX TRAPFLAG) (SETQ XTRANS '|boot-New| XTOKENREADER 'NewSYSTOK |