Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/arith.lsp
There are no other files named arith.lsp in the archive.
(RPUTSYM FLONUM) 

(DEFPROP ARITH 
 (LAMBDA NIL
  (PROG NIL
	(GETSYM SUBR LSQRT LOG LOG10 LSIN LCOS LSIND LCOSD LACOS LASIN LATAN LSINH LCOSH LTANH LEXP LFLOAT RANDOM)
	(MAPC (FUNCTION
	       (LAMBDA(X)
		(PROG NIL
		      (PUTPROP (CAR X) (GET (CDR X) (QUOTE SUBR)) (QUOTE SUBR))
		      (REMPROP (CDR X) (QUOTE SUBR)))))
	      (QUOTE
	       ((SQRT . LSQRT) (SIN . LSIN)
			       (COS . LCOS)
			       (SIND . LSIND)
			       (COSD . LCOSD)
			       (ACOS . LACOS)
			       (ASIN . LASIN)
			       (ATAN . LATAN)
			       (SINH . LSINH)
			       (COSH . LCOSH)
			       (TANH . LTANH)
			       (EXP . LEXP)
			       (FLOAT . LFLOAT)))))) 
EXPR)