perm filename ARITH.LSP[UCI,LMM] blob sn#038936 filedate 1973-05-01 generic text, type T, neo UTF8
(PUTSYM 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)