(FILECREATED " 5-May-86 16:44:45" ("compiled on " {DSK}<LISPFILES>DINDEBINOPS.;1) "12-Nov-85 14:59:23"
tcompl'd in "LOOPS 18-Apr-86 ..." dated "18-Apr-86 18:48:31")
(FILECREATED "31-Oct-85 10:21:30" {DSK}<LISPFILES>DINDEBINOPS.;2 9999 changes to: (VARS
DINDEBINOPSCOMS) previous date: "13-May-85 20:08:07" {DSK}<LISPFILES>DINDEBINOPS.;1)
BooleanArray.& D1
(I 1 argRight I 0 argLeft) g @Ag
(15Q ConformingBinaryOp 12Q Coerce)
(7 AsAnyBoolean 2 EB.AND)
()
BooleanArray.OR D1
(I 1 argRight I 0 argLeft) g @Ag
(15Q ConformingBinaryOp 12Q Coerce)
(7 AsAnyBoolean 2 EB.OR)
()
BooleanArray.XOR D1
(I 1 argRight I 0 argLeft) g @Ag
(15Q ConformingBinaryOp 12Q Coerce)
(7 AsAnyBoolean 2 EB.XOR)
()
FloatArray.* D1
(I 1 argRight I 0 argLeft) g @Ag
(15Q ConformingBinaryOp 12Q Coerce)
(7 AsAnyFloat 2 ER.TIMES)
()
FloatArray.+ D1
(I 1 argRight I 0 argLeft) g @Ag
(15Q ConformingBinaryOp 12Q Coerce)
(7 AsAnyFloat 2 ER.PLUS)
()
FloatArray.- D1
(I 1 argRight I 0 argLeft) g @Ag
(15Q ConformingBinaryOp 12Q Coerce)
(7 AsAnyFloat 2 ER.DIFFERENCE)
()
FloatArray./ D1
(I 1 argRight I 0 argLeft) g @Ag
(15Q ConformingBinaryOp 12Q Coerce)
(7 AsAnyFloat 2 ER.QUOTIENT)
()
FloatArray.< D1
(I 1 argRight I 0 argLeft) g @Ag
g (20Q ConformingBinaryOp 12Q Coerce)
(15Q Boolean 7 AsAnyFloat 2 ER.LESSP)
()
FloatArray.== D1
(I 1 argRight I 0 argLeft) g @Ag
g (20Q ConformingBinaryOp 12Q Coerce)
(15Q Boolean 7 AsAnyFLoat 2 ER.EQUALP)
()
FloatArray.> D1
(I 1 argRight I 0 argLeft) g @Ag
g (20Q ConformingBinaryOp 12Q Coerce)
(15Q Boolean 7 AsAnyFloat 2 ER.GREATERP)
()
FloatArray.?/ D1
(I 1 argRight I 0 argLeft) g @Ag
(15Q ConformingBinaryOp 12Q Coerce)
(7 AsAnyFloat 2 ER.INTEGERDIVIDE)
()
FloatArray.?? D1
(I 1 argRight I 0 argLeft) g @Ag
(15Q ConformingBinaryOp 12Q Coerce)
(7 AsAnyFloat 2 ER.MODULUS)
()
FloatArray.↑ D1
(I 1 argRight I 0 argLeft) g @Ag
(15Q ConformingBinaryOp 12Q Coerce)
(7 AsAnyFloat 2 ER.EXPONENTIATE)
()
FloatArray.~= D1
(I 1 argRight I 0 argLeft) g @Ag
g (20Q ConformingBinaryOp 12Q Coerce)
(15Q Boolean 7 AsAnyFloat 2 ER.NOTEQUALP)
()
StringArray.+ D1
(I 1 argRight I 0 argLeft) g @Ag
(15Q ConformingBinaryOp 12Q Coerce)
(7 AsAnyString 2 ES.CONCAT)
()
StringArray.< D1
(I 1 argRight I 0 argLeft) g @Ag
g (20Q ConformingBinaryOp 12Q Coerce)
(15Q Boolean 7 AsAnyString 2 ES.LESSP)
()
StringArray.== D1
(I 1 argRight I 0 argLeft) g @Ag
g (20Q ConformingBinaryOp 12Q Coerce)
(15Q Boolean 7 AsAnyString 2 ES.EQUALP)
()
StringArray.> D1
(I 1 argRight I 0 argLeft) g @Ag
g (20Q ConformingBinaryOp 12Q Coerce)
(15Q Boolean 7 AsAnyString 2 ES.GREATERP)
()
StringArray.~= D1
(I 1 argRight I 0 argLeft) g @Ag
g (20Q ConformingBinaryOp 12Q Coerce)
(15Q Boolean 7 AsAnyString 2 ES.NOTEQUALP)
()
(PRETTYCOMPRINT DINDEBINOPSCOMS)
(RPAQQ DINDEBINOPSCOMS ((METHODS BooleanArray.& BooleanArray.OR BooleanArray.XOR FloatArray.*
FloatArray.+ FloatArray.- FloatArray./ FloatArray.< FloatArray.== FloatArray.> FloatArray.?/
FloatArray.?? FloatArray.↑ FloatArray.~= StringArray.+ StringArray.< StringArray.== StringArray.>
StringArray.~=)))
(METH BooleanArray & (argRight) (* Logical AND.) (method BooleanArray.& MethodClassification
BinaryOperation))
(METH BooleanArray OR (argRight) (* Logical OR.) (method BooleanArray.OR MethodClassification
BooleanMatrix))
(METH BooleanArray XOR (argRight) (* Logical Exclusive-OR.) (method BooleanArray.XOR
MethodClassification BinaryOperation))
(METH FloatArray * (argRight) (* Multiplication.) (method FloatArray.* MethodClassification
BinaryOperation))
(METH FloatArray + (argRight) (* Addition.) (method FloatArray.+ MethodClassification BinaryOperation)
)
(METH FloatArray - (argRight) (* Subtraction.) (method FloatArray.- MethodClassification
BinaryOperation))
(METH FloatArray / (argRight) (* Division.) (method FloatArray./ MethodClassification BinaryOperation)
)
(METH FloatArray < (argRight) (* Less than predicate.) (method FloatArray.< MethodClassification
BinaryComparison))
(METH FloatArray == (argRight) (* Equality.) (method FloatArray.== MethodClassification
BinaryComparison))
(METH FloatArray > (argRight) (* Greater than predicate.) (method FloatArray.> MethodClassification
BinaryComparison))
(METH FloatArray ?/ (argRight) (* Integer divide.) (method FloatArray.?/ MethodClassification
BinaryOperation))
(METH FloatArray ?? (argRight) (* Modulus.) (method FloatArray.?? MethodClassification BinaryOperation
))
(METH FloatArray ↑ (argRight) (* Exponentiation.) (method FloatArray.↑ MethodClassification
BinaryOperation))
(METH FloatArray ~= (argRight) (* Not equal predicate.) (method FloatArray.~= MethodClassification
BinaryComparison))
(METH StringArray + (argRight) (* String concatenation.) (method StringArray.+ MethodClassification
BinaryOperation))
(METH StringArray < (argRight) (* String comparison.) (method StringArray.< MethodClassification
BinaryComparison))
(METH StringArray == (argRight) (* String equality.) (method StringArray.== MethodClassification
BinaryComparison))
(METH StringArray > (argRight) (* String comparison.) (method StringArray.> MethodClassification
BinaryComparison))
(METH StringArray ~= (argRight) (* String inequality.) (method StringArray.~= MethodClassification
BinaryComparison))
(PUTPROPS DINDEBINOPS COPYRIGHT ("Massachusetts Institute of Technology" 1985))
NIL