diff options
| -rw-r--r-- | src/ChangeLog | 25 | ||||
| -rw-r--r-- | src/interp/i-syscmd.boot | 6 | ||||
| -rw-r--r-- | src/interp/setq.lisp | 49 | ||||
| -rw-r--r-- | src/interp/spad.lisp | 1 |
4 files changed, 25 insertions, 56 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index d6c94b46..238a1d5c 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,30 @@ 2008-01-31 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/setq.lisp (COPYRIGHTS): Remove. + (LCTRUE): Likewise. + ($HTPreviousDomain): Likewise. + ($HTOperationError): Likewise. + ($xdatabase): Likewise. + ($CatOfCaDatabase): Likewise. + ($DomOfCatDatabase): Likewise. + ($JoinOfDomDatabase): Likewise. + ($JoinOfCatDatabase): Likewise. + ($attributeDb): Likewise. + ($abbreviateIfTrue): Likewise. + ($deltax): Likewise. + ($deltay): Likewise. + ($displayDomains): Likewise. + ($displayTowardAncestors): Likewise. + ($minimumSeparation): Likewise. + ($testOutputLineFlag): Likewise. + ($testOutputLineStack): Likewise. + ($runTestFlag): Likewise. + ($mkTestFlag): Likewise. + ($mkTestInputStack): Likewise. + ($mkTestOutputStack): Likewise. + +2008-01-31 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/unlisp.lisp (|OsRunProgram|): Remove. (|OsRunProgramToStream|): Likewise. (|PathnameWithinDirectory|): Likewise. diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 188d0899..e6d5ab8a 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -298,12 +298,6 @@ clearCmdSortedCaches() == clearCmdCompletely() == clearCmdAll() $localExposureData := COPY_-SEQ $localExposureDataDefault - $xdatabase := NIL - $CatOfCatDatabase := NIL - $DomOfCatDatabase := NIL - $JoinOfCatDatabase := NIL - $JoinOfDomDatabase := NIL - $attributeDb := NIL $functionTable := NIL sayKeyedMsg("S2IZ0013",NIL) clearClams() diff --git a/src/interp/setq.lisp b/src/interp/setq.lisp index 8ea2c57a..c624caf5 100644 --- a/src/interp/setq.lisp +++ b/src/interp/setq.lisp @@ -32,13 +32,6 @@ ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -(setq copyrights '( - "Copyright The Numerical Algorithms Group Limited 1991-94." - "All rights reserved" - "Certain derivative-work portions Copyright (C) 1998 by Leslie Lamport." - "Portions (c) Copyright Taiichi Yuasa and Masami Hagiya, 1984." - "All rights reserved")) - (import-module "macros") (in-package "BOOT") @@ -70,7 +63,6 @@ (SETQ |$pfKeysForBrowse| NIL) (SETQ MARG 0) ;" Margin for testing by ?OP" -(SETQ LCTRUE '|true|) (SETQ |$displayParserOutput| 'T) (SETQ |$insideReadRulesIfTrue| NIL) @@ -97,15 +89,12 @@ ;; variables controlling companion pages (see copage.boot) (SETQ |$HTCompanionWindowID| nil) -(SETQ |$HTPreviousDomain| nil) -(SETQ |$HTOperationError| nil) (SETQ |S:SPADTOK| 'SPADSYSTOK) (SETQ APLMODE NIL) (SETQ RLGENSYMFG NIL) (SETQ RLGENSYMLST NIL) (SETQ XTOKENREADER 'SPADTOK) -(SETQ |$generalTokenIfTrue| NIL) (SETQ OPASSOC NIL) (SETQ SPADSYSKEY '(EOI EOL)) @@ -187,41 +176,3 @@ (MAKEPROP '|One| '|defaultType| |$Integer|) (MAKEPROP '|Zero| '|defaultType| |$Integer|) -;; Following were originally in EXPLORE BOOT - -(SETQ |$xdatabase| NIL) -(SETQ |$CatOfCatDatabase| NIL) -(SETQ |$DomOfCatDatabase| NIL) -(SETQ |$JoinOfDomDatabase| NIL) -(SETQ |$JoinOfCatDatabase| NIL) -(SETQ |$attributeDb| NIL) - -(SETQ |$abbreviateIfTrue| NIL) -(SETQ |$deltax| 0) -(SETQ |$deltay| 0) -(SETQ |$displayDomains| 'T) -(SETQ |$displayTowardAncestors| NIL) -(SETQ |$focus| NIL) -(SETQ |$focusAccessPath| NIL) -(SETQ |$minimumSeparation| 3) - -;; ---- start of initial settings for variables used in test.boot - -(SETQ |$testOutputLineFlag| NIL) ;; referenced by charyTop, prnd - ;; to stash lines -(SETQ |$testOutputLineStack| NIL) ;; saves lines to be printed - ;; (needed to convert lines for use - ;; in hypertex) -(SETQ |$runTestFlag| NIL) ;; referenced by maPrin to stash - ;; output by recordAndPrint to not - ;; print type/time -(SETQ |$mkTestFlag| NIL) ;; referenced by READLN to stash input - ;; by maPrin to stash output - ;; by recordAndPrint to write i/o - ;; onto $testStream -(SETQ |$mkTestInputStack| NIL) ;; saves input for $testStream - ;; (see READLN) -(SETQ |$mkTestOutputStack| NIL) ;; saves output for $testStream - ;; (see maPrin) - -;; ---- end of initial settings for variables used in test.boot diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index 3f2c2fcb..a05ff9b2 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -85,7 +85,6 @@ (defvar ind) (defvar INITCOLUMN 0) (defvar JUNKTOKLIST '(FOR IN AS INTO OF TO)) -(defvar LCTRUE '|true|) (defvar m-chrbuffer) (defvar m-chrindex) (defvar MARG 0 "Margin for testing by ?OP") |