
;; Modified data base including return values types
;; and making the arglists correct if they have optional args.
;;

(in-package :compiler)

(DEFSYSFUN 'GENSYM "Lgensym" '(*) 'T NIL NIL) 
(DEFSYSFUN 'SUBSEQ "Lsubseq" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'MINUSP "Lminusp" '(T) 'T NIL T) 
(DEFSYSFUN 'INTEGER-DECODE-FLOAT "Linteger_decode_float" '(T)
    '(VALUES T T T) NIL NIL) 
(DEFSYSFUN '- "Lminus" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'INT-CHAR "Lint_char" '(T) 'CHARACTER NIL NIL) 
(DEFSYSFUN 'CHAR-INT "Lchar_int" '(T) 'FIXNUM NIL NIL) 
(DEFSYSFUN '/= "Lall_different" '(T *) 'T NIL T) 
(DEFSYSFUN 'COPY-SEQ "Lcopy_seq" '(T) 'T NIL NIL) 
(DEFSYSFUN 'KEYWORDP "Lkeywordp" '(T) 'T NIL T) 
(DEFSYSFUN 'NAME-CHAR "Lname_char" '(T) 'CHARACTER NIL NIL) 
(DEFSYSFUN 'CHAR-NAME "Lchar_name" '(T) 'T NIL NIL) 
(DEFSYSFUN 'RASSOC-IF "Lrassoc_if" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'MAKE-LIST "Lmake_list" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'MAKE-ECHO-STREAM "Lmake_echo_stream" '(T T) 'T NIL NIL) 
;(DEFSYSFUN 'NTH "Lnth" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'SIN "Lsin" '(T) 'T NIL NIL) 
(DEFSYSFUN 'NUMERATOR "Lnumerator" '(T) 'T NIL NIL) 
(DEFSYSFUN 'ARRAY-RANK "Larray_rank" '(T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'CAAR "Lcaar" '(T) 'T NIL NIL) 
;#-clcs (DEFSYSFUN 'LOAD "Lload" '(T *) 'T NIL NIL) 
;#-clcs (DEFSYSFUN 'OPEN "Lopen" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'BOTH-CASE-P "Lboth_case_p" '(T) 'T NIL T) 
(DEFSYSFUN 'NULL "Lnull" '(T) 'T NIL T) 
(DEFSYSFUN 'STRING-CAPITALIZE "Lstring_capitalize" '(T *) 'STRING NIL
    NIL) 
(DEFSYSFUN 'MACROEXPAND "Lmacroexpand" '(T *) '(VALUES T T) NIL NIL) 
(DEFSYSFUN 'NCONC "Lnconc" '(*) 'T NIL NIL) 
(DEFSYSFUN 'BOOLE "Lboole" '(T T T) 'T NIL NIL) 
(DEFSYSFUN 'TAILP "Ltailp" '(T T) 'T NIL T) 
(DEFSYSFUN 'CONSP "Lconsp" '(T) 'T NIL T) 
(DEFSYSFUN 'LISTP "Llistp" '(T) 'T NIL T) 
(DEFSYSFUN 'MAPCAN "Lmapcan" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'LENGTH "Llength" '(T) 'FIXNUM T NIL) 
(DEFSYSFUN 'RASSOC "Lrassoc" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'PPRINT "Lpprint" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'NSUBST-IF-NOT "Lnsubst_if_not" '(T T T *) 'T NIL NIL) 
(DEFSYSFUN 'STRING< "Lstring_l" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'REVERSE "Lreverse" '(T) 'T NIL NIL) 
(DEFSYSFUN 'STREAMP "Lstreamp" '(T) 'T NIL T) 
(DEFSYSFUN 'SYSTEM::PUTPROP "siLputprop" '(T T T) 'T NIL NIL) 
(DEFSYSFUN 'REMPROP "Lremprop" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'SYMBOL-PACKAGE "Lsymbol_package" '(T) 'T NIL NIL) 
(DEFSYSFUN 'NSTRING-UPCASE "Lnstring_upcase" '(T *) 'STRING NIL NIL) 
(DEFSYSFUN 'STRING>= "Lstring_ge" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'REALPART "Lrealpart" '(T) 'T NIL NIL) 
;;broken on suns..
(DEFSYSFUN 'NBUTLAST "Lnbutlast" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'ARRAY-DIMENSION "Larray_dimension" '(T T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'CDR "Lcdr" '(T) 'T NIL NIL) 
;(DEFSYSFUN 'EQL "Leql" '(T T) 'T NIL T) 
(DEFSYSFUN 'LOG "Llog" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'STRING-NOT-EQUAL "Lstring_not_equal" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'SHADOWING-IMPORT "Lshadowing_import" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'MAPC "Lmapc" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'MAPL "Lmapl" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'MAKUNBOUND "Lmakunbound" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CONS "Lcons" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'LIST "Llist" '(*) 'T NIL NIL) 
(DEFSYSFUN 'USE-PACKAGE "Luse_package" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'MAKE-SYMBOL "Lmake_symbol" '(T) 'T NIL NIL) 
(DEFSYSFUN 'STRING-RIGHT-TRIM "Lstring_right_trim" '(T T) 'STRING NIL
    NIL) 
(DEFSYSFUN 'PRINT "Lprint" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'CDDAAR "Lcddaar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CDADAR "Lcdadar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CDAADR "Lcdaadr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CADDAR "Lcaddar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CADADR "Lcadadr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CAADDR "Lcaaddr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'SET-MACRO-CHARACTER "Lset_macro_character" '(T T *) 'T NIL
    NIL) 
(DEFSYSFUN 'FORCE-OUTPUT "Lforce_output" '(*) 'T NIL NIL) 
;(DEFSYSFUN 'NTHCDR "Lnthcdr" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'LOGIOR "Llogior" '(*) 'T NIL NIL) 
(DEFSYSFUN 'CHAR-DOWNCASE "Lchar_downcase" '(T) 'CHARACTER NIL NIL) 
(DEFSYSFUN 'STRING-CHAR-P "Lstring_char_p" '(T) 'T NIL T) 
(DEFSYSFUN 'STREAM-ELEMENT-TYPE "Lstream_element_type" '(T) 'T NIL NIL) 
(DEFSYSFUN 'PACKAGE-USED-BY-LIST "Lpackage_used_by_list" '(T) 'T NIL
    NIL) 
(DEFSYSFUN '/ "Ldivide" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'MAPHASH "Lmaphash" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'STRING= "Lstring_eq" '(T T *) 'T NIL T) 
(DEFSYSFUN 'PAIRLIS "Lpairlis" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'SYMBOLP "Lsymbolp" '(T) 'T NIL T) 
(DEFSYSFUN 'CHAR-NOT-LESSP "Lchar_not_lessp" '(T *) 'T NIL T) 
(DEFSYSFUN '1+ "Lone_plus" '(T) 'T NIL NIL) 
(DEFSYSFUN 'BY "Lby" 'NIL 'T NIL NIL) 
(DEFSYSFUN 'NSUBST-IF "Lnsubst_if" '(T T T *) 'T NIL NIL) 
(DEFSYSFUN 'COPY-LIST "Lcopy_list" '(T) 'T NIL NIL) 
(DEFSYSFUN 'TAN "Ltan" '(T) 'T NIL NIL) 
(DEFSYSFUN 'SET "Lset" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'FUNCTIONP "Lfunctionp" '(T) 'T NIL T) 
(DEFSYSFUN 'WRITE-BYTE "Lwrite_byte" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'LAST "Llast" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'MAKE-STRING "Lmake_string" '(T *) 'STRING NIL NIL) 
(DEFSYSFUN 'CAAAR "Lcaaar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'LIST-LENGTH "Llist_length" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CDDDR "Lcdddr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'PRIN1 "Lprin1" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'PRINC "Lprinc" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'LOWER-CASE-P "Llower_case_p" '(T) 'T NIL T) 
(DEFSYSFUN 'CHAR<= "Lchar_le" '(T *) 'T NIL T) 
(DEFSYSFUN 'STRING-EQUAL "Lstring_equal" '(T T *) 'T NIL T) 
(DEFSYSFUN 'CLEAR-OUTPUT "Lclear_output" '(*) 'T NIL NIL) 
#-clcs (DEFSYSFUN 'CERROR "Lcerror" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'TERPRI "Lterpri" '(*) 'T NIL NIL) 
(DEFSYSFUN 'NSUBST "Lnsubst" '(T T T *) 'T NIL NIL) 
(DEFSYSFUN 'UNUSE-PACKAGE "Lunuse_package" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'STRING-NOT-GREATERP "Lstring_not_greaterp" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'STRING> "Lstring_g" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'FINISH-OUTPUT "Lfinish_output" '(*) 'T NIL NIL) 
(DEFSYSFUN 'SPECIAL-OPERATOR-P "Lspecial_operator_p" '(T) 'T NIL T) 
(DEFSYSFUN 'STRINGP "Lstringp" '(T) 'T NIL T) 
(DEFSYSFUN 'GET-INTERNAL-RUN-TIME "Lget_internal_run_time" 'NIL 'T NIL
    NIL) 
(DEFSYSFUN 'TRUNCATE "Ltruncate" '(T *) '(VALUES T T) NIL NIL) 
(DEFSYSFUN 'CODE-CHAR "Lcode_char" '(T *) 'CHARACTER NIL NIL) 
(DEFSYSFUN 'CHAR-CODE "Lchar_code" '(T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'SIMPLE-STRING-P "Lsimple_string_p" '(T) 'T NIL T) 
(DEFSYSFUN 'REVAPPEND "Lrevappend" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'HASH-TABLE-COUNT "Lhash_table_count" '(T) 'T NIL NIL) 
(DEFSYSFUN 'PACKAGE-USE-LIST "Lpackage_use_list" '(T) 'T NIL NIL) 
(DEFSYSFUN 'REM "Lrem" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'MIN "Lmin" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'APPLYHOOK "Lapplyhook" '(T T T T *) 'T NIL NIL) 
(DEFSYSFUN 'EXP "Lexp" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CHAR-LESSP "Lchar_lessp" '(T *) 'T NIL T) 
(DEFSYSFUN 'CDAR "Lcdar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CADR "Lcadr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'LIST-ALL-PACKAGES "Llist_all_packages" 'NIL 'T NIL NIL) 
(DEFSYSFUN 'REST "Lcdr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'COPY-SYMBOL "Lcopy_symbol" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'ACONS "Lacons" '(T T T) 'T NIL NIL) 
(DEFSYSFUN 'ADJUSTABLE-ARRAY-P "Ladjustable_array_p" '(T) 'T NIL T) 
(DEFSYSFUN 'SVREF "Lsvref" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'APPLY "Lapply" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'DECODE-FLOAT "Ldecode_float" '(T) '(VALUES T T T) NIL NIL) 
;(DEFSYSFUN 'SUBST-IF-NOT "Lsubst_if_not" '(T T T *) 'T NIL NIL)
(DEFSYSFUN 'RPLACA "Lrplaca" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'SYMBOL-PLIST "Lsymbol_plist" '(T) 'T NIL NIL) 
(DEFSYSFUN 'WRITE-STRING "Lwrite_string" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'LOGEQV "Llogeqv" '(*) 'T NIL NIL) 
(DEFSYSFUN 'STRING "Lstring" '(T) 'STRING NIL NIL) 
(DEFSYSFUN 'STRING-UPCASE "Lstring_upcase" '(T *) 'STRING NIL NIL) 
(DEFSYSFUN 'CEILING "Lceiling" '(T *) '(VALUES T T) NIL NIL) 
;(DEFSYSFUN 'GETHASH "Lgethash" '(T T *) '(VALUES T T) NIL NIL) 
(DEFSYSFUN 'TYPE-OF "Ltype_of" '(T) 'T NIL NIL) 
(DEFSYSFUN 'BUTLAST "Lbutlast" '(T *) 'T NIL NIL) 
(DEFSYSFUN '1- "Lone_minus" '(T) 'T NIL NIL) 
;(DEFSYSFUN 'MAKE-HASH-TABLE "Lmake_hash_table" '(*) 'T NIL NIL) 
(DEFSYSFUN 'STRING/= "Lstring_neq" '(T T *) 'T NIL NIL) 
(DEFSYSFUN '<= "Lmonotonically_nondecreasing" '(T *) 'T NIL T) 
(DEFSYSFUN 'MAKE-BROADCAST-STREAM "Lmake_broadcast_stream" '(*) 'T NIL
    NIL) 
(DEFSYSFUN 'IMAGPART "Limagpart" '(T) 'T NIL NIL) 
(DEFSYSFUN 'INTEGERP "Lintegerp" '(T) 'T NIL T) 
(DEFSYSFUN 'READ-CHAR "Lread_char" '(*) 'T NIL NIL) 
(DEFSYSFUN 'PEEK-CHAR "Lpeek_char" '(*) 'T NIL NIL) 
(DEFSYSFUN 'CHAR-FONT "Lchar_font" '(T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'STRING-GREATERP "Lstring_greaterp" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'OUTPUT-STREAM-P "Loutput_stream_p" '(T) 'T NIL T) 
(DEFSYSFUN 'ASH "Lash" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'LCM "Llcm" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'ELT "Lelt" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'COS "Lcos" '(T) 'T NIL NIL) 
(DEFSYSFUN 'NSTRING-DOWNCASE "Lnstring_downcase" '(T *) 'STRING NIL
    NIL) 
(DEFSYSFUN 'COPY-ALIST "Lcopy_alist" '(T) 'T NIL NIL) 
(DEFSYSFUN 'ATAN "Latan" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'FLOAT-RADIX "Lfloat_radix" '(T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'SYMBOL-NAME "Lsymbol_name" '(T) 'STRING NIL NIL) 
(DEFSYSFUN 'CLEAR-INPUT "Lclear_input" '(*) 'T NIL NIL) 
(DEFSYSFUN 'FIND-SYMBOL "Lfind_symbol" '(T *) '(VALUES T T) NIL NIL) 
(DEFSYSFUN 'CHAR< "Lchar_l" '(T *) 'T NIL T) 
(DEFSYSFUN 'HASH-TABLE-P "Lhash_table_p" '(T) 'T NIL T) 
(DEFSYSFUN 'EVENP "Levenp" '(T) 'T NIL T) 
(DEFSYSFUN 'SYSTEM::CMOD "siLcmod" '(T) 'T NIL T) 
(DEFSYSFUN 'SYSTEM::CPLUS "siLcplus" '(T T) 'T NIL T) 
(DEFSYSFUN 'SYSTEM::CTIMES "siLctimes" '(T T) 'T NIL T) 
(DEFSYSFUN 'SYSTEM::CDIFFERENCE "siLcdifference" '(T T) 'T NIL T) 
(DEFSYSFUN 'ZEROP "Lzerop" '(T) 'T NIL T) 
(DEFSYSFUN 'CAAAAR "Lcaaaar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CHAR>= "Lchar_ge" '(T *) 'T NIL T) 
(DEFSYSFUN 'CDDDAR "Lcdddar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CDDADR "Lcddadr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CDADDR "Lcdaddr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CADDDR "Lcadddr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'FILL-POINTER "Lfill_pointer" '(T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'MAPCAR "Lmapcar" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'FLOATP "Lfloatp" '(T) 'T NIL T) 
(DEFSYSFUN 'SHADOW "Lshadow" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'MACROEXPAND-1 "Lmacroexpand_1" '(T *) '(VALUES T T) NIL
    NIL) 
(DEFSYSFUN 'SXHASH "Lsxhash" '(T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'LISTEN "Llisten" '(*) 'T NIL NIL) 
(DEFSYSFUN 'ARRAYP "Larrayp" '(T) 'T NIL T) 
(DEFSYSFUN 'FUNCALL "Lfuncall" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'CLRHASH "Lclrhash" '(T) 'T NIL NIL) 
(DEFSYSFUN 'GRAPHIC-CHAR-P "Lgraphic_char_p" '(T) 'T NIL T) 
(DEFSYSFUN 'FBOUNDP "Lfboundp" '(T) 'T NIL T) 
(DEFSYSFUN 'NSUBLIS "Lnsublis" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'CHAR-NOT-EQUAL "Lchar_not_equal" '(T *) 'T NIL T) 
(DEFSYSFUN 'MACRO-FUNCTION "Lmacro_function" '(T) 'T NIL NIL) 
;(DEFSYSFUN 'SUBST-IF "Lsubst_if" '(T T T *) 'T NIL NIL)
(DEFSYSFUN 'COMPLEXP "Lcomplexp" '(T) 'T NIL T) 
(DEFSYSFUN 'READ-LINE "Lread_line" '(*) '(VALUES T T) NIL NIL) 
(DEFSYSFUN 'MAX "Lmax" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'IN-PACKAGE "Lin_package" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'READTABLEP "Lreadtablep" '(T) 'T NIL T) 
(DEFSYSFUN 'FLOAT-SIGN "Lfloat_sign" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'CHARACTERP "Lcharacterp" '(T) 'T NIL T) 
(DEFSYSFUN 'READ "Lread" '(*) 'T NIL NIL) 
(DEFSYSFUN 'UNREAD-CHAR "Lunread_char" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'CDAAR "Lcdaar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CADAR "Lcadar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CAADR "Lcaadr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CHAR= "Lchar_eq" '(T *) 'T NIL T) 
(DEFSYSFUN 'ALPHA-CHAR-P "Lalpha_char_p" '(T) 'T NIL T) 
(DEFSYSFUN 'STRING-TRIM "Lstring_trim" '(T T) 'STRING NIL NIL) 
(DEFSYSFUN 'MAKE-PACKAGE "Lmake_package" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'CLOSE "Lclose" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'DENOMINATOR "Ldenominator" '(T) 'T NIL NIL) 
(DEFSYSFUN 'FLOAT "Lfloat" '(T *) 'T NIL NIL) 
;(DEFSYSFUN 'FIRST "Lcar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'ROUND "Lround" '(T *) '(VALUES T T) NIL NIL) 
;(DEFSYSFUN 'SUBST "Lsubst" '(T T T *) 'T NIL NIL)
(DEFSYSFUN 'UPPER-CASE-P "Lupper_case_p" '(T) 'T NIL T) 
(DEFSYSFUN 'ARRAY-ELEMENT-TYPE "Larray_element_type" '(T) 'T NIL NIL) 
(DEFSYSFUN 'ADJOIN "Ladjoin" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'LOGAND "Llogand" '(*) 'T NIL NIL) 
(DEFSYSFUN 'MAPCON "Lmapcon" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'INTERN "Lintern" '(T *) '(VALUES T T) NIL NIL) 
(DEFSYSFUN 'VALUES "Lvalues" '(*) '* NIL NIL) 
(DEFSYSFUN 'EXPORT "Lexport" '(T *) 'T NIL NIL) 
(DEFSYSFUN '* "Ltimes" '(*) 'T NIL NIL) 
(DEFSYSFUN '< "Lmonotonically_increasing" '(T *) 'T NIL T) 
(DEFSYSFUN 'COMPLEX "Lcomplex" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'SET-SYNTAX-FROM-CHAR "Lset_syntax_from_char" '(T T *) 'T
    NIL NIL) 
(DEFSYSFUN 'CHAR-BIT "Lchar_bit" '(T T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'INTEGER-LENGTH "Linteger_length" '(T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'PACKAGEP "Lpackagep" '(T) 'T NIL T) 
(DEFSYSFUN 'INPUT-STREAM-P "Linput_stream_p" '(T) 'T NIL T) 
(DEFSYSFUN '>= "Lmonotonically_nonincreasing" '(T *) 'T NIL T) 
;(DEFSYSFUN 'EQ "Leq" '(T T) 'T NIL T) 
(DEFSYSFUN 'MAKE-CHAR "Lmake_char" '(T *) 'CHARACTER NIL NIL) 
(DEFSYSFUN 'CHARACTER "Lcharacter" '(T) 'CHARACTER NIL NIL) 
(DEFSYSFUN 'SYMBOL-FUNCTION "Lsymbol_function" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CONSTANTP "Lconstantp" '(T) 'T NIL T) 
(DEFSYSFUN 'CHAR-EQUAL "Lchar_equal" '(T *) 'T NIL T) 
(DEFSYSFUN 'TREE-EQUAL "Ltree_equal" '(T T *) 'T NIL T) 
(DEFSYSFUN 'CDDR "Lcddr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'GETF "Lgetf" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'SAVE "Lsave" '(T) 'T NIL NIL) 
(DEFSYSFUN 'MAKE-RANDOM-STATE "Lmake_random_state" '(*) 'T NIL NIL) 
(DEFSYSFUN 'CHAR-NOT-GREATERP "Lchar_not_greaterp" '(T *) 'T NIL T) 
(DEFSYSFUN 'EXPT "Lexpt" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'SQRT "Lsqrt" '(T) 'T NIL NIL) 
(DEFSYSFUN 'SCALE-FLOAT "Lscale_float" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'CHAR> "Lchar_g" '(T *) 'T NIL T) 
(DEFSYSFUN 'LDIFF "Lldiff" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'ASSOC-IF-NOT "Lassoc_if_not" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'BIT-VECTOR-P "Lbit_vector_p" '(T) 'T NIL T) 
(DEFSYSFUN 'NSTRING-CAPITALIZE "Lnstring_capitalize" '(T *) 'STRING NIL
    NIL) 
(DEFSYSFUN 'SYMBOL-VALUE "Lsymbol_value" '(T) 'T NIL NIL) 
(DEFSYSFUN 'RPLACD "Lrplacd" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'BOUNDP "Lboundp" '(T) 'T NIL T) 
;(DEFSYSFUN 'EQUALP "Lequalp" '(T T) 'T NIL T) 
(DEFSYSFUN 'SIMPLE-BIT-VECTOR-P "Lsimple_bit_vector_p" '(T) 'T NIL T) 
(DEFSYSFUN 'MEMBER-IF-NOT "Lmember_if_not" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'MAKE-TWO-WAY-STREAM "Lmake_two_way_stream" '(T T) 'T NIL
    NIL) 
(DEFSYSFUN 'PARSE-INTEGER "Lparse_integer" '(T *) 'T NIL NIL) 
(DEFSYSFUN '+ "Lplus" '(*) 'T NIL NIL) 
(DEFSYSFUN '= "Lall_the_same" '(T *) 'T NIL T) 
(DEFSYSFUN 'GENTEMP "Lgentemp" '(*) 'T NIL NIL) 
(DEFSYSFUN 'RENAME-PACKAGE "Lrename_package" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'COMMONP "siLcommonp" '(T) 'T NIL T) 
(DEFSYSFUN 'NUMBERP "Lnumberp" '(T) 'T NIL T) 
(DEFSYSFUN 'COPY-READTABLE "Lcopy_readtable" '(*) 'T NIL NIL) 
(DEFSYSFUN 'RANDOM-STATE-P "Lrandom_state_p" '(T) 'T NIL T) 
(DEFSYSFUN 'STANDARD-CHAR-P "Lstandard_char_p" '(T) 'T NIL T) 
(DEFSYSFUN 'IDENTITY "Lidentity" '(T) 'T NIL NIL) 
(DEFSYSFUN 'NREVERSE "Lnreverse" '(T) 'T NIL NIL) 
(DEFSYSFUN 'UNINTERN "Lunintern" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'UNEXPORT "Lunexport" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'FLOAT-PRECISION "Lfloat_precision" '(T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'STRING-DOWNCASE "Lstring_downcase" '(T *) 'STRING NIL NIL) 
(DEFSYSFUN 'CAR "Lcar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CONJUGATE "Lconjugate" '(T) 'T NIL NIL) 
(DEFSYSFUN 'NOT "Lnull" '(T) 'T NIL T) 
(DEFSYSFUN 'READ-CHAR-NO-HANG "Lread_char_no_hang" '(*) 'T NIL NIL) 
(DEFSYSFUN 'FRESH-LINE "Lfresh_line" '(*) 'T NIL NIL) 
(DEFSYSFUN 'WRITE-CHAR "Lwrite_char" '(T *) 'T NIL NIL) 
;(DEFSYSFUN 'PARSE-NAMESTRING "Lparse_namestring" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'STRING-NOT-LESSP "Lstring_not_lessp" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'CHAR "Lchar" '(T T) 'CHARACTER NIL NIL) 
(DEFSYSFUN 'AREF "Laref" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'PACKAGE-NICKNAMES "Lpackage_nicknames" '(T) 'T NIL NIL) 
(DEFSYSFUN 'ENDP "Lendp" '(T) 'T NIL T) 
(DEFSYSFUN 'ODDP "Loddp" '(T) 'T NIL T) 
(DEFSYSFUN 'CHAR-UPCASE "Lchar_upcase" '(T) 'CHARACTER NIL NIL) 
(DEFSYSFUN 'LIST* "LlistA" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'VALUES-LIST "Lvalues_list" '(T) '* NIL NIL) 
;(DEFSYSFUN 'EQUAL "Lequal" '(T T) 'T NIL T) 
(DEFSYSFUN 'DIGIT-CHAR-P "Ldigit_char_p" '(T *) 'T NIL NIL) 
;; #-clcs (DEFSYSFUN 'ERROR "Lerror" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'CHAR/= "Lchar_neq" '(T *) 'T NIL T) 
(DEFSYSFUN 'CDAAAR "Lcdaaar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CADAAR "Lcadaar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CAADAR "Lcaadar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CAAADR "Lcaaadr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CDDDDR "Lcddddr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'GET-MACRO-CHARACTER "Lget_macro_character" '(T *) 'T NIL
    NIL) 
(DEFSYSFUN 'FORMAT "Lformat" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'COMPILED-FUNCTION-P "Lcompiled_function_p" '(T) 'T NIL T) 
(DEFSYSFUN 'SUBLIS "Lsublis" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'IMPORT "Limport" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'LOGXOR "Llogxor" '(*) 'T NIL NIL) 
(DEFSYSFUN 'RASSOC-IF-NOT "Lrassoc_if_not" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'CHAR-GREATERP "Lchar_greaterp" '(T *) 'T NIL T) 
(DEFSYSFUN 'MAKE-SYNONYM-STREAM "Lmake_synonym_stream" '(T) 'T NIL NIL) 
(DEFSYSFUN 'ALPHANUMERICP "Lalphanumericp" '(T) 'T NIL T) 
(DEFSYSFUN 'REMHASH "Lremhash" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'NRECONC "Lreconc" '(T T) 'T NIL NIL) 
(DEFSYSFUN '> "Lmonotonically_decreasing" '(T *) 'T NIL T) 
(DEFSYSFUN 'LOGBITP "Llogbitp" '(T T) 'T NIL T) 
(DEFSYSFUN 'MAPLIST "Lmaplist" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'VECTORP "Lvectorp" '(T) 'T NIL T) 
(DEFSYSFUN 'ASSOC-IF "Lassoc_if" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'GET-PROPERTIES "Lget_properties" '(T T) '* NIL NIL) 
(DEFSYSFUN 'STRING<= "Lstring_le" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'EVALHOOK "siLevalhook" '(T T T *) 'T NIL NIL) 
(DEFSYSFUN 'LOGCOUNT "Llogcount" '(T) 'T NIL NIL) 
(DEFSYSFUN 'MEMBER-IF "Lmember_if" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'READ-BYTE "Lread_byte" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'SIMPLE-VECTOR-P "Lsimple_vector_p" '(T) 'T NIL T) 
(DEFSYSFUN 'CHAR-BITS "Lchar_bits" '(T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'COPY-TREE "Lcopy_tree" '(T) 'T NIL NIL) 
(DEFSYSFUN 'GCD "Lgcd" '(*) 'T NIL NIL) 
(DEFSYSFUN 'BYE "Lby" 'NIL 'T NIL NIL) 
;(DEFSYSFUN 'QUIT "Lquit" 'NIL 'T NIL NIL) 
;(DEFSYSFUN 'EXIT "Lexit" 'NIL 'T NIL NIL) 
(DEFSYSFUN 'GET "Lget" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'MOD "Lmod" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'DIGIT-CHAR "Ldigit_char" '(T *) 'CHARACTER NIL NIL) 
(DEFSYSFUN 'STRING-LEFT-TRIM "Lstring_left_trim" '(T T) 'STRING NIL
    NIL) 
(DEFSYSFUN 'WRITE-LINE "Lwrite_line" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'EVAL "Leval" '(T) 'T NIL NIL) 
(DEFSYSFUN 'ATOM "Latom" '(T) 'T NIL T) 
(DEFSYSFUN 'CDDAR "Lcddar" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CDADR "Lcdadr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'CADDR "Lcaddr" '(T) 'T NIL NIL) 
(DEFSYSFUN 'FMAKUNBOUND "Lfmakunbound" '(T) 'T NIL NIL) 
(DEFSYSFUN 'SLEEP "Lsleep" '(T) 'T NIL NIL) 
(DEFSYSFUN 'PACKAGE-NAME "Lpackage_name" '(T) 'T NIL NIL) 
;(DEFSYSFUN 'FIND-PACKAGE "Lfind_package" '(T) 'T NIL NIL)
(DEFSYSFUN 'ASSOC "Lassoc" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'SET-CHAR-BIT "Lset_char_bit" '(T T T) 'CHARACTER NIL NIL) 
(DEFSYSFUN 'FLOOR "Lfloor" '(T *) '(VALUES T T) NIL NIL) 
(DEFSYSFUN 'WRITE "Lwrite" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'PLUSP "Lplusp" '(T) 'T NIL T) 
(DEFSYSFUN 'FLOAT-DIGITS "Lfloat_digits" '(T) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'READ-DELIMITED-LIST "Lread_delimited_list" '(T *) 'T NIL
    NIL) 
(DEFSYSFUN 'APPEND "Lappend" '(*) 'T NIL NIL) 
(DEFSYSFUN 'MEMBER "Lmember" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'STRING-LESSP "Lstring_lessp" '(T T *) 'T NIL NIL) 
(DEFSYSFUN 'RANDOM "Lrandom" '(T *) 'T NIL NIL) 
(DEFSYSFUN 'SYSTEM::SPECIALP "siLspecialp" '(T) 'T NIL T) 
(DEFSYSFUN 'SYSTEM::OUTPUT-STREAM-STRING "siLoutput_stream_string" '(T)
    'T NIL NIL) 
;#-clcs (DEFSYSFUN 'SYSTEM::ERROR-SET "siLerror_set" '(T) '* NIL NIL) 
(DEFSYSFUN 'SYSTEM::STRUCTUREP "siLstructurep" '(T) 'T NIL T) 
(DEFSYSFUN 'SYSTEM::COPY-STREAM "siLcopy_stream" '(T T) 'T NIL NIL) 
(DEFSYSFUN 'SYSTEM::INIT-SYSTEM "siLinit_system" 'NIL 'T NIL NIL) 
(DEFSYSFUN 'SYSTEM::STRING-TO-OBJECT "siLstring_to_object" '(T) 'T NIL
    NIL) 
(DEFSYSFUN 'SYSTEM::RESET-STACK-LIMITS "siLreset_stack_limits" 'NIL 'T
    NIL NIL) 
(DEFSYSFUN 'SYSTEM::DISPLACED-ARRAY-P "siLdisplaced_array_p" '(T) 'T NIL
    T) 
(DEFSYSFUN 'SYSTEM::RPLACA-NTHCDR "siLrplaca_nthcdr" NIL T NIL NIL) 
(DEFSYSFUN 'SYSTEM::LIST-NTH "siLlist_nth" NIL T NIL NIL) 
;(DEFSYSFUN 'SYSTEM::MAKE-PURE-ARRAY "siLmake_pure_array" NIL T NIL NIL) 
(DEFSYSFUN 'SYSTEM::MAKE-VECTOR "siLmake_vector" NIL 'VECTOR NIL NIL) 
;(DEFSYSFUN 'SYSTEM::ARRAY-DISPLACEMENT "siLarray_displacement" NIL T NIL NIL) 
(DEFSYSFUN 'SYSTEM::ASET "siLaset" '(ARRAY *) NIL NIL NIL) 
(DEFSYSFUN 'SYSTEM::SVSET "siLsvset" '(SIMPLE-VECTOR FIXNUM T) T NIL
    NIL) 
(DEFSYSFUN 'SYSTEM::FILL-POINTER-SET "siLfill_pointer_set"
    '(VECTOR FIXNUM) 'FIXNUM NIL NIL) 
(DEFSYSFUN 'SYSTEM::REPLACE-ARRAY "siLreplace_array" NIL T NIL NIL) 
(DEFSYSFUN 'SYSTEM::FSET "siLfset" '(SYMBOL T) NIL NIL NIL) 
;(DEFSYSFUN 'SYSTEM::HASH-SET "siLhash_set" NIL T NIL NIL) 
(DEFSYSFUN 'BOOLE3 "Lboole" NIL T NIL NIL) 
(DEFSYSFUN 'SYSTEM::PACKAGE-INTERNAL "siLpackage_internal" NIL T NIL
    NIL) 
(DEFSYSFUN 'SYSTEM::PACKAGE-EXTERNAL "siLpackage_external" NIL T NIL
    NIL) 
(DEFSYSFUN 'SYSTEM::ELT-SET "siLelt_set" '(SEQUENCE FIXNUM T) T NIL NIL) 
(DEFSYSFUN 'SYSTEM::CHAR-SET "siLchar_set" '(STRING FIXNUM CHARACTER)
    'CHARACTER NIL NIL) 
(DEFSYSFUN 'SYSTEM::MAKE-STRUCTURE "siLmake_structure" NIL T NIL NIL) 
(DEFSYSFUN 'SYSTEM::STRUCTURE-NAME "siLstructure_name" '(T) 'SYMBOL NIL
    NIL) 
;; (DEFSYSFUN 'SYSTEM::STRUCTURE-REF "siLstructure_ref" '(T T FIXNUM) T NIL
;;     NIL) 
;; (DEFSYSFUN 'SYSTEM::STRUCTURE-SET "siLstructure_set" '(T T FIXNUM T) T
;;     NIL NIL) 
(DEFSYSFUN 'SYSTEM::PUT-F "siLput_f" NIL '(T T) NIL NIL) 
(DEFSYSFUN 'SYSTEM::REM-F "siLrem_f" NIL '(T T) NIL NIL) 
(DEFSYSFUN 'SYSTEM::SET-SYMBOL-PLIST "siLset_symbol_plist" '(SYMBOL T) T
    NIL NIL) 
(DEFSYSFUN 'SI::BIT-ARRAY-OP "siLbit_array_op" NIL T NIL NIL)

(dolist (l '(eq eql equal equalp ldb-test logtest))
  (setf (get l 'predicate) t))




