aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
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))