Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0004/arithdecls.com
There are no other files named arithdecls.com in the archive.
(FILECREATED "24-SEP-81 21:21:58" ("compiled on " <LISPUSERS>ARITHDECLS.;4) (2
. 3) bcompl'd in WORK dated NOBIND)
(FILECREATED "10-APR-79 16:07:09" <LISPUSERS>ARITHDECLS.;4 2255 previous date:
"18-MAR-79 23:12:30" <LISPUSERS>ARITHDECLS.;3)
ARITHDECL BINARY
-. [ ,< @ ,~ Z` -, + + Z XB B ,< @ + ,< Z D 3B + Z / "$ + ,~ ,< Z
D 2B + Z XB ,~ [` XB` + Z ,~
VX+ (VARIABLE-VALUE-CELL FORM . 3)
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL A . 13)
(FIXP VARIABLE-VALUE-CELL TYPE . 40)
DECLOF
(VARIABLE-VALUE-CELL $$TMP . 30)
FLOATP
COVERS
FIXP
NUMBERP
(NLRETBHC KNIL SKNLST ENTERF)
MAXDECL BINARY
% $-. [ 2B + Z ,~ [ [ ,< @ ,~ [ Z B !,< @ " + ,< Z D "3B + Z ,~ ,< #Z D "3B + Z #,~ Z #/ "$ + ,~ XB Z` -, + + Z XB Z ,< B !D "3B + + Z #,~ [` XB` + Z ,~ VV a\ (VARIABLE-VALUE-CELL FORM . 14)
FIXP
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL A . 46)
(NIL VARIABLE-VALUE-CELL TYPE . 59)
DECLOF
(VARIABLE-VALUE-CELL $$TMP . 29)
COVERS
FLOATP
NUMBERP
(SKNLSTNLRET BHC KNIL ENTERF)
(PRETTYCOMPRINT ARITHDECLSCOMS)
(RPAQQ ARITHDECLSCOMS ((PROP DECLOF ADD1 IMAX IMIN SUB1 PLUS DIFFERENCE TIMES
QUOTIENT MAX MIN MINUS REMAINDER EXPT RAND SQRT LENGTH FLENGTH FMAX FMIN) (FNS
ARITHDECL MAXDECL)))
(PUTPROPS ADD1 DECLOF FIXP)
(PUTPROPS IMAX DECLOF FIXP)
(PUTPROPS IMIN DECLOF FIXP)
(PUTPROPS SUB1 DECLOF FIXP)
(PUTPROPS PLUS DECLOF (FUNCTION ARITHDECL))
(PUTPROPS DIFFERENCE DECLOF (FUNCTION ARITHDECL))
(PUTPROPS TIMES DECLOF (FUNCTION ARITHDECL))
(PUTPROPS QUOTIENT DECLOF (FUNCTION ARITHDECL))
(PUTPROPS MAX DECLOF (FUNCTION MAXDECL))
(PUTPROPS MIN DECLOF (FUNCTION MAXDECL))
(PUTPROPS MINUS DECLOF (FUNCTION ARITHDECL))
(PUTPROPS REMAINDER DECLOF (FUNCTION ARITHDECL))
(PUTPROPS EXPT DECLOF (FUNCTION ARITHDECL))
(PUTPROPS RAND DECLOF (FUNCTION ARITHDECL))
(PUTPROPS SQRT DECLOF FLOATP)
(PUTPROPS LENGTH DECLOF FIXP)
(PUTPROPS FLENGTH DECLOF FIXP)
(PUTPROPS FMAX DECLOF FLOATP)
(PUTPROPS FMIN DECLOF FLOATP)
NIL