defmodule
genarith
files
(genarith)
export
(#:genarith:+ #:genarith:- #:genarith:* #:genarith:/ #:genarith:quomod floor 
#:genarith:0- #:genarith:1/ ceiling round floor)
cpexport
((#:genarith:+ subr2 ()) (#:genarith:- subr2 ()) (#:genarith:* subr2 ()) (#:
genarith:/ subr2 ()) (#:genarith:quomod subr2 ()) (floor subr1 ()) (#:
genarith:0- subr1 ()) (#:genarith:1/ subr1 ()) (ceiling subr1 ()) (round subr2
()))
cpfunctions
((#:genarith:error nsubr))
cpimport
()