Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/arith.lsp
Click 43,50322/arith.lsp to see without markup as text/plain
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)