diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-06-22 12:25:05 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-06-22 12:25:05 +0000 |
| commit | 507f80f13241b81d794003f4f9117bc145fdfdf1 (patch) | |
| tree | c6e4df83c0c13c69393e0ce5556e6c255f813ba2 /src/interp/g-opt.boot | |
| parent | 013c2620f9aaffd31a10fed19ac48bad9074f707 (diff) | |
| download | open-axiom-507f80f13241b81d794003f4f9117bc145fdfdf1.tar.gz | |
* interp/g-opt.boot ($VMsideEffectFreeOperators): Include FUNCALL.
($simpleVMoperators): Include SPADCALL.
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 8a6c0d91..4346120d 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -399,7 +399,8 @@ optSuchthat [.,:u] == ["SUCHTHAT",:u] ++ List of VM side effect free operators. $VMsideEffectFreeOperators == - '(SPADfirst ASH IDENTP FLOAT_-RADIX FLOAT FLOAT_-SIGN + '(FUNCALL + SPADfirst ASH IDENTP FLOAT_-RADIX FLOAT FLOAT_-SIGN %funcall %nothing %when %false %true %otherwise %2bit %2bool %and %or %not %peq %ieq %ilt %ile %igt %ige %head %tail %integer? %beq %blt %ble %bgt %bge %bitand %bitior %bitxor %bitnot %bcompl @@ -431,7 +432,7 @@ $VMsideEffectFreeOperators == ++ List of simple VM operators $simpleVMoperators == append($VMsideEffectFreeOperators, - ['STRINGIMAGE,'FUNCALL,'%gensym, '%lreverse!, + ['SPADCALL,'STRINGIMAGE,'%gensym, '%lreverse!, '%strstc,"MAKE-FULL-CVEC"]) ++ Return true if the `form' is semi-simple with respect to |