From b4512335b01d5d2cd345f0b95ca08fb5191cad03 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 3 Sep 2007 11:22:38 +0000 Subject: * bootfuns.lisp.pamphlet ($TOP_LEVEL): Move to sys-globals.boot. ($TOKSTACK): Likewise. ($function): Likewise. ($FUNNAME): Likewise. ($FunName_Tail): Likewise. ($lastprefix): Likewise. ($linestack): Likewise. ($maxlinenumber): Likewise. ($OLDLINE): Likewise. ($SPAD): Likewise. ($delay): Move to debug.lisp.pamphlet. ($LINENUMBER): Likewise. ($Directory): Remove. ($top_stack): Remove. ($DISPLAY): Likewise. (|$gauss01|): Likewise. ($NBOOT): Likewise. ($NEWLINSTACK): Likewise. ($num_of_meta_errors): Move to metalex.lisp.pamphlet. * setq.lisp.pamphlet ($TOP_LEVEL): Don't set here. ($DISPLAY): Likewise. ($FUNNAME): Likewise. ($FUNNAME_TAIL): Likewise. (|$gauss01|): Likewise. ($LASTPREFIX): Likewise. ($NBOOT): Likewise. ($OLDLINE): Likewise. * spad.lisp.pamphlet ($linestack): Likewise. ($maxlinenumber): Likewise. (|New,ENTRY,1|): Don't bind here. --- src/interp/bootfuns.lisp.pamphlet | 19 ------------------- 1 file changed, 19 deletions(-) (limited to 'src/interp/bootfuns.lisp.pamphlet') diff --git a/src/interp/bootfuns.lisp.pamphlet b/src/interp/bootfuns.lisp.pamphlet index cb71394f..d06110cd 100644 --- a/src/interp/bootfuns.lisp.pamphlet +++ b/src/interp/bootfuns.lisp.pamphlet @@ -120,22 +120,7 @@ offer it as extensions. (((|Category|) (|Category|) (|List| |Category|)) (|Category|)) (T *)) ))))) "Compiler>CUtil.boot") -(def-boot-val $delay 0 "???") -(def-boot-var $Directory "???") -(def-boot-var $DISPLAY "???") -(def-boot-var $function "Interpreter>System.boot") -(def-boot-var $FunName "???") -(def-boot-var $FunName_Tail "???") -(def-boot-val |$gauss01| '(|gauss| 0 1) "???") -(def-boot-val $lastprefix "S-" "???") -(def-boot-var $LINENUMBER "???") -(def-boot-var $linestack "???") (def-boot-val $LISPLIB nil "whether to produce a lisplib or not") -(def-boot-var $maxlinenumber "???") -(def-boot-var $NBOOT "???") -(def-boot-var $NEWLINSTACK "???") -(def-boot-val $num_of_meta_errors 0 "Number of errors seen so far") -(def-boot-var $OLDLINE "Used to output command lines.") (def-boot-var |OptionList| "???") (def-boot-val |$printLoadMsgs| 't "Interpreter>SetVarT.boot") (def-boot-var |$PrintOnly| "Compiler>LispLib.boot") @@ -158,11 +143,7 @@ offer it as extensions. (def-boot-val |$sourceFileTypes| '(SPAD BOOT LISP LISP370 META) "Interpreter>System.boot") -(def-boot-val $SPAD nil "Is this Spad code?") (def-boot-val |$spadLibFT| 'LISPLIB "???") -(def-boot-var $TOKSTACK "???") -(def-boot-val $TOP_LEVEL t "???") -(def-boot-var $top_stack "???") @ \eject \begin{thebibliography}{99} -- cgit v1.2.3