diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-02-09 09:46:58 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-02-09 09:46:58 +0000 |
| commit | 76b3bd66c2f3402ce592d66173c201ef2a09915a (patch) | |
| tree | 5e4925e24768b30f6013681594ee1e1aae175829 /src | |
| parent | c5d8f2f1f68d6af4a4cbcfef3437c951f4004886 (diff) | |
| download | open-axiom-76b3bd66c2f3402ce592d66173c201ef2a09915a.tar.gz | |
* interp/vmlisp.lisp (MRP): Remove.
(SFP): Likewise.
* interp/i-syscmd.boot (compileAsharpCmd1): Use getEnv, not GETENV.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 6 | ||||
| -rw-r--r-- | src/interp/i-syscmd.boot | 2 | ||||
| -rw-r--r-- | src/interp/vmlisp.lisp | 6 |
3 files changed, 7 insertions, 7 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 452b78cc..4f283de3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,11 @@ 2010-02-09 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/vmlisp.lisp (MRP): Remove. + (SFP): Likewise. + * interp/i-syscmd.boot (compileAsharpCmd1): Use getEnv, not GETENV. + +2010-02-09 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/sys-utility.boot (RECLAIM): Don't error. 2010-02-08 Gabriel Dos Reis <gdr@cs.tamu.edu> diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index b2d70fd2..d5a324ef 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -588,7 +588,7 @@ compileAsharpCmd1 args == if not beQuiet then sayKeyedMsg("S2IZ0038A",[namestring args, asharpArgs]) command := - STRCONC(STRCONC(GETENV('"ALDORROOT"),'"/bin/"),_ + STRCONC(STRCONC(getEnv('"ALDORROOT"),'"/bin/"),_ "aldor ", asharpArgs, '" ", namestring args) rc := runCommand command diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 811b7069..8e327b97 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -221,9 +221,6 @@ (defmacro minus (x) `(- ,x)) -(defmacro mrp (x) - `(special-form-p ,x)) - (defmacro namederrset (id iexp &rest item) (declare (ignore item)) `(catch ,id ,iexp)) @@ -463,9 +460,6 @@ (nsubstitute '(progn) nil body) ;don't treat NIL as a label `(block seq (tagbody ,@(nreverse body) ,val)))) -(defmacro sfp (x) - `(special-form-p ,x)) - (defmacro sintp (n) `(typep ,n 'fixnum)) |