aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-02-09 09:46:58 +0000
committerdos-reis <gdr@axiomatics.org>2010-02-09 09:46:58 +0000
commit76b3bd66c2f3402ce592d66173c201ef2a09915a (patch)
tree5e4925e24768b30f6013681594ee1e1aae175829 /src/interp
parentc5d8f2f1f68d6af4a4cbcfef3437c951f4004886 (diff)
downloadopen-axiom-76b3bd66c2f3402ce592d66173c201ef2a09915a.tar.gz
* interp/vmlisp.lisp (MRP): Remove.
(SFP): Likewise. * interp/i-syscmd.boot (compileAsharpCmd1): Use getEnv, not GETENV.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/i-syscmd.boot2
-rw-r--r--src/interp/vmlisp.lisp6
2 files changed, 1 insertions, 7 deletions
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))