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))