(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 4-Sep-85 13:11:54" . {QV}<IDL>SOURCES>ARITHMETIC.;9)
FNS (PLUSP ROUND SAME SCALARP TRANSLATE)
(READATABASE)
(
CALL PLUSP (UENTRY CONV.SCALAR GREATERP.LISP) ROUND (UENTRY EAPPLY* FUNCTION) SAME (UENTRY EAPPLY* 
FUNCTION) SCALARP (UENTRY) TRANSLATE (UENTRY IGREATERP UERROR UERROR! EAPPLY* FUNCTION ARG) NIL
BIND PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE NIL NIL
NLAMBDA PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE NIL NIL
NOBIND PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE NIL NIL
RECORD PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE (GENSTATEBLOCK) NIL
CREATE PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE (GENSTATEBLOCK) NIL
FETCH PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE (NDIMS SHAPE DONE) NIL
REPLACE PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE NIL NIL
REFFREE PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE (UERRORSET) NIL
REF PLUSP (UARG) ROUND (UARG) SAME (UARG VALUE) SCALARP NIL TRANSLATE (TRANSLATENARGS UARG TTYPE GSB) 
NIL
SETFREE PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE NIL NIL
SET PLUSP (X) ROUND (VAL INTERVAL) SAME (A B) SCALARP NIL TRANSLATE (S TABLE DEFAULT TELT I) NIL
SMASHFREE PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE NIL NIL
SMASH PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE NIL NIL
PROP PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE NIL NIL
TEST PLUSP (X) ROUND (VAL INTERVAL VALUE) SAME (A B) SCALARP (S) TRANSLATE (S DEFAULT VALUE TELT) NIL
TESTFREE PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE NIL NIL
PREDICATE PLUSP (NUMBERP) ROUND NIL SAME NIL SCALARP (NUMBERP VSCALARP) TRANSLATE (UERRORPRINT?) NIL
EFFECT PLUSP (DECLARE) ROUND (DECLARE) SAME (DECLARE) SCALARP (DECLARE) TRANSLATE (DECLARE PRIN1 
TERPRI) NIL
CLISP PLUSP (ULAMBDA DPROG) ROUND (ULAMBDA DPROG the) SAME (ULAMBDA DPROG the) SCALARP (ULAMBDA DPROG 
type?) TRANSLATE (printout ULAMBDA DPROG type? the DPROGN bind declare until do finally) NIL
SPECVARS PLUSP (X) ROUND (VAL INTERVAL) SAME (A B) SCALARP (S) TRANSLATE (TRANSLATENARGS S TABLE 
DEFAULT) NIL
LOCALVARS PLUSP (T) ROUND (T) SAME (T) SCALARP NIL TRANSLATE (T) NIL
APPLY PLUSP NIL ROUND (DECLARE UENTRY CONV.SCALAR NUMBERP TIMES IVALUE FIX FPLUS FQUOTIENT MINUSP) 
SAME (DECLARE UENTRY CONV.SCALAR NUMBERP FIXP EQP) SCALARP NIL TRANSLATE (DECLARE UENTRY CONV.SCALAR 
ARRAYTYPEP UERRORGUARD UERRORGUARDVAL UERRORSET NAMEDLET UERRORNAME CONV.VECTOR CONV.ARRAY UERROR 
UERROR! UERRORPRINT? PRIN1 PRIN2 TERPRI NUMBERP GETRELT SETUP CONSTANT FIXP TYPENAMEP GETAELT NEXT 
SELECTQ IPLUS UEQP COPYAELT SKIP GREATERP ILESSP) NIL
ERROR PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE (ppe) NIL
LOCALFREEVARS PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE (TRANSLATENARGS) NIL
ARGS PLUSP NIL ROUND NIL SAME NIL SCALARP NIL TRANSLATE NIL NIL
USERTEMPLATES OP# (CALL) SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) SETQ.NOREF (CALL SET EVAL . PPE) 
SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) UENTRY (CALL NIL .. EVAL RETURN) perform (MACRO ARGS (
PERFORMTRAN ARGS T)) PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) SHAZAM (CALL .. NIL) UERRORGUARD MACRO 
UERROR MACRO UERRORSET MACRO NIL
0 PLUSP (SCALAR) ROUND (SCALAR) SAME (SCALAR INTEGER) SCALARP (NIL SCALAR) TRANSLATE (VECTOR MATRIX 
SCALAR NIL INTEGER GENSTATEBLOCK) NIL

)