aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog6
-rw-r--r--src/interp/i-syscmd.boot2
-rw-r--r--src/interp/vmlisp.lisp6
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))