diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-02 13:26:26 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-02 13:26:26 +0000 |
| commit | c78c9f3c403b2154127f16dec9b1c95879601f5e (patch) | |
| tree | cfcffb66952748900ebbd9429d02d7e97b41cb91 /src/interp/setq.lisp | |
| parent | c2639522f9f219295e0243a3af98b6082a597b3c (diff) | |
| download | open-axiom-c78c9f3c403b2154127f16dec9b1c95879601f5e.tar.gz | |
* interp/setq.lisp: Remove more unused variables.
* interp/nruncomp.boot ($Slot1DataBase): Define here.
* interp/parse.boot ($oldParserExpandAbbrs): Likewise.
* interp/define.boot ($mutableDomains): Define here.
(compDefineFunctor1): Tidy.
(clearCmdCompletely): Don't set $functionTable.
Diffstat (limited to 'src/interp/setq.lisp')
| -rw-r--r-- | src/interp/setq.lisp | 34 |
1 files changed, 6 insertions, 28 deletions
diff --git a/src/interp/setq.lisp b/src/interp/setq.lisp index c624caf5..db0998ff 100644 --- a/src/interp/setq.lisp +++ b/src/interp/setq.lisp @@ -1,6 +1,6 @@ ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007, Gabriel Dos Reis. +;; Copyright (C) 2007-2008, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -35,39 +35,18 @@ (import-module "macros") (in-package "BOOT") -(SETQ /RELEASE 0) - ;; These were originally in SPAD LISP -(SETQ |$mutableChecking| NIL) ; used in DEFINE BOOT -(SETQ |$mutableDomains| NIL) ; checked in DEFINE BOOT +(defvar $dalymode nil "if true then leading paren implies lisp cmd") +(defconstant |$Newline| #\Newline) -(defvar $dalymode nil "if true then leading paren implies lisp cmd") -(setq |$Newline| #\Newline) - - -(SETQ STAKCOLUMN -1) -(SETQ ECHOMETA NIL) -(SETQ |$checkParseIfTrue| 'NIL) -(SETQ |$oldParserExpandAbbrs| NIL) -(SETQ |S:SPADKEY| NIL) ;" this is augmented by MAKESPADOP" -(SETQ |/EDIT,FT| 'SPAD) -(SETQ |/EDIT,FM| 'A) -(SETQ INITCOLUMN 0) -(SETQ |$functionTable| NIL) -(SETQ |$spaddefs| NIL) -(SETQ |$xeditIsConsole| NIL) -(SETQ |$echoInputLines| NIL) ;; This is in SETVART also -(SETQ |$Slot1DataBase| (MAKE-HASHTABLE 'ID)) ;; See NRUNTIME BOOT -(SETQ |$pfKeysForBrowse| NIL) -(SETQ MARG 0) +(defvar ECHOMETA NIL) +(defvar S-SPADKEY NIL) ;" this is augmented by MAKESPADOP" +(defvar MARG 0) ;" Margin for testing by ?OP" -(SETQ |$displayParserOutput| 'T) -(SETQ |$insideReadRulesIfTrue| NIL) (SETQ |$consistencyCheck| 'T) -(SETQ |$useUndo| NIL) (SETQ |$ruleSetsInitialized| NIL) ;; tell the system not to use the new parser @@ -168,7 +147,6 @@ (SETQ |$NRTdeltaList| NIL) (SETQ |$NRTdeltaLength| 0) (SETQ |$NRTopt| NIL) ;; turns off buggy code -(SETQ |$Slot1DataBase| NIL) (SETQ |$NRTmonitorIfTrue| NIL) (SETQ |$useConvertForCoercions| NIL) |