; "Functions to decide arg dependent types." > > '[UVECTOR VECTOR ASOC TUPLE STRING LIST]>)) >) (ELSE ANY)>> >

>) (ELSE STRUCTURED)>> >> VECTOR)(ELSE .TEM)>)>> >>) (ELSE ANY)>> ; "Data structure specifying return types and # of args to common subrs." ) (,+!- ANY ') (,/!- ANY ') (,-!- ANY ') (,0?!- 1 '>) (,1?!- 1 '>) (,==?!- 2 '>) (,=?!- 2 '>) (,ABS!- 1 ') (,ALLTYPES!- 0 ') (,ANDB!- ANY FIX) (,APPLY!- ANY ANY) (,APPLYTYPE!- '(1 2) ') (,ARGS!- 1 TUPLE) (,ASCII!- 1 ') (,ASSIGNED?!- '(1 2) '>) (,ATAN!- 1 FLOAT) (,ATOM!- 1 ATOM) (,BACK!- '(1 2) ,PFIRST-ARG) (,BLOCK!- 1 ') (,BOUND?!- '(1 2) '>) (,CHANLIST!- 0 ') (,CHTYPE!- 2 ANY) (,CLOSE!- 1 CHANNEL) (,COS!- 1 FLOAT) (,CRLF '(0 2) ATOM) (,EMPTY?!- 1 ' ATOM>) (,ENDBLOCK!- 0 ') (,EQVB!- ANY FIX) (,ERRET!- '(0 2) ANY) (,ERRORS!- 0 OBLIST) (,EVAL!- '(1 2) ANY) (,EVALTYPE!- '(1 2) ') (,EXP!- 1 FLOAT) (,FIX!- 1 FIX) (,FLATSIZE!- '(2 3) ' FIX>) (,FLOAD!- '(0 5) STRING) ;"\"DONE\"" (,FLOAT!- 1 FLOAT) (,FORM!- ANY FORM) (,FRAME!- '(0 1) '>) (,FUNCT!- 1 ATOM) (,G=?!- 2 '>) (,G?!- 2 '>) (,GASSIGNED?!- 1 ' ATOM>) (,GUNASSIGN!- 1 ATOM) (,GVAL!- 1 ANY) (,ILIST!- '(1 2) LIST) (,INSERT!- 2 ATOM) (,INTERRUPTS!- 0 OBLIST) (,ISTRING!- '(1 2) STRING) (,IUVECTOR!- '(1 2) UVECTOR) (,IVECTOR!- '(1 2) VECTOR) (,L=?!- 2 ' ATOM>) (,L?!- 2 ' ATOM>) (,LEGAL?!- 1 ' ATOM>) (,LENGTH!- 1 FIX) (,LENGTH? 2 ' FIX>) (,LINK!- '(2 3) ,FIRST-ARG) (,LIST!- ANY LIST) (,LISTEN!- ANY ANY) (,LOG!- 1 FLOAT) (,LOOKUP!- 2 '>) (,LVAL!- '(1 2) ANY) (,MEMBER!- 2 ,MEM-VALUE) (,MEMQ!- 2 ,MEM-VALUE) (,MOD!- 2 ') (,MONAD?!- 1 '>) (,N==?!- 2 ' ATOM>) (,N=?!- 2 ' ATOM>) (,NEWTYPE!- '(2 3) ATOM) (,NOT!- 1 '>) (,NTH!- '(1 2) ANY) (,OBLIST?!- 1 ' OBLIST>) (,OPEN!- '(0 6) ') (,ORB!- ANY FIX) (,PARSE!- '(0 5) ANY) (,PNAME!- 1 STRING) (,PRIMTYPE!- 1 ATOM) (,PRINC!- '(1 3) ,FIRST-ARG) (,PRIN1!- '(1 3) ,FIRST-ARG) (,PRINT!- '(1 3) ,FIRST-ARG) (,PRINTTYPE!- '(1 2) ') (,PUT!- '(2 3) ANY) (,PUTREST!- 2 ,FIRST-ARG) (,RANDOM!- '(0 2) FIX) (,READ!- '(0 4) ANY) (,READCHR!- '(0 2) ANY) (,REMOVE!- '(1 2) '>) (,REST!- '(1 2) ,PFIRST-ARG) (,RESTORE!- '(1 4) ANY) (,RETRY!- '(0 1) ANY) (,RETURN!- '(1 2) ANY) (,ROOT!- 0 OBLIST) (,SAVE!- '(0 4) STRING) (,SET!- '(2 3) ,SECOND-ARG) (,SETG!- 2 ,SECOND-ARG) (,SIN!- 1 FLOAT) (,SPNAME!- 1 STRING) (,SQRT!- 1 FLOAT) (,STRCOMP!- 2 FIX) (,STRING!- ANY STRING) (,STRUCTURED?!- 1 ' ATOM>) (,TIME!- ANY FLOAT) (,TOP!- 1 ,PFIRST-ARG) (,TYPE!- 1 ATOM) (,TYPE-C '(1 2) TYPE-C) (,TYPE-W '(1 3) TYPE-W) (,TYPE?!- ANY '>) (,TYPEPRIM!- 1 ATOM) (,UNASSIGN!- '(1 2) ATOM) (,UNPARSE!- '(1 2) STRING) (,UVECTOR!- ANY UVECTOR) (,VALID-TYPE? 1 ' TYPE-C>) (,VECTOR!- ANY VECTOR) (,XORB!- ANY FIX)]> > > > ')) > .T>>>>