diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-04 01:39:22 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-04 01:39:22 +0000 |
| commit | 0d7c8a950c87428e2a5183c617b22303858d8967 (patch) | |
| tree | 5a398113fc0f3f5494826af8f3b6a4ced124699b /src/interp/comp.lisp | |
| parent | d5088a15f1073ad01d8be9de9d4b6242dd5ed426 (diff) | |
| download | open-axiom-0d7c8a950c87428e2a5183c617b22303858d8967.tar.gz | |
* interp/foam_l.lisp (|G-stdoutVar|): Define; don't just assign.
(|G-stdinVar|): Likewise.
(|G-stderrVar|): Likewise.
(|FormatNumber|): Bind local variable; don't just assign to it.
(|magicEq1|): Tidy.
* interp/debug.lisp: Don't declare `COUNT as SPECIAL.
Remove reference to LISP package. Remove CCL special-cased
definitions.
* interp/comp.lisp ($closedfns): Define.
* interp/cfuns.lisp (|getEnv|): Define only for GCL, for the time
being.
Diffstat (limited to 'src/interp/comp.lisp')
| -rw-r--r-- | src/interp/comp.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/interp/comp.lisp b/src/interp/comp.lisp index 23bb75ba..2f10f163 100644 --- a/src/interp/comp.lisp +++ b/src/interp/comp.lisp @@ -65,6 +65,8 @@ ; (defparameter OptionList nil) defined in nlib.lisp (defparameter SpecialVars nil) +(defvar $closedfns nil) + (defun |compAndDefine| (L) (let ((*comp370-apply* (function print-and-eval-defun))) (declare (special *comp370-apply*)) |