From 76b3bd66c2f3402ce592d66173c201ef2a09915a Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 9 Feb 2010 09:46:58 +0000 Subject: * interp/vmlisp.lisp (MRP): Remove. (SFP): Likewise. * interp/i-syscmd.boot (compileAsharpCmd1): Use getEnv, not GETENV. --- src/ChangeLog | 6 ++++++ src/interp/i-syscmd.boot | 2 +- src/interp/vmlisp.lisp | 6 ------ 3 files changed, 7 insertions(+), 7 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 452b78cc..4f283de3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2010-02-09 Gabriel Dos Reis + + * interp/vmlisp.lisp (MRP): Remove. + (SFP): Likewise. + * interp/i-syscmd.boot (compileAsharpCmd1): Use getEnv, not GETENV. + 2010-02-09 Gabriel Dos Reis * interp/sys-utility.boot (RECLAIM): Don't error. 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)) -- cgit v1.2.3