aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-opt.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-opt.boot')
-rw-r--r--src/interp/g-opt.boot5
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