(FILECREATED "25-Jun-86 01:47:37" ("compiled on " {QV}LISP>IDLARRAYMETHODS.;6) "12-Nov-85 14:59:23" recompiled changes: APPLY-DYADIC-METHOD APPLY-MONADIC-METHOD APPLY-NADIC-METHODMACRO APPLY-REDUCTION-METHOD APPLY-SCAN-METHOD in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "25-Jun-86 01:47:01" {QV}LISP>IDLARRAYMETHODS.;6 7911 changes to: (VARS IDLARRAYMETHODSCOMS) (FNS APPLY-DYADIC-METHOD APPLY-MONADIC-METHOD APPLY-REDUCTION-METHOD APPLY-SCAN-METHOD APPLY-NADIC-METHODMACRO MEDIAN-METHOD MEAN-METHOD VARIANCE-METHOD PLUS-METHOD DIFFERENCE-METHOD QUOTIENT-METHOD TIMES-METHOD MIN-METHOD MAX-METHOD IDL-MIN IDL-MAX RESIDUE-METHOD CEILING-METHOD MINUS-METHOD FLOOR-METHOD) previous date: " 6-Jun-86 11:47:15" {QV}LISP>IDLARRAYMETHODS.;5) APPLY-DYADIC-METHOD D1 (P 0 SPECIFIC-METHOD I 3 RESULT I 2 RIGHTIDLARRAY I 1 LEFTIDLARRAY I 0 METHODNAME) !@AB` HABClHo@ (36Q ERROR 10Q FIND-DYADIC-METHOD) (5 DYADIC-METHOD-TREES) ( 32Q "No such method") APPLY-DYADIC-SPECIFIER D1 (P 1 RSPECIFIER P 0 LSPECIFIER I 2 SPECIFIER I 1 RIGHTGENARRAY I 0 LEFTGENARRAY) BB@H AI (23Q IDLARRAY-TYPEP 14Q IDLARRAY-TYPEP) NIL () APPLY-MONADIC-METHOD D1 (P 0 SPECIFIC-METHOD I 2 RESULT I 1 IDLARRAY I 0 METHODNAME) @A` HABlHo (33Q ERROR 7 FIND-MONADIC-METHOD) (4 MONADIC-METHOD-TREES) ( 30Q "No such method") APPLY-NADIC-METHODMACRO D1 (P 1 KEYARRAY P 0 METHODNAME I 0 ARGS) V@@gggHIohhoggggg@ ggoHhhh(66Q \APPEND2) (76Q ERROR 73Q else 61Q SPECIFIC-METHOD 56Q APPLY* 53Q then 50Q SPECIFIC-METHOD 45Q if 20Q FIND-MONADIC-METHOD 15Q SPECIFIC-METHOD 12Q LET) ( 102Q "No such nadic method" 42Q (DECLARE (GLOBALVARS MONADIC-METHOD-TREES)) 26Q (MONADIC-METHOD-TREES)) APPLY-REDUCTION-METHOD D1 (P 0 SPECIFIC-METHOD I 3 RESULT I 2 AXIS I 1 IDLARRAY I 0 FN) @A` HABClHo@ (35Q ERROR 7 FIND-MONADIC-METHOD) (4 REDUCTION-METHOD-TREES) ( 31Q "No such reduction method") APPLY-SCAN-METHOD D1 (P 0 SPECIFIC-METHOD I 3 RESULT I 2 AXIS I 1 IDLARRAY I 0 METHODNAME) @A` HAClHo@ (34Q ERROR 7 FIND-MONADIC-METHOD) (4 SCAN-METHOD-TREES) ( 30Q "No such scan method") DYADIC-MOST-SPECIFIC-NODE D1 (P 4 NODE P 2 CURRENTNODE P 1 MOSTSPECIFICNODE P 0 CURRENTCHILDREN I 3 TREE I 2 RIGHTIDLARRAY I 1 LEFTIDLARRAY I 0 METHODNAME) LABC CC@'CHK hZIABL LiK[J@'J(57Q APPLY-DYADIC-SPECIFIER 6 APPLY-DYADIC-SPECIFIER) NIL () FIND-DYADIC-METHOD D1 (P 4 METHODS P 3 NODE P 2 RESULT P 1 TREE I 3 TREES I 2 RIGHTIDLARRAY I 1 LEFTIDLARRAY I 0 METHODNAME) (C!H@ABI ZJKd\@'HX(21Q DYADIC-MOST-SPECIFIC-NODE) NIL () FIND-MONADIC-METHOD D1 (P 4 METHODS P 3 NODE P 2 RESULT P 1 TREE I 2 TREES I 1 IDLARRAY I 0 METHODNAME) 'B!H@AI ZJKd\@'HX(20Q MONADIC-MOST-SPECIFIC-NODE) NIL () (PRETTYCOMPRINT IDLARRAYMETHODSCOMS) (RPAQQ IDLARRAYMETHODSCOMS ((* File created by Coms Manager.) (FNS APPLY-DYADIC-METHOD APPLY-DYADIC-SPECIFIER APPLY-MONADIC-METHOD APPLY-NADIC-METHODMACRO APPLY-REDUCTION-METHOD APPLY-SCAN-METHOD DYADIC-MOST-SPECIFIC-NODE FIND-DYADIC-METHOD FIND-MONADIC-METHOD) (RECORDS METHOD-TREE-NODE) (VARS DYADIC-METHOD-TREES MONADIC-METHOD-TREES REDUCTION-METHOD-TREES SCAN-METHOD-TREES) (MACROS APPLY-NADIC-METHOD))) (RECORD METHOD-TREE-NODE (TYPE-SPECIFIER METHODS CHILDREN)) (RPAQQ DYADIC-METHOD-TREES ((((NUMERIC NIL) (NUMERIC NIL)) NIL ((((NUMERIC 0) (NUMERIC NIL)) NIL (((( NUMERIC 0) (NUMERIC 0)) NIL NIL))) (((NUMERIC NIL) (NUMERIC 0)) NIL NIL))) (((LOGICAL NIL) (LOGICAL NIL)) NIL ((((LOGICAL 0) (LOGICAL NIL)) NIL ((((LOGICAL 0) (LOGICAL 0)) NIL NIL))) (((LOGICAL NIL) ( LOGICAL 0)) NIL NIL))) (((NIL NIL) (NIL NIL)) (BLT GENERIC-BLT MEMBER GENERIC-MEMBER INDEXOF GENERIC-INDEXOF) ((((NIL 0) (NIL NIL)) NIL ((((NIL 0) (NIL 0)) NIL NIL))) (((NIL NIL) (NIL 0)) NIL NIL ))))) (RPAQQ MONADIC-METHOD-TREES (((NIL NIL) NIL (((NIL 0) NIL NIL) ((NIL 1+) (FILL GENERIC-FILL SORT GENERIC-SORT) NIL))))) (RPAQQ REDUCTION-METHOD-TREES (((NIL NIL) NIL NIL))) (RPAQQ SCAN-METHOD-TREES (((NIL NIL) NIL NIL))) (PUTPROPS APPLY-NADIC-METHOD MACRO (ARGS (APPLY-NADIC-METHODMACRO ARGS))) (PUTPROPS IDLARRAYMETHODS COPYRIGHT ("Xerox Corporation" 1986)) NIL