From 95d7a3a8c107a8b722f97afdc0266449aad3a5bc Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 22 Jul 2010 23:30:09 +0000 Subject: more cleanup --- src/interp/g-opt.boot | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/interp') diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 1c8964f6..7e4b8443 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -474,9 +474,9 @@ optLESSP u == $VMsideEffectFreeOperators == '(CAR CDR LENGTH SIZE EQUAL EQL EQ NOT NULL OR AND SPADfirst QVELT _+ _- _* _< _= _<_= _> _>_= ASH INTEGER_-LENGTH - QEQCAR QCDR QCAR INTEGERP FLOATP STRINGP IDENTP SYMBOLP - MINUSP GREATERP ZEROP ODDP FLOAT_-RADIX FLOAT FLOAT_-SIGN FLOAT_-DIGITS - CGREATERP GGREATERP CHAR BOOLE GET BVEC_-GREATER %false %true + QEQCAR QCDR QCAR IDENTP SYMBOLP + MINUSP GREATERP ZEROP ODDP FLOAT_-RADIX FLOAT FLOAT_-SIGN + CGREATERP GGREATERP CHAR GET BVEC_-GREATER %false %true %and %or %not %peq %ieq %ilt %ile %igt %ige %head %tail %integer? %beq %blt %ble %bgt %bge %bitand %bitior %bitnot %bcompl %imul %iadd %isub %igcd %ilcm %ipow %imin %imax %ieven? %iodd? %iinc -- cgit v1.2.3