( ( BINARY-+ ( X Y) ( AND ( ACL2-NUMBERP X) ( ACL2-NUMBERP Y))) ( BINARY-* ( X Y) ( AND ( ACL2-NUMBERP X) ( ACL2-NUMBERP Y))) ( ZP ( X) ( NATP X)) ( APPEND ( X Y) ( TRUE-LISTP X)) ( IF ( X Y Z) T) ( EQUAL ( X Y) T) ( quote () T) ( /= ( X Y) ( AND ( ACL2-NUMBERP X) ( ACL2-NUMBERP Y))) ( < ( X Y) ( AND ( RATIONALP X) ( RATIONALP Y))) ( = ( X Y) ( AND ( ACL2-NUMBERP X) ( ACL2-NUMBERP Y))) ( ABS ( X) ( RATIONALP X)) ( ACONS ( KEY DATUM ALIST) ( ALISTP ALIST)) ( ALPHA-CHAR-P ( X) ( CHARACTERP X)) ( ASH ( I C) ( AND ( INTEGERP I) ( INTEGERP C))) ( ATOM ( X) T) ( BUTLAST ( LST N) ( AND ( TRUE-LISTP LST) ( INTEGERP N) ( <= 0 N))) ( CAR ( X) ( OR ( CONSP X) ( EQUAL X NIL))) ( CDR ( X) ( OR ( CONSP X) ( EQUAL X NIL))) ( CEILING ( I J) ( AND ( RATIONALP I) ( RATIONALP J) ( NOT ( EQL J 0)))) ( CHAR ( S N) ( AND ( STRINGP S) ( INTEGERP N) ( <= 0 N) ( < N ( LENGTH S)))) ( CHAR-CODE ( X) ( CHARACTERP X)) ( CHAR-DOWNCASE ( X) ( AND ( CHARACTERP X) ( STANDARD-CHAR-P X))) ( CHAR-EQUAL ( X Y) ( AND ( CHARACTERP X) ( STANDARD-CHAR-P X) ( CHARACTERP Y) ( STANDARD-CHAR-P Y))) ( CHAR-UPCASE ( X) ( AND ( CHARACTERP X) ( STANDARD-CHAR-P X))) ( CHAR< ( X Y) ( AND ( CHARACTERP X) ( CHARACTERP Y))) ( CHAR<= ( X Y) ( AND ( CHARACTERP X) ( CHARACTERP Y))) ( CHAR> ( X Y) ( AND ( CHARACTERP X) ( CHARACTERP Y))) ( CHAR>= ( X Y) ( AND ( CHARACTERP X) ( CHARACTERP Y))) ( CHARACTERP ( X) T) ( CODE-CHAR ( X) ( AND ( INTEGERP X) ( NOT ( < X 0)) ( < X 256))) ( COERCE ( X Y) ( CASE Y ( LIST ( STRINGP X)) ( STRING ( CHARACTER-LISTP X)) ( OTHERWISE NIL))) ( COMPLEX ( X Y) ( AND ( RATIONALP X) ( RATIONALP Y))) ( CONJUGATE ( X) ( ACL2-NUMBERP X)) ( CONS ( X Y) T) ( CONSP ( X) T) ( DENOMINATOR ( X) ( RATIONALP X)) ( ENDP ( X) ( OR ( CONSP X) ( EQUAL X NIL))) ( EQ ( X Y) ( OR ( SYMBOLP X) ( SYMBOLP Y))) ( EQL ( X Y) ( OR ( EQLABLEP X) ( EQLABLEP Y))) ( EQUAL ( X Y) T) ( EVENP ( X) ( INTEGERP X)) ( EXPT ( R I) ( AND ( ACL2-NUMBERP R) ( INTEGERP I) ( NOT ( AND ( EQL R 0) ( < I 0))))) ( FLOOR ( I J) ( AND ( RATIONALP I) ( RATIONALP J) ( NOT ( EQL J 0)))) ( IDENTITY ( X) T) ( IMAGPART ( X) ( ACL2-NUMBERP X)) ( INTEGER-LENGTH ( I) ( INTEGERP I)) ( INTEGERP ( X) T) ( KEYWORDP ( X) T) ( LAST ( L) ( LISTP L)) ( LENGTH ( X) ( OR ( TRUE-LISTP X) ( STRINGP X))) ( LISTP ( X) T) ( LOGANDC1 ( I J) ( AND ( INTEGERP I) ( INTEGERP J))) ( LOGANDC2 ( I J) ( AND ( INTEGERP I) ( INTEGERP J))) ( LOGBITP ( I J) ( AND ( INTEGERP J) ( INTEGERP I) ( <= 0 I))) ( LOGCOUNT ( X) ( INTEGERP X)) ( LOGNAND ( I J) ( AND ( INTEGERP I) ( INTEGERP J))) ( LOGNOR ( I J) ( AND ( INTEGERP I) ( INTEGERP J))) ( LOGNOT ( I) ( INTEGERP I)) ( LOGORC1 ( I J) ( AND ( INTEGERP I) ( INTEGERP J))) ( LOGORC2 ( I J) ( AND ( INTEGERP I) ( INTEGERP J))) ( LOGTEST ( X Y) ( AND ( INTEGERP X) ( INTEGERP Y))) ( LOWER-CASE-P ( X) ( AND ( CHARACTERP X) ( STANDARD-CHAR-P X))) ( MAX ( X Y) ( AND ( RATIONALP X) ( RATIONALP Y))) ( MIN ( X Y) ( AND ( RATIONALP X) ( RATIONALP Y))) ( MINUSP ( X) ( RATIONALP X)) ( MOD ( X Y) ( AND ( RATIONALP X) ( RATIONALP Y) ( NOT ( EQL Y 0)))) ( NOT ( P) T) ( NTH ( N L) ( AND ( INTEGERP N) ( <= 0 N) ( TRUE-LISTP L))) ( NTHCDR ( N L) ( AND ( INTEGERP N) ( <= 0 N) ( TRUE-LISTP L))) ( NULL ( X) T) ( NUMERATOR ( X) ( RATIONALP X)) ( ODDP ( X) ( INTEGERP X)) ( PLUSP ( X) ( RATIONALP X)) ( RATIONALP ( X) T) ( REALPART ( X) ( ACL2-NUMBERP X)) ( REM ( X Y) ( AND ( RATIONALP X) ( RATIONALP Y) ( NOT ( EQL Y 0)))) ( REVAPPEND ( X Y) ( TRUE-LISTP X)) ( REVERSE ( X) ( OR ( TRUE-LISTP X) ( STRINGP X))) ( ROUND ( I J) ( AND ( RATIONALP I) ( RATIONALP J) ( NOT ( EQL J 0)))) ( SIGNUM ( X) ( RATIONALP X)) ( STANDARD-CHAR-P ( X) ( CHARACTERP X)) ( STRING ( X) ( OR ( STRINGP X) ( SYMBOLP X) ( CHARACTERP X))) ( STRING-DOWNCASE ( X) ( AND ( STRINGP X) ( STANDARD-CHAR-LISTP ( COERCE X ( quote LIST))))) ( STRING-EQUAL ( STR1 STR2) ( AND ( STRINGP STR1) ( STANDARD-CHAR-LISTP ( COERCE STR1 ( quote LIST))) ( STRINGP STR2) ( STANDARD-CHAR-LISTP ( COERCE STR2 ( quote LIST))))) ( STRING-UPCASE ( X) ( AND ( STRINGP X) ( STANDARD-CHAR-LISTP ( COERCE X ( quote LIST))))) ( STRING< ( STR1 STR2) ( AND ( STRINGP STR1) ( STRINGP STR2))) ( STRING<= ( STR1 STR2) ( AND ( STRINGP STR1) ( STRINGP STR2))) ( STRING> ( STR1 STR2) ( AND ( STRINGP STR1) ( STRINGP STR2))) ( STRING>= ( STR1 STR2) ( AND ( STRINGP STR1) ( STRINGP STR2))) ( STRINGP ( X) T) ( SUBLIS ( ALIST TREE) ( EQLABLE-ALISTP ALIST)) ( SUBSEQ ( SEQ START END) ( AND ( OR ( TRUE-LISTP SEQ) ( STRINGP SEQ)) ( INTEGERP START) ( <= 0 START) ( OR ( NULL END) ( AND ( INTEGERP END) ( <= END ( LENGTH SEQ)))) ( <= START ( OR END ( LENGTH SEQ))))) ( SUBST ( NEW OLD TREE) ( EQLABLEP OLD)) ( SUBSTITUTE ( NEW OLD SEQ) ( OR ( AND ( STRINGP SEQ) ( CHARACTERP NEW)) ( AND ( TRUE-LISTP SEQ) ( OR ( EQLABLEP OLD) ( EQLABLE-LISTP SEQ))))) ( SYMBOL-NAME ( X) ( SYMBOLP X)) ( SYMBOLP ( X) T) ( TRUNCATE ( I J) ( AND ( RATIONALP I) ( RATIONALP J) ( NOT ( EQL J 0)))) ( UPPER-CASE-P ( X) ( AND ( CHARACTERP X) ( STANDARD-CHAR-P X))) ( ZEROP ( X) ( ACL2-NUMBERP X)) ( MATRIXP ( M) ( COND ( ( CONSP M) T) ( M NIL) ( T T))) ( M-EMPTY () ( good-bye)) ( M-EMPTYP ( M) ( matrixp m)) ( ROW-COUNT ( M) ( matrixp m)) ( COL-COUNT ( M) ( matrixp m)) ( ROW-CAR ( M) ( matrixp m)) ( ROW-CDR ( M) ( matrixp m)) ( ROW-CONS ( R M) ( row-cons-guard r m)) ( COL-CAR ( M) ( matrixp m)) ( COL-CDR ( M) ( matrixp m)) ( COL-CONS-IMPL ( L M) ( and ( true-listp l) ( true-listp m))) ( COL-CONS ( L M) ( col-cons-guard l m)))