├── COPYRIGHT ├── INSTALL ├── NOTES ├── Notes-0.6.2 ├── RCS ├── RCS-directories ├── RCS-files ├── README ├── README.akcl ├── README.clisp ├── README.cmu-cl ├── bin ├── RCS ├── RCS-files ├── build-protos ├── cl ├── cl-s ├── cl386 ├── clg ├── clg-s ├── clp ├── rt ├── rt-s ├── rtg ├── rtg-s ├── rtp └── tar-clicc ├── build-clicc-release ├── doc ├── Klassenbaum.txt ├── Migration.ps ├── Migration.tex ├── RCS ├── RCS-files ├── array.tex ├── c-code.txt ├── c-machine.ps ├── cl0-engl.ps ├── cl0-engl.tex ├── clicc.1 ├── clos-0.tex ├── elifecycle.fig ├── emigration.fig ├── extensions ├── lisp-errors ├── migration ├── module.doc ├── mv-lambda.txt ├── predicates.doc ├── tgif └── zspra.ps ├── lib ├── RCS ├── RCS-files ├── README ├── c_decl.h ├── foreign1.h ├── foreign2.h ├── makefile.cl ├── makefile.cl386 ├── obrep.h ├── obrep1.h ├── obrep2.h ├── sys.def └── sys.h ├── logbook └── src ├── compiler ├── RCS ├── RCS-files ├── README ├── appfuns.lisp ├── bq-read.lisp ├── cgblock.lisp ├── cgcode.lisp ├── cgconst.lisp ├── cgdefs.lisp ├── cgforeign.lisp ├── cgfuns.lisp ├── cgif.lisp ├── cginline.lisp ├── cgmain.lisp ├── cgvalues.lisp ├── cgvars.lisp ├── clcdef.lisp ├── clcload.lisp ├── clcmain.lisp ├── clcmisc.lisp ├── clicc.lisp ├── clisp-compat.lisp ├── closure-analysis.lisp ├── config.lisp ├── deffile.lisp ├── delete.lisp ├── ffload.lisp ├── fftypes.lisp ├── ffzsdef.lisp ├── inline.lisp ├── optimain.lisp ├── optimize.lisp ├── p0init.lisp ├── p1class.lisp ├── p1compmac.lisp ├── p1decls.lisp ├── p1env.lisp ├── p1eval.lisp ├── p1foreign.lisp ├── p1generic.lisp ├── p1lambda.lisp ├── p1macexp.lisp ├── p1macro.lisp ├── p1main.lisp ├── p1setf.lisp ├── p1spform.lisp ├── p1struct.lisp ├── p1tlf.lisp ├── p1type.lisp ├── p3main.lisp ├── printzs.lisp ├── se-init.lisp ├── seomain.lisp ├── sexport.lisp ├── simplifier.lisp ├── static-effect.lisp ├── statistics.lisp ├── strconst.lisp ├── subst.lisp ├── tail.lisp ├── tiassert.lisp ├── tidecl.lisp ├── tidef.lisp ├── tiimpdec.lisp ├── timain.lisp ├── timisc.lisp ├── tipass1.lisp ├── tipass2.lisp ├── tipass3.lisp ├── titypes.lisp ├── tomain.lisp ├── traverse.lisp ├── weight.lisp ├── zs2lisp.lisp ├── zsdef.lisp └── zsops.lisp ├── runtime ├── c │ ├── GNUmakefile │ ├── GNUmakefile386 │ ├── Makefile │ ├── RCS │ ├── RCS-files │ ├── arith.c │ ├── array.c │ ├── catch.c │ ├── character.c │ ├── clos.c │ ├── debug.c │ ├── environ.c │ ├── file.c │ ├── foreign.c │ ├── fspecs.c │ ├── funcall.c │ ├── hash.c │ ├── keysort.c │ ├── list.c │ ├── logexpt.c │ ├── main.c │ ├── ncompare.c │ ├── nconvert.c │ ├── npredic.c │ ├── number.c │ ├── obrep1.c │ ├── obrep2.c │ ├── progv.c │ ├── string.c │ ├── structure.c │ ├── symbols.c │ ├── system.c │ ├── trigonom.c │ ├── unix.c │ └── values.c ├── lisp │ ├── RCS │ ├── RCS-files │ ├── allsyms.lisp │ ├── array.lisp │ ├── char.lisp │ ├── clos.lisp │ ├── coerce.lisp │ ├── environ.lisp │ ├── equal.lisp │ ├── error.lisp │ ├── file.lisp │ ├── filesys.lisp │ ├── foreign.lisp │ ├── format.lisp │ ├── hash.lisp │ ├── inline.lisp │ ├── lisp.lisp │ ├── list.lisp │ ├── map.lisp │ ├── misc.lisp │ ├── num.lisp │ ├── packg.lisp │ ├── pathname.lisp │ ├── pred.lisp │ ├── print.lisp │ ├── read.lisp │ ├── seq.lisp │ ├── startup.lisp │ ├── stream.lisp │ ├── string.lisp │ ├── struct.lisp │ ├── sym.lisp │ ├── typspc.lisp │ └── yesno.lisp └── lisp2c │ ├── Clisp.c │ ├── FFI_c_char.c │ ├── FFI_c_char_p.c │ ├── FFI_c_double.c │ ├── FFI_c_float.c │ ├── FFI_c_float_p.c │ ├── FFI_c_int.c │ ├── FFI_c_int_p.c │ ├── FFI_c_long.c │ ├── FFI_c_long_p.c │ ├── FFI_c_short.c │ ├── FFI_c_short_p.c │ ├── Fabs.c │ ├── Facons.c │ ├── Fadjoin.c │ ├── Fadjust_array.c │ ├── Falpha_char_p.c │ ├── Faref.c │ ├── Farray_rank.c │ ├── Farrayp.c │ ├── Fash.c │ ├── Fassoc.c │ ├── Fassoc_if.c │ ├── Fassoc_if_not.c │ ├── Fatom.c │ ├── Fbit.c │ ├── Fbit_and.c │ ├── Fbit_andc1.c │ ├── Fbit_andc2.c │ ├── Fbit_array_p.c │ ├── Fbit_eqv.c │ ├── Fbit_ior.c │ ├── Fbit_nand.c │ ├── Fbit_nor.c │ ├── Fbit_not.c │ ├── Fbit_orc1.c │ ├── Fbit_orc2.c │ ├── Fbit_vector_p.c │ ├── Fbit_xor.c │ ├── Fboth_case_p.c │ ├── Fboundp.c │ ├── Fbreak.c │ ├── Fbutlast.c │ ├── Fcaaaar.c │ ├── Fcaaadr.c │ ├── Fcaaar.c │ ├── Fcaadar.c │ ├── Fcaaddr.c │ ├── Fcaadr.c │ ├── Fcaar.c │ ├── Fcadaar.c │ ├── Fcadadr.c │ ├── Fcadar.c │ ├── Fcaddar.c │ ├── Fcadddr.c │ ├── Fcaddr.c │ ├── Fcadr.c │ ├── Fcar.c │ ├── Fcdaaar.c │ ├── Fcdaadr.c │ ├── Fcdaar.c │ ├── Fcdadar.c │ ├── Fcdaddr.c │ ├── Fcdadr.c │ ├── Fcdar.c │ ├── Fcddaar.c │ ├── Fcddadr.c │ ├── Fcddar.c │ ├── Fcdddar.c │ ├── Fcddddr.c │ ├── Fcdddr.c │ ├── Fcddr.c │ ├── Fcdr.c │ ├── Fceiling.c │ ├── Fchar.c │ ├── FcharE.c │ ├── FcharG.c │ ├── FcharGE.c │ ├── FcharL.c │ ├── FcharLE.c │ ├── FcharNE.c │ ├── Fchar_code.c │ ├── Fchar_equal.c │ ├── Fchar_int.c │ ├── Fchar_lessp.c │ ├── Fchar_name.c │ ├── Fchar_upcase.c │ ├── Fcharacter.c │ ├── Fcharacterp.c │ ├── Fclass_of.c │ ├── Fclose.c │ ├── Fclrhash.c │ ├── Fcode_char.c │ ├── Fcoerce.c │ ├── Fcomplement.c │ ├── Fconcatenate.c │ ├── Fcons.c │ ├── Fconsp.c │ ├── Fcopy_alist.c │ ├── Fcopy_list.c │ ├── Fcopy_seq.c │ ├── Fcopy_symbol.c │ ├── Fcopy_tree.c │ ├── Fcount.c │ ├── Fcount_if.c │ ├── Fcount_if_not.c │ ├── Fdelete.c │ ├── Fdelete_if.c │ ├── Fdigit_char.c │ ├── Fdigit_char_p.c │ ├── Fdirectory.c │ ├── Feighth.c │ ├── Felt.c │ ├── Fendp.c │ ├── Feq.c │ ├── Feql.c │ ├── Fequal.c │ ├── Fequalp.c │ ├── Ferror.c │ ├── Fevery.c │ ├── Fexport.c │ ├── Fexpt.c │ ├── Ffifth.c │ ├── Ffile_length.c │ ├── Ffill.c │ ├── Ffill_pointer.c │ ├── Ffind.c │ ├── Ffind_if.c │ ├── Ffind_if_not.c │ ├── Ffind_package.c │ ├── Ffind_symbol.c │ ├── Ffirst.c │ ├── Ffloat.c │ ├── Ffloat_radix.c │ ├── Ffloat_sign.c │ ├── Ffloatp.c │ ├── Ffloor.c │ ├── Fformat.c │ ├── Ffourth.c │ ├── Ffresh_line.c │ ├── Ffunctionp.c │ ├── Fgensym.c │ ├── Fgentemp.c │ ├── Fget.c │ ├── Fgetf.c │ ├── Fgethash.c │ ├── Fhash_table_p.c │ ├── Fidentity.c │ ├── Fimport.c │ ├── Fin_package.c │ ├── Fintegerp.c │ ├── Fintern.c │ ├── Fintersection.c │ ├── Fisqrt.c │ ├── Fkeywordp.c │ ├── Flast.c │ ├── Fldiff.c │ ├── Flength.c │ ├── Flist_length.c │ ├── Flistp.c │ ├── Flog.c │ ├── Flogand.c │ ├── Flogandc1.c │ ├── Flogandc2.c │ ├── Flogbitp.c │ ├── Flogeqv.c │ ├── Flogior.c │ ├── Flognand.c │ ├── Flognor.c │ ├── Flognot.c │ ├── Flogorc1.c │ ├── Flogorc2.c │ ├── Flogtest.c │ ├── Flogxor.c │ ├── Flower_case_p.c │ ├── Fmake_array.c │ ├── Fmake_list.c │ ├── Fmake_package.c │ ├── Fmake_string.c │ ├── Fmake_symbol.c │ ├── Fmakunbound.c │ ├── Fmap.c │ ├── Fmapc.c │ ├── Fmapcan.c │ ├── Fmapcar.c │ ├── Fmapcon.c │ ├── Fmaphash.c │ ├── Fmapl.c │ ├── Fmaplist.c │ ├── Fmax.c │ ├── Fmember.c │ ├── Fmember_if.c │ ├── Fmin.c │ ├── Fmismatch.c │ ├── Fmod.c │ ├── Fname_char.c │ ├── Fnamestring.c │ ├── Fnbutlast.c │ ├── Fnconc.c │ ├── Fninth.c │ ├── Fnot.c │ ├── Fnotany.c │ ├── Fnotevery.c │ ├── Fnreconc.c │ ├── Fnreverse.c │ ├── Fnsublis.c │ ├── Fnsubst.c │ ├── Fnsubst_if.c │ ├── Fnsubstitute.c │ ├── Fnth.c │ ├── Fnthcdr.c │ ├── Fnull.c │ ├── Fnumberp.c │ ├── Fnunion.c │ ├── Fopen.c │ ├── Fpackage_name.c │ ├── Fpackagep.c │ ├── Fpairlis.c │ ├── Fpathname.c │ ├── Fpathnamep.c │ ├── Fpeek_char.c │ ├── Fposition.c │ ├── Fposition_if.c │ ├── Fpprint.c │ ├── Fprin1.c │ ├── Fprinc.c │ ├── Fprint.c │ ├── Fprobe_file.c │ ├── Frassoc.c │ ├── Frassoc_if.c │ ├── Fread.c │ ├── Fread_char.c │ ├── Fread_line.c │ ├── Freadtablep.c │ ├── Freduce.c │ ├── Frem.c │ ├── Fremhash.c │ ├── Fremove.c │ ├── Fremove_if.c │ ├── Fremprop.c │ ├── Freplace.c │ ├── Frest.c │ ├── Frevappend.c │ ├── Freverse.c │ ├── Fround.c │ ├── Frplaca.c │ ├── Frplacd.c │ ├── Fsbit.c │ ├── Fscale_float.c │ ├── Fschar.c │ ├── Fsearch.c │ ├── Fsecond.c │ ├── Fset.c │ ├── Fset_aref.c │ ├── Fset_bit.c │ ├── Fset_caaaar.c │ ├── Fset_caaadr.c │ ├── Fset_caaar.c │ ├── Fset_caadar.c │ ├── Fset_caaddr.c │ ├── Fset_caadr.c │ ├── Fset_caar.c │ ├── Fset_cadaar.c │ ├── Fset_cadadr.c │ ├── Fset_cadar.c │ ├── Fset_caddar.c │ ├── Fset_cadddr.c │ ├── Fset_caddr.c │ ├── Fset_cadr.c │ ├── Fset_car.c │ ├── Fset_cdaaar.c │ ├── Fset_cdaadr.c │ ├── Fset_cdaar.c │ ├── Fset_cdadar.c │ ├── Fset_cdaddr.c │ ├── Fset_cdadr.c │ ├── Fset_cdar.c │ ├── Fset_cddaar.c │ ├── Fset_cddadr.c │ ├── Fset_cddar.c │ ├── Fset_cdddar.c │ ├── Fset_cddddr.c │ ├── Fset_cdddr.c │ ├── Fset_cddr.c │ ├── Fset_cdr.c │ ├── Fset_char.c │ ├── Fset_eighth.c │ ├── Fset_elt.c │ ├── Fset_fifth.c │ ├── Fset_first.c │ ├── Fset_fourth.c │ ├── Fset_get.c │ ├── Fset_gethash.c │ ├── Fset_ninth.c │ ├── Fset_nth.c │ ├── Fset_rest.c │ ├── Fset_sbit.c │ ├── Fset_schar.c │ ├── Fset_second.c │ ├── Fset_seventh.c │ ├── Fset_sixth.c │ ├── Fset_svref.c │ ├── Fset_tenth.c │ ├── Fset_third.c │ ├── Fseventh.c │ ├── Fshadow.c │ ├── Fsixth.c │ ├── Fslot_boundp.c │ ├── Fslot_missing.c │ ├── Fslot_unbound.c │ ├── Fslot_value.c │ ├── Fsome.c │ ├── Fsort.c │ ├── Fstreamp.c │ ├── Fstring.c │ ├── FstringE.c │ ├── FstringG.c │ ├── FstringGE.c │ ├── FstringL.c │ ├── FstringLE.c │ ├── FstringNE.c │ ├── Fstring_equal.c │ ├── Fstring_lessp.c │ ├── Fstring_trim.c │ ├── Fstringp.c │ ├── Fsublis.c │ ├── Fsubseq.c │ ├── Fsubsetp.c │ ├── Fsubst.c │ ├── Fsubst_if.c │ ├── Fsubst_if_not.c │ ├── Fsubstitute.c │ ├── Fsubtypep.c │ ├── Fsvref.c │ ├── Fsxhash.c │ ├── Fsymbol_name.c │ ├── Fsymbol_plist.c │ ├── Fsymbol_value.c │ ├── Fsymbolp.c │ ├── Ftailp.c │ ├── Ftenth.c │ ├── Fterpri.c │ ├── Fthird.c │ ├── Ftree_equal.c │ ├── Ftruename.c │ ├── Ftruncate.c │ ├── Ftypep.c │ ├── Funexport.c │ ├── Funintern.c │ ├── Funion.c │ ├── Funread_char.c │ ├── Fupper_case_p.c │ ├── Fuse_package.c │ ├── Fvector.c │ ├── Fvector_pop.c │ ├── Fvector_push.c │ ├── Fvectorp.c │ ├── Fwarn.c │ ├── Fwrite.c │ ├── Fwrite_char.c │ ├── Fwrite_line.c │ ├── Fwrite_string.c │ ├── Fy_or_n_p.c │ ├── Fyes_or_no_p.c │ ├── GNUmakefile │ ├── GNUmakefile386 │ ├── Ilisp.c │ ├── Makefile │ ├── Ppackage_name.c │ ├── RCS │ ├── RCS-files │ ├── Slisp.c │ ├── add_nicknames.c │ ├── add_q.c │ ├── adjoin1.c │ ├── adjust_array1.c │ ├── array_reader.c │ ├── assoc1.c │ ├── assoc_if1.c │ ├── assoc_if_not1.c │ ├── binary_reader.c │ ├── bit_and1.c │ ├── bit_andc11.c │ ├── bit_andc21.c │ ├── bit_eqv1.c │ ├── bit_ior1.c │ ├── bit_nand1.c │ ├── bit_nor1.c │ ├── bit_not1.c │ ├── bit_op.c │ ├── bit_orc11.c │ ├── bit_orc21.c │ ├── bit_xor1.c │ ├── bq_process.c │ ├── bq_simplify.c │ ├── bracket.c │ ├── break1.c │ ├── butlast1.c │ ├── c_char_p.c │ ├── c_getenv.c │ ├── c_int_p.c │ ├── c_long_p.c │ ├── c_short_p.c │ ├── c_system.c │ ├── ceiling1.c │ ├── char_reader.c │ ├── check_array.c │ ├── check_integer.c │ ├── close1.c │ ├── close2.c │ ├── close_err.c │ ├── comma_reader.c │ ├── cons_reader.c │ ├── copy_struct.c │ ├── copy_symbol1.c │ ├── count1.c │ ├── count_if1.c │ ├── count_if_not1.c │ ├── del_pack_sym.c │ ├── delete1.c │ ├── delete_if1.c │ ├── digit_char1.c │ ├── digit_char_p1.c │ ├── directory1.c │ ├── error_in.c │ ├── eval_feature.c │ ├── export1.c │ ├── file_name.c │ ├── file_name1.c │ ├── fill1.c │ ├── find1.c │ ├── find_if1.c │ ├── find_symbol1.c │ ├── float1.c │ ├── float_sign1.c │ ├── floor1.c │ ├── format2.c │ ├── format21.c │ ├── fresh_line1.c │ ├── gensym1.c │ ├── gentemp1.c │ ├── get1.c │ ├── get_prop.c │ ├── getf1.c │ ├── gethash1.c │ ├── hex_reader.c │ ├── host_parse.c │ ├── host_unparse.c │ ├── import1.c │ ├── in_package1.c │ ├── inline.h │ ├── inline13.c │ ├── inline14.c │ ├── inline15.c │ ├── inline16.c │ ├── inline24.c │ ├── inline25.c │ ├── inline26.c │ ├── inline27.c │ ├── intern1.c │ ├── internal_read.c │ ├── intersection1.c │ ├── last1.c │ ├── lisp-const.c │ ├── lisp-init.c │ ├── lisp-syms.c │ ├── lisp.def │ ├── lisp.h │ ├── lisp.syntax │ ├── lisp10.c │ ├── lisp100.c │ ├── lisp101.c │ ├── lisp102.c │ ├── lisp103.c │ ├── lisp104.c │ ├── lisp105.c │ ├── lisp106.c │ ├── lisp107.c │ ├── lisp108.c │ ├── lisp109.c │ ├── lisp11.c │ ├── lisp110.c │ ├── lisp111.c │ ├── lisp112.c │ ├── lisp113.c │ ├── lisp114.c │ ├── lisp115.c │ ├── lisp116.c │ ├── lisp117.c │ ├── lisp118.c │ ├── lisp119.c │ ├── lisp12.c │ ├── lisp120.c │ ├── lisp121.c │ ├── lisp122.c │ ├── lisp123.c │ ├── lisp124.c │ ├── lisp125.c │ ├── lisp126.c │ ├── lisp127.c │ ├── lisp128.c │ ├── lisp129.c │ ├── lisp13.c │ ├── lisp130.c │ ├── lisp131.c │ ├── lisp132.c │ ├── lisp133.c │ ├── lisp134.c │ ├── lisp135.c │ ├── lisp137.c │ ├── lisp138.c │ ├── lisp139.c │ ├── lisp14.c │ ├── lisp140.c │ ├── lisp141.c │ ├── lisp142.c │ ├── lisp143.c │ ├── lisp144.c │ ├── lisp145.c │ ├── lisp146.c │ ├── lisp147.c │ ├── lisp151.c │ ├── lisp152.c │ ├── lisp155.c │ ├── lisp158.c │ ├── lisp159.c │ ├── lisp16.c │ ├── lisp161.c │ ├── lisp166.c │ ├── lisp17.c │ ├── lisp170.c │ ├── lisp171.c │ ├── lisp172.c │ ├── lisp173.c │ ├── lisp174.c │ ├── lisp175.c │ ├── lisp177.c │ ├── lisp178.c │ ├── lisp179.c │ ├── lisp18.c │ ├── lisp180.c │ ├── lisp181.c │ ├── lisp182.c │ ├── lisp183.c │ ├── lisp184.c │ ├── lisp185.c │ ├── lisp186.c │ ├── lisp187.c │ ├── lisp188.c │ ├── lisp189.c │ ├── lisp19.c │ ├── lisp190.c │ ├── lisp191.c │ ├── lisp192.c │ ├── lisp193.c │ ├── lisp194.c │ ├── lisp195.c │ ├── lisp196.c │ ├── lisp197.c │ ├── lisp198.c │ ├── lisp199.c │ ├── lisp20.c │ ├── lisp200.c │ ├── lisp201.c │ ├── lisp202.c │ ├── lisp203.c │ ├── lisp204.c │ ├── lisp205.c │ ├── lisp206.c │ ├── lisp207.c │ ├── lisp208.c │ ├── lisp209.c │ ├── lisp21.c │ ├── lisp210.c │ ├── lisp211.c │ ├── lisp212.c │ ├── lisp213.c │ ├── lisp214.c │ ├── lisp215.c │ ├── lisp216.c │ ├── lisp217.c │ ├── lisp218.c │ ├── lisp219.c │ ├── lisp22.c │ ├── lisp220.c │ ├── lisp221.c │ ├── lisp222.c │ ├── lisp223.c │ ├── lisp224.c │ ├── lisp225.c │ ├── lisp226.c │ ├── lisp227.c │ ├── lisp228.c │ ├── lisp229.c │ ├── lisp23.c │ ├── lisp230.c │ ├── lisp231.c │ ├── lisp232.c │ ├── lisp233.c │ ├── lisp234.c │ ├── lisp235.c │ ├── lisp236.c │ ├── lisp237.c │ ├── lisp238.c │ ├── lisp239.c │ ├── lisp24.c │ ├── lisp240.c │ ├── lisp241.c │ ├── lisp242.c │ ├── lisp243.c │ ├── lisp244.c │ ├── lisp245.c │ ├── lisp246.c │ ├── lisp247.c │ ├── lisp248.c │ ├── lisp249.c │ ├── lisp25.c │ ├── lisp250.c │ ├── lisp251.c │ ├── lisp252.c │ ├── lisp253.c │ ├── lisp254.c │ ├── lisp255.c │ ├── lisp256.c │ ├── lisp258.c │ ├── lisp259.c │ ├── lisp26.c │ ├── lisp260.c │ ├── lisp261.c │ ├── lisp262.c │ ├── lisp263.c │ ├── lisp264.c │ ├── lisp265.c │ ├── lisp266.c │ ├── lisp267.c │ ├── lisp268.c │ ├── lisp270.c │ ├── lisp271.c │ ├── lisp272.c │ ├── lisp273.c │ ├── lisp275.c │ ├── lisp276.c │ ├── lisp277.c │ ├── lisp278.c │ ├── lisp279.c │ ├── lisp28.c │ ├── lisp280.c │ ├── lisp281.c │ ├── lisp282.c │ ├── lisp283.c │ ├── lisp285.c │ ├── lisp286.c │ ├── lisp288.c │ ├── lisp289.c │ ├── lisp29.c │ ├── lisp290.c │ ├── lisp291.c │ ├── lisp292.c │ ├── lisp293.c │ ├── lisp294.c │ ├── lisp295.c │ ├── lisp296.c │ ├── lisp30.c │ ├── lisp300.c │ ├── lisp301.c │ ├── lisp302.c │ ├── lisp303.c │ ├── lisp304.c │ ├── lisp305.c │ ├── lisp306.c │ ├── lisp307.c │ ├── lisp308.c │ ├── lisp309.c │ ├── lisp31.c │ ├── lisp310.c │ ├── lisp312.c │ ├── lisp314.c │ ├── lisp315.c │ ├── lisp316.c │ ├── lisp317.c │ ├── lisp318.c │ ├── lisp320.c │ ├── lisp321.c │ ├── lisp322.c │ ├── lisp324.c │ ├── lisp326.c │ ├── lisp327.c │ ├── lisp328.c │ ├── lisp329.c │ ├── lisp330.c │ ├── lisp331.c │ ├── lisp332.c │ ├── lisp333.c │ ├── lisp334.c │ ├── lisp335.c │ ├── lisp336.c │ ├── lisp337.c │ ├── lisp339.c │ ├── lisp34.c │ ├── lisp341.c │ ├── lisp342.c │ ├── lisp343.c │ ├── lisp344.c │ ├── lisp345.c │ ├── lisp346.c │ ├── lisp347.c │ ├── lisp348.c │ ├── lisp349.c │ ├── lisp350.c │ ├── lisp351.c │ ├── lisp352.c │ ├── lisp353.c │ ├── lisp354.c │ ├── lisp355.c │ ├── lisp356.c │ ├── lisp357.c │ ├── lisp358.c │ ├── lisp359.c │ ├── lisp36.c │ ├── lisp360.c │ ├── lisp361.c │ ├── lisp362.c │ ├── lisp363.c │ ├── lisp364.c │ ├── lisp365.c │ ├── lisp366.c │ ├── lisp367.c │ ├── lisp368.c │ ├── lisp369.c │ ├── lisp37.c │ ├── lisp370.c │ ├── lisp371.c │ ├── lisp372.c │ ├── lisp373.c │ ├── lisp374.c │ ├── lisp375.c │ ├── lisp376.c │ ├── lisp377.c │ ├── lisp378.c │ ├── lisp379.c │ ├── lisp38.c │ ├── lisp380.c │ ├── lisp381.c │ ├── lisp382.c │ ├── lisp383.c │ ├── lisp384.c │ ├── lisp385.c │ ├── lisp39.c │ ├── lisp394.c │ ├── lisp395.c │ ├── lisp402.c │ ├── lisp403.c │ ├── lisp41.c │ ├── lisp412.c │ ├── lisp413.c │ ├── lisp418.c │ ├── lisp419.c │ ├── lisp420.c │ ├── lisp421.c │ ├── lisp423.c │ ├── lisp424.c │ ├── lisp425.c │ ├── lisp426.c │ ├── lisp427.c │ ├── lisp428.c │ ├── lisp429.c │ ├── lisp43.c │ ├── lisp430.c │ ├── lisp431.c │ ├── lisp432.c │ ├── lisp433.c │ ├── lisp434.c │ ├── lisp435.c │ ├── lisp436.c │ ├── lisp437.c │ ├── lisp438.c │ ├── lisp439.c │ ├── lisp44.c │ ├── lisp441.c │ ├── lisp442.c │ ├── lisp443.c │ ├── lisp444.c │ ├── lisp445.c │ ├── lisp446.c │ ├── lisp447.c │ ├── lisp448.c │ ├── lisp449.c │ ├── lisp45.c │ ├── lisp450.c │ ├── lisp451.c │ ├── lisp454.c │ ├── lisp457.c │ ├── lisp458.c │ ├── lisp459.c │ ├── lisp46.c │ ├── lisp460.c │ ├── lisp461.c │ ├── lisp462.c │ ├── lisp463.c │ ├── lisp464.c │ ├── lisp465.c │ ├── lisp466.c │ ├── lisp467.c │ ├── lisp468.c │ ├── lisp469.c │ ├── lisp47.c │ ├── lisp472.c │ ├── lisp473.c │ ├── lisp474.c │ ├── lisp475.c │ ├── lisp476.c │ ├── lisp477.c │ ├── lisp478.c │ ├── lisp479.c │ ├── lisp48.c │ ├── lisp480.c │ ├── lisp481.c │ ├── lisp482.c │ ├── lisp483.c │ ├── lisp484.c │ ├── lisp485.c │ ├── lisp486.c │ ├── lisp487.c │ ├── lisp488.c │ ├── lisp489.c │ ├── lisp49.c │ ├── lisp490.c │ ├── lisp491.c │ ├── lisp492.c │ ├── lisp493.c │ ├── lisp494.c │ ├── lisp495.c │ ├── lisp496.c │ ├── lisp497.c │ ├── lisp498.c │ ├── lisp499.c │ ├── lisp5.c │ ├── lisp50.c │ ├── lisp500.c │ ├── lisp501.c │ ├── lisp502.c │ ├── lisp503.c │ ├── lisp504.c │ ├── lisp505.c │ ├── lisp506.c │ ├── lisp507.c │ ├── lisp508.c │ ├── lisp509.c │ ├── lisp51.c │ ├── lisp510.c │ ├── lisp511.c │ ├── lisp512.c │ ├── lisp513.c │ ├── lisp514.c │ ├── lisp515.c │ ├── lisp516.c │ ├── lisp517.c │ ├── lisp518.c │ ├── lisp519.c │ ├── lisp52.c │ ├── lisp520.c │ ├── lisp521.c │ ├── lisp522.c │ ├── lisp523.c │ ├── lisp524.c │ ├── lisp525.c │ ├── lisp526.c │ ├── lisp527.c │ ├── lisp528.c │ ├── lisp529.c │ ├── lisp53.c │ ├── lisp530.c │ ├── lisp531.c │ ├── lisp532.c │ ├── lisp534.c │ ├── lisp535.c │ ├── lisp536.c │ ├── lisp537.c │ ├── lisp538.c │ ├── lisp539.c │ ├── lisp54.c │ ├── lisp541.c │ ├── lisp542.c │ ├── lisp543.c │ ├── lisp545.c │ ├── lisp546.c │ ├── lisp547.c │ ├── lisp548.c │ ├── lisp549.c │ ├── lisp55.c │ ├── lisp551.c │ ├── lisp554.c │ ├── lisp555.c │ ├── lisp556.c │ ├── lisp557.c │ ├── lisp558.c │ ├── lisp559.c │ ├── lisp56.c │ ├── lisp567.c │ ├── lisp568.c │ ├── lisp569.c │ ├── lisp57.c │ ├── lisp580.c │ ├── lisp582.c │ ├── lisp583.c │ ├── lisp59.c │ ├── lisp590.c │ ├── lisp593.c │ ├── lisp595.c │ ├── lisp596.c │ ├── lisp597.c │ ├── lisp598.c │ ├── lisp599.c │ ├── lisp600.c │ ├── lisp601.c │ ├── lisp608.c │ ├── lisp611.c │ ├── lisp615.c │ ├── lisp616.c │ ├── lisp617.c │ ├── lisp619.c │ ├── lisp62.c │ ├── lisp620.c │ ├── lisp621.c │ ├── lisp622.c │ ├── lisp624.c │ ├── lisp625.c │ ├── lisp626.c │ ├── lisp627.c │ ├── lisp63.c │ ├── lisp634.c │ ├── lisp637.c │ ├── lisp644.c │ ├── lisp65.c │ ├── lisp66.c │ ├── lisp67.c │ ├── lisp68.c │ ├── lisp69.c │ ├── lisp70.c │ ├── lisp71.c │ ├── lisp72.c │ ├── lisp727.c │ ├── lisp732.c │ ├── lisp738.c │ ├── lisp74.c │ ├── lisp742.c │ ├── lisp748.c │ ├── lisp75.c │ ├── lisp752.c │ ├── lisp757.c │ ├── lisp76.c │ ├── lisp761.c │ ├── lisp762.c │ ├── lisp763.c │ ├── lisp764.c │ ├── lisp767.c │ ├── lisp768.c │ ├── lisp769.c │ ├── lisp770.c │ ├── lisp771.c │ ├── lisp772.c │ ├── lisp773.c │ ├── lisp774.c │ ├── lisp784.c │ ├── lisp785.c │ ├── lisp786.c │ ├── lisp787.c │ ├── lisp788.c │ ├── lisp789.c │ ├── lisp79.c │ ├── lisp792.c │ ├── lisp793.c │ ├── lisp794.c │ ├── lisp795.c │ ├── lisp796.c │ ├── lisp797.c │ ├── lisp798.c │ ├── lisp799.c │ ├── lisp80.c │ ├── lisp800.c │ ├── lisp807.c │ ├── lisp808.c │ ├── lisp809.c │ ├── lisp810.c │ ├── lisp813.c │ ├── lisp814.c │ ├── lisp815.c │ ├── lisp816.c │ ├── lisp817.c │ ├── lisp818.c │ ├── lisp819.c │ ├── lisp821.c │ ├── lisp822.c │ ├── lisp825.c │ ├── lisp832.c │ ├── lisp833.c │ ├── lisp834.c │ ├── lisp835.c │ ├── lisp838.c │ ├── lisp839.c │ ├── lisp84.c │ ├── lisp840.c │ ├── lisp841.c │ ├── lisp842.c │ ├── lisp843.c │ ├── lisp848.c │ ├── lisp849.c │ ├── lisp85.c │ ├── lisp850.c │ ├── lisp851.c │ ├── lisp853.c │ ├── lisp86.c │ ├── lisp89.c │ ├── lisp9.c │ ├── lisp90.c │ ├── lisp91.c │ ├── lisp92.c │ ├── lisp93.c │ ├── lisp94.c │ ├── lisp95.c │ ├── lisp96.c │ ├── lisp97.c │ ├── lisp98.c │ ├── lisp99.c │ ├── list_delete.c │ ├── list_find.c │ ├── list_find1.c │ ├── list_nreverse.c │ ├── list_position.c │ ├── list_remove.c │ ├── list_remove1.c │ ├── list_reverse.c │ ├── list_subseq.c │ ├── log1.c │ ├── make_array1.c │ ├── make_host.c │ ├── make_list1.c │ ├── make_package1.c │ ├── make_pattern.c │ ├── make_stream.c │ ├── make_stream1.c │ ├── make_string1.c │ ├── make_struct.c │ ├── maptree.c │ ├── member1.c │ ├── member_if1.c │ ├── mismatch1.c │ ├── nbutlast1.c │ ├── nil_fun.c │ ├── nsublis1.c │ ├── nsubst1.c │ ├── nsubst_if1.c │ ├── nsubstitute1.c │ ├── nunion1.c │ ├── octal_reader.c │ ├── open1.c │ ├── pairlis1.c │ ├── patternE.c │ ├── pattern_p.c │ ├── peek_char1.c │ ├── position1.c │ ├── position_if1.c │ ├── pprint1.c │ ├── prin11.c │ ├── princ1.c │ ├── print1.c │ ├── print_float.c │ ├── print_integer.c │ ├── print_stream.c │ ├── pvref.c │ ├── quick_sort.c │ ├── quote_reader.c │ ├── radix_reader.c │ ├── rassoc1.c │ ├── rassoc_if1.c │ ├── read1.c │ ├── read_char1.c │ ├── read_line1.c │ ├── read_token.c │ ├── reduce1.c │ ├── remf_internal.c │ ├── remove1.c │ ├── remove_if1.c │ ├── replace1.c │ ├── round1.c │ ├── rt_charE.c │ ├── rt_charG.c │ ├── rt_charGE.c │ ├── rt_charL.c │ ├── rt_charLE.c │ ├── rt_charNE.c │ ├── rt_char_equal.c │ ├── rt_char_lessp.c │ ├── rt_file_name.c │ ├── rt_fixnump.c │ ├── rt_set_prop.c │ ├── rt_set_vref.c │ ├── rt_startup.c │ ├── rt_struct_ref.c │ ├── rt_vref.c │ ├── search1.c │ ├── sequence_type.c │ ├── set_get1.c │ ├── set_gethash1.c │ ├── set_prop.c │ ├── set_pvref.c │ ├── set_vref.c │ ├── setup_symbol.c │ ├── shadow1.c │ ├── simple_member.c │ ├── sort1.c │ ├── startup.c │ ├── stream_close.c │ ├── stream_column.c │ ├── stream_extra.c │ ├── stream_length.c │ ├── stream_readc.c │ ├── stream_seek.c │ ├── stream_tell.c │ ├── stream_type.c │ ├── stream_writec.c │ ├── stringE1.c │ ├── stringG1.c │ ├── stringGE1.c │ ├── stringL1.c │ ├── stringLE1.c │ ├── stringNE1.c │ ├── string_equal1.c │ ├── string_lessp1.c │ ├── string_reader.c │ ├── struct_reader.c │ ├── struct_ref.c │ ├── struct_typep.c │ ├── sublis1.c │ ├── subseq1.c │ ├── subsetp1.c │ ├── subst1.c │ ├── subst_if1.c │ ├── subst_if_not1.c │ ├── substitute1.c │ ├── terpri1.c │ ├── to_type_code.c │ ├── token_subseq.c │ ├── tree_equal1.c │ ├── truncate1.c │ ├── type_code_p.c │ ├── typep_class.c │ ├── unexport1.c │ ├── unintern1.c │ ├── union1.c │ ├── unread_char1.c │ ├── use_package1.c │ ├── vector_find.c │ ├── vector_find1.c │ ├── vector_reader.c │ ├── vector_remove.c │ ├── vector_subseq.c │ ├── vref.c │ ├── write1.c │ ├── write2.c │ ├── write_char1.c │ ├── write_string1.c │ ├── y_or_n_p1.c │ └── yes_or_no_p1.c └── test ├── RCS ├── RCS-files ├── README ├── ai-course.lisp ├── arrays.lisp ├── bindings.lisp ├── boyer.lisp ├── clos-test.lisp ├── eval.lisp ├── evaltest.lisp ├── expert.lisp ├── lambda.lisp ├── oldtests ├── search.lisp ├── side-effect.lisp ├── testmain.lisp ├── time.def ├── time.lisp └── y-fac.lisp /RCS: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/RCS -------------------------------------------------------------------------------- /RCS-directories: -------------------------------------------------------------------------------- 1 | $Revision: 1.3 $ 2 | . 3 | bin 4 | lib 5 | src/compiler 6 | src/runtime/c 7 | src/runtime/lisp 8 | src/runtime/lisp2c 9 | src/test 10 | doc 11 | bib 12 | -------------------------------------------------------------------------------- /RCS-files: -------------------------------------------------------------------------------- 1 | $Revision: 1.9 $ 2 | COPYRIGHT 3 | INSTALL 4 | NOTES 5 | README 6 | README.akcl 7 | README.clisp 8 | README.cmu-cl 9 | -------------------------------------------------------------------------------- /bin/RCS: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/bin/RCS -------------------------------------------------------------------------------- /bin/RCS-files: -------------------------------------------------------------------------------- 1 | $Revision: 1.9 $ 2 | build-protos 3 | cl 4 | cl-s 5 | cl386 6 | clg 7 | clg-s 8 | clp 9 | rt 10 | rt-s 11 | rtg 12 | rtg-s 13 | rtp 14 | tar-clicc 15 | -------------------------------------------------------------------------------- /build-clicc-release: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/./build-clicc-release -------------------------------------------------------------------------------- /doc/RCS: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/doc/RCS -------------------------------------------------------------------------------- /doc/RCS-files: -------------------------------------------------------------------------------- 1 | $Revision: 1.7 $ 2 | Klassenbaum.txt 3 | Migration.tex 4 | cl0-engl.tex 5 | clicc.1 6 | clos-0.tex 7 | elifecycle.fig 8 | emigration.fig 9 | extensions 10 | migration 11 | module.doc 12 | predicates.doc 13 | -------------------------------------------------------------------------------- /doc/array.tex: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/doc/array.tex -------------------------------------------------------------------------------- /doc/lisp-errors: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/doc/lisp-errors -------------------------------------------------------------------------------- /doc/predicates.doc: -------------------------------------------------------------------------------- 1 | Projekt : APPLY - A Practicable And Portable Lisp Implementation 2 | ------------------------------------------------------ 3 | Resultat von Pr"adikaten des Laufzeitsystems 4 | 5 | $Revision: 1.1 $ 6 | $Id: predicates.doc,v 1.1 1993/06/15 09:28:20 hk Exp $ 7 | 8 | Diese Datei beschreibt das Resultat von Pr"adikaten, falls sie nicht 9 | das Symbol T im Erfolgsfall liefern. 10 | 11 | 12 | boundp: NIL -> T, andere Symbole -> das Symbol im Erfolgsfall. 13 | -------------------------------------------------------------------------------- /doc/tgif: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/doc/tgif -------------------------------------------------------------------------------- /lib/RCS: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/lib/RCS -------------------------------------------------------------------------------- /lib/RCS-files: -------------------------------------------------------------------------------- 1 | $Revision: 1.10 $ 2 | README 3 | c_decl.h 4 | foreign1.h 5 | foreign2.h 6 | makefile.cl 7 | makefile.cl386 8 | obrep.h 9 | obrep1.h 10 | obrep2.h 11 | sys.def 12 | -------------------------------------------------------------------------------- /lib/c_decl.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/lib/c_decl.h -------------------------------------------------------------------------------- /lib/foreign1.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/lib/foreign1.h -------------------------------------------------------------------------------- /lib/foreign2.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/lib/foreign2.h -------------------------------------------------------------------------------- /lib/obrep1.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/lib/obrep1.h -------------------------------------------------------------------------------- /lib/obrep2.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/lib/obrep2.h -------------------------------------------------------------------------------- /logbook: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/./logbook -------------------------------------------------------------------------------- /src/compiler/RCS: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/src/compiler/RCS -------------------------------------------------------------------------------- /src/compiler/appfuns.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/appfuns.lisp -------------------------------------------------------------------------------- /src/compiler/cgcode.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/cgcode.lisp -------------------------------------------------------------------------------- /src/compiler/cgconst.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/cgconst.lisp -------------------------------------------------------------------------------- /src/compiler/cgdefs.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/cgdefs.lisp -------------------------------------------------------------------------------- /src/compiler/cgfuns.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/cgfuns.lisp -------------------------------------------------------------------------------- /src/compiler/cgif.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/cgif.lisp -------------------------------------------------------------------------------- /src/compiler/cginline.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/cginline.lisp -------------------------------------------------------------------------------- /src/compiler/cgmain.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/cgmain.lisp -------------------------------------------------------------------------------- /src/compiler/cgvars.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/cgvars.lisp -------------------------------------------------------------------------------- /src/compiler/clcload.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/clcload.lisp -------------------------------------------------------------------------------- /src/compiler/clcmain.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/clcmain.lisp -------------------------------------------------------------------------------- /src/compiler/clcmisc.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/clcmisc.lisp -------------------------------------------------------------------------------- /src/compiler/closure-analysis.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/closure-analysis.lisp -------------------------------------------------------------------------------- /src/compiler/config.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/config.lisp -------------------------------------------------------------------------------- /src/compiler/deffile.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/deffile.lisp -------------------------------------------------------------------------------- /src/compiler/optimize.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/optimize.lisp -------------------------------------------------------------------------------- /src/compiler/p1class.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/p1class.lisp -------------------------------------------------------------------------------- /src/compiler/p1generic.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/p1generic.lisp -------------------------------------------------------------------------------- /src/compiler/p1spform.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/p1spform.lisp -------------------------------------------------------------------------------- /src/compiler/simplifier.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/simplifier.lisp -------------------------------------------------------------------------------- /src/compiler/static-effect.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/static-effect.lisp -------------------------------------------------------------------------------- /src/compiler/tail.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/tail.lisp -------------------------------------------------------------------------------- /src/compiler/tiassert.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/tiassert.lisp -------------------------------------------------------------------------------- /src/compiler/tidef.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/tidef.lisp -------------------------------------------------------------------------------- /src/compiler/tiimpdec.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/tiimpdec.lisp -------------------------------------------------------------------------------- /src/compiler/tipass2.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/tipass2.lisp -------------------------------------------------------------------------------- /src/compiler/titypes.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/titypes.lisp -------------------------------------------------------------------------------- /src/compiler/weight.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/weight.lisp -------------------------------------------------------------------------------- /src/compiler/zsdef.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/compiler/zsdef.lisp -------------------------------------------------------------------------------- /src/runtime/c/RCS: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/src/runtime/c/RCS -------------------------------------------------------------------------------- /src/runtime/c/RCS-files: -------------------------------------------------------------------------------- 1 | $Revision: 1.10 $ 2 | GNUmakefile 3 | GNUmakefile386 4 | Makefile 5 | arith.c 6 | array.c 7 | catch.c 8 | character.c 9 | clos.c 10 | debug.c 11 | environ.c 12 | file.c 13 | foreign.c 14 | fspecs.c 15 | funcall.c 16 | hash.c 17 | keysort.c 18 | list.c 19 | logexpt.c 20 | main.c 21 | ncompare.c 22 | nconvert.c 23 | npredic.c 24 | obrep1.c 25 | obrep2.c 26 | progv.c 27 | string.c 28 | structure.c 29 | symbols.c 30 | system.c 31 | trigonom.c 32 | unix.c 33 | values.c 34 | -------------------------------------------------------------------------------- /src/runtime/c/array.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/c/array.c -------------------------------------------------------------------------------- /src/runtime/c/character.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/c/character.c -------------------------------------------------------------------------------- /src/runtime/c/debug.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/c/debug.c -------------------------------------------------------------------------------- /src/runtime/c/list.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/c/list.c -------------------------------------------------------------------------------- /src/runtime/c/number.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/c/number.c -------------------------------------------------------------------------------- /src/runtime/c/obrep1.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/c/obrep1.c -------------------------------------------------------------------------------- /src/runtime/c/obrep2.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/c/obrep2.c -------------------------------------------------------------------------------- /src/runtime/c/symbols.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/c/symbols.c -------------------------------------------------------------------------------- /src/runtime/c/system.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/c/system.c -------------------------------------------------------------------------------- /src/runtime/lisp/RCS: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/src/runtime/lisp/RCS -------------------------------------------------------------------------------- /src/runtime/lisp/RCS-files: -------------------------------------------------------------------------------- 1 | $Revision: 1.8 $ 2 | allsyms.lisp 3 | array.lisp 4 | char.lisp 5 | clos.lisp 6 | coerce.lisp 7 | environ.lisp 8 | equal.lisp 9 | error.lisp 10 | file.lisp 11 | filesys.lisp 12 | foreign.lisp 13 | format.lisp 14 | hash.lisp 15 | inline.lisp 16 | lisp.lisp 17 | list.lisp 18 | map.lisp 19 | misc.lisp 20 | num.lisp 21 | packg.lisp 22 | pathname.lisp 23 | pred.lisp 24 | print.lisp 25 | read.lisp 26 | seq.lisp 27 | startup.lisp 28 | stream.lisp 29 | string.lisp 30 | struct.lisp 31 | sym.lisp 32 | typspc.lisp 33 | yesno.lisp 34 | -------------------------------------------------------------------------------- /src/runtime/lisp/array.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/lisp/array.lisp -------------------------------------------------------------------------------- /src/runtime/lisp/char.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/lisp/char.lisp -------------------------------------------------------------------------------- /src/runtime/lisp/format.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/lisp/format.lisp -------------------------------------------------------------------------------- /src/runtime/lisp/num.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/lisp/num.lisp -------------------------------------------------------------------------------- /src/runtime/lisp/packg.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/lisp/packg.lisp -------------------------------------------------------------------------------- /src/runtime/lisp/string.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/lisp/string.lisp -------------------------------------------------------------------------------- /src/runtime/lisp/struct.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/lisp/struct.lisp -------------------------------------------------------------------------------- /src/runtime/lisp/sym.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/plops/clicc/7f12237d49ae8d27bfb022100030b6cd7aac200c/src/runtime/lisp/sym.lisp -------------------------------------------------------------------------------- /src/runtime/lisp2c/FFI_c_char_p.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void FFI_c_char_p(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | c_char_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | rt_check_char(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/FFI_c_float_p.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void FFI_c_float_p(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | c_float_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | rt_check_float(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/FFI_c_int_p.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void FFI_c_int_p(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | c_int_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | rt_check_int(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/FFI_c_long_p.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void FFI_c_long_p(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | c_long_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | rt_check_long(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/FFI_c_short_p.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void FFI_c_short_p(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | c_short_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | rt_check_short(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fabs.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fabs(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | Fminusp(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | Fminus(ARG(0), 1); 16 | } 17 | else 18 | { 19 | } 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Facons.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Facons(CL_FORM *base) 10 | { 11 | ALLOC_CONS(ARG(5), ARG(0), ARG(1), ARG(3)); 12 | ALLOC_CONS(ARG(5), ARG(3), ARG(2), ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Farrayp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Farrayp(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_SMVECP(ARG(0)), ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ 15 | } 16 | else 17 | { 18 | complex_base_array_p(ARG(0)); 19 | } 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fassoc_if.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fassoc_if(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 207), /* KEY */ 15 | }; 16 | keysort(ARG(2), nargs - 2, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(2)); 20 | } 21 | assoc_if1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fassoc_if_not.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fassoc_if_not(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 207), /* KEY */ 15 | }; 16 | keysort(ARG(2), nargs - 2, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(2)); 20 | } 21 | assoc_if_not1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fatom.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Fatom(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_ATOMP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_and.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbit_and(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | bit_and1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_andc1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbit_andc1(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | bit_andc11(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_andc2.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbit_andc2(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | bit_andc21(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_eqv.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbit_eqv(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | bit_eqv1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_ior.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbit_ior(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | bit_ior1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_nand.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbit_nand(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | bit_nand1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_nor.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbit_nor(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | bit_nor1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_not.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbit_not(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | bit_not1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_orc1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbit_orc1(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | bit_orc11(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_orc2.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbit_orc2(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | bit_orc21(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_xor.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbit_xor(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | bit_xor1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbreak.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbreak(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 0: 14 | LOAD_NIL(ARG(0)); 15 | nargs = 1; 16 | } 17 | Flist(ARG(1), nargs - 1); 18 | break1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbutlast.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fbutlast(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_SMALLFIXNUM(1, ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | butlast1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaaaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcaaaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcar(ARG(0)); 14 | Fcar(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaaadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcaaadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcar(ARG(0)); 14 | Fcar(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcaaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcar(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaadar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcaadar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcar(ARG(0)); 14 | Fcar(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaaddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcaaddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcar(ARG(0)); 14 | Fcar(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcaadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcar(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcar(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcadaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcadaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcdr(ARG(0)); 14 | Fcar(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcadadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcadadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcdr(ARG(0)); 14 | Fcar(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcadar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcadar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcar(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaddar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcaddar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcdr(ARG(0)); 14 | Fcar(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcadddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcadddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcdr(ARG(0)); 14 | Fcar(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcaddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcar(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | GEN_GLOBAL_FUNARG(CFcadr, Fcadr, 1); 10 | 11 | void Fcadr(CL_FORM *base) 12 | { 13 | Fcdr(ARG(0)); 14 | Fcar(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdaaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcdaaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcar(ARG(0)); 14 | Fcdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdaadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcdaadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcar(ARG(0)); 14 | Fcdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcdaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcdr(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdadar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcdadar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcar(ARG(0)); 14 | Fcdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdaddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcdaddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcar(ARG(0)); 14 | Fcdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcdadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcdr(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcdar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcddaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcddaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcdr(ARG(0)); 14 | Fcdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcddadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcddadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | Fcdr(ARG(0)); 14 | Fcdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcddar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcddar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcdr(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdddar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcdddar(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcdr(ARG(0)); 14 | Fcdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcddddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcddddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcdr(ARG(0)); 14 | Fcdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcdddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcdr(ARG(0)); 13 | Fcdr(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fceiling.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fceiling(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_SMALLFIXNUM(1, ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | ceiling1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fchar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fchar(CL_FORM *base) 10 | { 11 | Frow_major_aref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fchar_int.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fchar_int(CL_FORM *base) 10 | { 11 | Fchar_code(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcharacterp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Fcharacterp(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_CHARP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fclose.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fclose(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 104), /* ABORT */ 15 | }; 16 | keysort(ARG(1), nargs - 1, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(1)); 20 | } 21 | close2(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcode_char.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcode_char(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | LOAD_SMALLFIXNUM(0, ARG(2)); 13 | COPY(SYMVAL(Slisp, 12), ARG(3)); /* CHAR-CODE-LIMIT */ 14 | check_integer(ARG(1)); 15 | if(CL_TRUEP(ARG(1))) 16 | { 17 | rt_code_char(ARG(0)); 18 | } 19 | else 20 | { 21 | LOAD_NIL(ARG(0)); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcons.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Fcons(CL_FORM *base) 10 | { 11 | ALLOC_CONS(ARG(4), ARG(0), ARG(1), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fconsp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Fconsp(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_CONSP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcopy_seq.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcopy_seq(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(0, ARG(1)); 12 | Fsubseq(ARG(0), 2); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcopy_symbol.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcopy_symbol(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | copy_symbol1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcopy_tree.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcopy_tree(CL_FORM *base) 10 | { 11 | if(CL_ATOMP(ARG(0))) 12 | { 13 | } 14 | else 15 | { 16 | COPY(GET_CAR(ARG(0)), ARG(1)); 17 | Fcopy_tree(ARG(1)); 18 | COPY(GET_CDR(ARG(0)), ARG(2)); 19 | Fcopy_tree(ARG(2)); 20 | ALLOC_CONS(ARG(3), ARG(1), ARG(2), ARG(0)); 21 | } 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fdigit_char.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fdigit_char(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_SMALLFIXNUM(10, ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | digit_char1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fdigit_char_p.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fdigit_char_p(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_SMALLFIXNUM(10, ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | digit_char_p1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Feighth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Feighth(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(7, ARG(1)); 12 | COPY(ARG(0), ARG(2)); 13 | Fnth(ARG(1)); 14 | COPY(ARG(1), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Felt.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Felt(CL_FORM *base) 10 | { 11 | if(CL_LISTP(ARG(0))) 12 | { 13 | COPY(ARG(1), ARG(2)); 14 | COPY(ARG(0), ARG(3)); 15 | Fnth(ARG(2)); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | else 19 | { 20 | Frow_major_aref(ARG(0)); 21 | } 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Feq.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Feq(CL_FORM *base) 10 | { 11 | LOAD_BOOL(EQ(ARG(0), ARG(1)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Feql.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Feql(CL_FORM *base) 10 | { 11 | LOAD_BOOL(EQL(ARG(0), ARG(1)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fexport.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fexport(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | export1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffifth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ffifth(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(4, ARG(1)); 12 | COPY(ARG(0), ARG(2)); 13 | Fnth(ARG(1)); 14 | COPY(ARG(1), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffile_length.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ffile_length(CL_FORM *base) 10 | { 11 | stream_length(ARG(0)); 12 | Ffuncall(ARG(0), 1); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffill_pointer.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ffill_pointer(CL_FORM *base) 10 | { 11 | complex_vector_fillptr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffind_symbol.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ffind_symbol(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | find_symbol1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffirst.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ffirst(CL_FORM *base) 10 | { 11 | Fcar(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffloat.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ffloat(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | float1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffloat_radix.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ffloat_radix(CL_FORM *base) 10 | { 11 | COPY(SYMVAL(Slisp, 314), ARG(0)); /* FLOAT-RADIX */ 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffloatp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Ffloatp(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_FLOATP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffloor.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ffloor(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_SMALLFIXNUM(1, ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | floor1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffourth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ffourth(CL_FORM *base) 10 | { 11 | Fcadddr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffresh_line.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ffresh_line(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 0: 14 | LOAD_NIL(ARG(0)); 15 | case 1: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | fresh_line1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffunctionp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Ffunctionp(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_FUNCTIONP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fgensym.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fgensym(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 0: 14 | LOAD_NIL(ARG(0)); 15 | case 1: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | gensym1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fgentemp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fgentemp(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 0: 14 | LOAD_SMSTR((CL_FORM *)&KClisp[38], ARG(0)); /* T */ 15 | case 1: 16 | COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ 17 | case 2: 18 | break; 19 | default: 20 | Labort(TOO_MANY_ARGS); 21 | } 22 | gentemp1(ARG(0)); 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fget.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fget(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | get1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fgetf.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fgetf(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | getf1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fgethash.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fgethash(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | gethash1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fhash_table_p.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fhash_table_p(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(1)); /* HASH-TABLE */ 12 | rt_struct_typep(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fidentity.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fidentity(CL_FORM *base) 10 | { 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fimport.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fimport(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | import1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fintegerp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Fintegerp(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_FIXNUMP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fintern.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fintern(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | intern1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fkeywordp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fkeywordp(CL_FORM *base) 10 | { 11 | if(CL_SYMBOLP(ARG(0)) || CL_NILP(ARG(0))) 12 | { 13 | COPY(ARG(0), ARG(1)); 14 | Fsymbol_package(ARG(1)); 15 | LOAD_BOOL(EQ(ARG(1), SYMVAL(Slisp, 380)), ARG(0)); /* *KEYWORD-PACKAGE* */ 16 | } 17 | else 18 | { 19 | LOAD_NIL(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flast.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flast(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_SMALLFIXNUM(1, ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | last1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flistp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Flistp(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_LISTP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flog.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flog(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | GEN_FLOAT(ARG(1), 2.7182817, ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | log1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogandc1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flogandc1(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Flognot(ARG(2)); 13 | COPY(ARG(1), ARG(3)); 14 | Flogand(ARG(2), 2); 15 | COPY(ARG(2), ARG(0)); 16 | } 17 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogandc2.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flogandc2(CL_FORM *base) 10 | { 11 | Flognot(ARG(1)); 12 | Flogand(ARG(0), 2); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogbitp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flogbitp(CL_FORM *base) 10 | { 11 | COPY(ARG(1), ARG(2)); 12 | LOAD_SMALLFIXNUM(1, ARG(3)); 13 | COPY(ARG(0), ARG(4)); 14 | Fash(ARG(3)); 15 | Flogand(ARG(2), 2); 16 | Fzerop(ARG(2)); 17 | Fnot(ARG(2)); 18 | COPY(ARG(2), ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flognand.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flognand(CL_FORM *base) 10 | { 11 | Flogand(ARG(0), 2); 12 | Flognot(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flognor.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flognor(CL_FORM *base) 10 | { 11 | Flogior(ARG(0), 2); 12 | Flognot(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flognot.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flognot(CL_FORM *base) 10 | { 11 | LOAD_FIXNUM(ARG(2), ~ GET_FIXNUM(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogorc1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flogorc1(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Flognot(ARG(2)); 13 | COPY(ARG(1), ARG(3)); 14 | Flogior(ARG(2), 2); 15 | COPY(ARG(2), ARG(0)); 16 | } 17 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogorc2.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flogorc2(CL_FORM *base) 10 | { 11 | Flognot(ARG(1)); 12 | Flogior(ARG(0), 2); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogtest.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flogtest(CL_FORM *base) 10 | { 11 | Flogand(ARG(0), 2); 12 | Fzerop(ARG(0)); 13 | Fnot(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fmake_list.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fmake_list(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 152), /* INITIAL-ELEMENT */ 15 | }; 16 | keysort(ARG(1), nargs - 1, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(1)); 20 | } 21 | make_list1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fmake_symbol.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fmake_symbol(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | string_to_simple_string(ARG(1)); 13 | rt_make_symbol(ARG(1)); 14 | LOAD_NIL(ARG(2)); 15 | COPY(ARG(2), SYM_PLIST(ARG(1))); 16 | LOAD_NIL(ARG(2)); 17 | COPY(ARG(2), SYM_PACKAGE(ARG(1))); 18 | COPY(ARG(1), ARG(0)); 19 | Fmakunbound(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fmember_if.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fmember_if(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 207), /* KEY */ 15 | }; 16 | keysort(ARG(2), nargs - 2, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(2)); 20 | } 21 | member_if1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fmod.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fmod(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | COPY(ARG(1), ARG(3)); 13 | Ffloor(ARG(2), 2); 14 | COPY(&mv_buf[0], ARG(3)); 15 | mv_count = 1; 16 | { 17 | COPY(ARG(3), ARG(0)); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnbutlast.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fnbutlast(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_SMALLFIXNUM(1, ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | nbutlast1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fninth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fninth(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(8, ARG(1)); 12 | COPY(ARG(0), ARG(2)); 13 | Fnth(ARG(1)); 14 | COPY(ARG(1), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnot.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fnot(CL_FORM *base) 10 | { 11 | if(CL_TRUEP(ARG(0))) 12 | { 13 | LOAD_NIL(ARG(0)); 14 | } 15 | else 16 | { 17 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnreconc.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fnreconc(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Freverse(ARG(2)); 13 | COPY(ARG(1), ARG(3)); 14 | Fnconc(ARG(2), 2); 15 | COPY(ARG(2), ARG(0)); 16 | } 17 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnreverse.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fnreverse(CL_FORM *base) 10 | { 11 | if(CL_TRUEP(ARG(0))) 12 | { 13 | if(CL_CONSP(ARG(0))) 14 | { 15 | list_nreverse(ARG(0)); 16 | } 17 | else 18 | { 19 | vector_nreverse(ARG(0)); 20 | } 21 | } 22 | else 23 | { 24 | LOAD_NIL(ARG(0)); 25 | } 26 | } 27 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnsubst_if.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fnsubst_if(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 207), /* KEY */ 15 | }; 16 | keysort(ARG(3), nargs - 3, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(3)); 20 | } 21 | nsubst_if1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fnth(CL_FORM *base) 10 | { 11 | Fnthcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnull.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fnull(CL_FORM *base) 10 | { 11 | if(CL_TRUEP(ARG(0))) 12 | { 13 | LOAD_NIL(ARG(0)); 14 | } 15 | else 16 | { 17 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnumberp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Fnumberp(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_NUMBERP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fpackage_name.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fpackage_name(CL_FORM *base) 10 | { 11 | Ppackage_name(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fpackagep.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fpackagep(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 344), ARG(1)); /* PACKAGE */ 12 | rt_struct_typep(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fpairlis.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fpairlis(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | pairlis1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fpathnamep.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fpathnamep(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 232), ARG(1)); /* PATHNAME */ 12 | rt_struct_typep(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fpprint.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fpprint(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | pprint1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fprin1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fprin1(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | prin11(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fprinc.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fprinc(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | princ1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fprint.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fprint(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | print1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Frassoc_if.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Frassoc_if(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 207), /* KEY */ 15 | }; 16 | keysort(ARG(2), nargs - 2, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(2)); 20 | } 21 | rassoc_if1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Freadtablep.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Freadtablep(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 410), ARG(1)); /* READTABLE */ 12 | rt_struct_typep(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Frem.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Frem(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | COPY(ARG(1), ARG(3)); 13 | Ftruncate(ARG(2), 2); 14 | COPY(&mv_buf[0], ARG(3)); 15 | mv_count = 1; 16 | { 17 | COPY(ARG(3), ARG(0)); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Frest.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Frest(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Freverse.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Freverse(CL_FORM *base) 10 | { 11 | if(CL_LISTP(ARG(0))) 12 | { 13 | list_reverse(ARG(0)); 14 | } 15 | else 16 | { 17 | vector_reverse(ARG(0)); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fround.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fround(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_SMALLFIXNUM(1, ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | round1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Frplaca.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Frplaca(CL_FORM *base) 10 | { 11 | if(CL_CONSP(ARG(0))) 12 | { 13 | COPY(ARG(1), GET_CAR(ARG(0))); 14 | } 15 | else 16 | { 17 | LOAD_SMSTR((CL_FORM *)&KClisp[237], ARG(2)); /* ~a is not a cons */ 18 | COPY(ARG(0), ARG(3)); 19 | Ferror(ARG(2), 2); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Frplacd.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Frplacd(CL_FORM *base) 10 | { 11 | if(CL_CONSP(ARG(0))) 12 | { 13 | COPY(ARG(1), GET_CDR(ARG(0))); 14 | } 15 | else 16 | { 17 | LOAD_SMSTR((CL_FORM *)&KClisp[235], ARG(2)); /* ~a is not a cons */ 18 | COPY(ARG(0), ARG(3)); 19 | Ferror(ARG(2), 2); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fscale_float.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fscale_float(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | COPY(SYMVAL(Slisp, 314), ARG(3)); /* FLOAT-RADIX */ 13 | COPY(ARG(0), ARG(4)); 14 | Ffloat(ARG(3), 2); 15 | COPY(ARG(1), ARG(4)); 16 | Fexpt(ARG(3)); 17 | Fmult(ARG(2), 2); 18 | COPY(ARG(2), ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsecond.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fsecond(CL_FORM *base) 10 | { 11 | Fcadr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caaaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_caaaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fcar(ARG(1)); 14 | Fset_car(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caaadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_caaadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fcar(ARG(1)); 14 | Fset_car(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_caaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fset_car(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caadar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_caadar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fcar(ARG(1)); 14 | Fset_car(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caaddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_caaddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fcar(ARG(1)); 14 | Fset_car(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_caadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fset_car(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_caar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fset_car(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cadaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cadaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fcdr(ARG(1)); 14 | Fset_car(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cadadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cadadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fcdr(ARG(1)); 14 | Fset_car(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cadar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cadar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fset_car(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caddar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_caddar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fcdr(ARG(1)); 14 | Fset_car(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cadddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cadddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fcdr(ARG(1)); 14 | Fset_car(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_caddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fset_car(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fset_car(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_car.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_car(CL_FORM *base) 10 | { 11 | if(CL_CONSP(ARG(1))) 12 | { 13 | COPY(ARG(0), GET_CAR(ARG(1))); 14 | } 15 | else 16 | { 17 | LOAD_SMSTR((CL_FORM *)&KClisp[229], ARG(0)); /* ~a is not a cons */ 18 | Ferror(ARG(0), 2); 19 | } 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdaaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cdaaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fcar(ARG(1)); 14 | Fset_cdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdaadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cdaadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fcar(ARG(1)); 14 | Fset_cdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cdaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fset_cdr(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdadar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cdadar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fcar(ARG(1)); 14 | Fset_cdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdaddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cdaddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fcar(ARG(1)); 14 | Fset_cdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cdadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fset_cdr(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cdar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fset_cdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cddaar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cddaar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fcdr(ARG(1)); 14 | Fset_cdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cddadr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cddadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcar(ARG(1)); 13 | Fcdr(ARG(1)); 14 | Fset_cdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cddar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cddar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fset_cdr(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdddar.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cdddar(CL_FORM *base) 10 | { 11 | Fcar(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fcdr(ARG(1)); 14 | Fset_cdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cddddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cddddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fcdr(ARG(1)); 14 | Fset_cdr(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cdddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fcdr(ARG(1)); 13 | Fset_cdr(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cddr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cddr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(1)); 12 | Fset_cdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdr.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_cdr(CL_FORM *base) 10 | { 11 | if(CL_CONSP(ARG(1))) 12 | { 13 | COPY(ARG(0), GET_CDR(ARG(1))); 14 | } 15 | else 16 | { 17 | LOAD_SMSTR((CL_FORM *)&KClisp[231], ARG(0)); /* ~a is not a cons */ 18 | Ferror(ARG(0), 2); 19 | } 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_char.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_char(CL_FORM *base) 10 | { 11 | Fset_row_major_aref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_eighth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_eighth(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | LOAD_SMALLFIXNUM(7, ARG(3)); 13 | COPY(ARG(1), ARG(4)); 14 | Fset_nth(ARG(2)); 15 | COPY(ARG(2), ARG(0)); 16 | } 17 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_fifth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_fifth(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | LOAD_SMALLFIXNUM(4, ARG(3)); 13 | COPY(ARG(1), ARG(4)); 14 | Fset_nth(ARG(2)); 15 | COPY(ARG(2), ARG(0)); 16 | } 17 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_first.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_first(CL_FORM *base) 10 | { 11 | Fset_car(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_fourth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_fourth(CL_FORM *base) 10 | { 11 | Fset_cadddr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_get.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_get(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 3: 14 | LOAD_NIL(ARG(3)); 15 | case 4: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | set_get1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_gethash.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_gethash(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 3: 14 | LOAD_NIL(ARG(3)); 15 | case 4: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | set_gethash1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_ninth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_ninth(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | LOAD_SMALLFIXNUM(8, ARG(3)); 13 | COPY(ARG(1), ARG(4)); 14 | Fset_nth(ARG(2)); 15 | COPY(ARG(2), ARG(0)); 16 | } 17 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_nth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_nth(CL_FORM *base) 10 | { 11 | Fnthcdr(ARG(1)); 12 | Fset_car(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_rest.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_rest(CL_FORM *base) 10 | { 11 | Fset_cdr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_second.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_second(CL_FORM *base) 10 | { 11 | Fset_cadr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_seventh.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_seventh(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | LOAD_SMALLFIXNUM(6, ARG(3)); 13 | COPY(ARG(1), ARG(4)); 14 | Fset_nth(ARG(2)); 15 | COPY(ARG(2), ARG(0)); 16 | } 17 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_sixth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_sixth(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | LOAD_SMALLFIXNUM(5, ARG(3)); 13 | COPY(ARG(1), ARG(4)); 14 | Fset_nth(ARG(2)); 15 | COPY(ARG(2), ARG(0)); 16 | } 17 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_tenth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_tenth(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | LOAD_SMALLFIXNUM(9, ARG(3)); 13 | COPY(ARG(1), ARG(4)); 14 | Fset_nth(ARG(2)); 15 | COPY(ARG(2), ARG(0)); 16 | } 17 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_third.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_third(CL_FORM *base) 10 | { 11 | Fset_caddr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fseventh.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fseventh(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(6, ARG(1)); 12 | COPY(ARG(0), ARG(2)); 13 | Fnth(ARG(1)); 14 | COPY(ARG(1), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fshadow.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fshadow(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | shadow1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsixth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fsixth(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(5, ARG(1)); 12 | COPY(ARG(0), ARG(2)); 13 | Fnth(ARG(1)); 14 | COPY(ARG(1), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fslot_missing.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fslot_missing(CL_FORM *base) 10 | { 11 | LOAD_SMSTR((CL_FORM *)&KClisp[212], ARG(4)); /* ~S: The slot ~s is missing from the object ~s of class ~s. */ 12 | COPY(ARG(3), ARG(5)); 13 | COPY(ARG(2), ARG(6)); 14 | COPY(ARG(1), ARG(7)); 15 | COPY(ARG(0), ARG(8)); 16 | Ferror(ARG(4), 5); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fslot_unbound.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fslot_unbound(CL_FORM *base) 10 | { 11 | LOAD_SMSTR((CL_FORM *)&KClisp[214], ARG(3)); /* The slot ~s is unbound in the object ~s of class ~s. */ 12 | COPY(ARG(2), ARG(4)); 13 | COPY(ARG(1), ARG(5)); 14 | COPY(ARG(0), ARG(6)); 15 | Ferror(ARG(3), 4); 16 | } 17 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsort.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fsort(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 207), /* KEY */ 15 | }; 16 | keysort(ARG(2), nargs - 2, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(2)); 20 | } 21 | sort1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fstreamp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fstreamp(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(1)); /* STREAM */ 12 | rt_struct_typep(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsubseq.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fsubseq(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | COPY(SYMVAL(Slisp, 0), ARG(2)); /* MOST-POSITIVE-FIXNUM */ 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | subseq1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsubst_if.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fsubst_if(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 207), /* KEY */ 15 | }; 16 | keysort(ARG(3), nargs - 3, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(3)); 20 | } 21 | subst_if1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsubst_if_not.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fsubst_if_not(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 207), /* KEY */ 15 | }; 16 | keysort(ARG(3), nargs - 3, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(3)); 20 | } 21 | subst_if_not1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsxhash.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fsxhash(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(0, ARG(1)); 12 | internal_sxhash(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsymbolp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Fsymbolp(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_SYMBOLP(ARG(0)) || CL_NILP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ftenth.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ftenth(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(9, ARG(1)); 12 | COPY(ARG(0), ARG(2)); 13 | Fnth(ARG(1)); 14 | COPY(ARG(1), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fterpri.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fterpri(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 0: 14 | LOAD_NIL(ARG(0)); 15 | case 1: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | terpri1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fthird.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | GEN_GLOBAL_FUNARG(CFthird, Fthird, 1); 10 | 11 | void Fthird(CL_FORM *base) 12 | { 13 | Fcaddr(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ftruncate.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ftruncate(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_SMALLFIXNUM(1, ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | truncate1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Funexport.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Funexport(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | unexport1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Funintern.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Funintern(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | unintern1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Funread_char.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Funread_char(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | unread_char1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fuse_package.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fuse_package(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | use_package1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fvectorp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fvectorp(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_SMVECP(ARG(0)), ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ 15 | } 16 | else 17 | { 18 | complex_vector_p(ARG(0)); 19 | } 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fwrite_char.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fwrite_char(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | write_char1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fwrite_line.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fwrite_line(CL_FORM *base, int nargs) 10 | { 11 | CL_FORM *rest_0; 12 | CL_FORM *local; 13 | rest_0 = ARG(0); 14 | local = ARG(nargs); 15 | { 16 | LOAD_GLOBFUN(&CFwrite_string, LOCAL(0)); 17 | REST_APPLY(LOCAL(0), 1, rest_0); 18 | mv_count = 1; 19 | Fterpri(LOCAL(1), 0); 20 | COPY(LOCAL(0), ARG(0)); 21 | } 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fy_or_n_p.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fy_or_n_p(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 0: 14 | LOAD_NIL(ARG(0)); 15 | nargs = 1; 16 | } 17 | Flist(ARG(1), nargs - 1); 18 | y_or_n_p1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fyes_or_no_p.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fyes_or_no_p(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 0: 14 | LOAD_NIL(ARG(0)); 15 | nargs = 1; 16 | } 17 | Flist(ARG(1), nargs - 1); 18 | yes_or_no_p1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/RCS: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/src/runtime/lisp2c/RCS -------------------------------------------------------------------------------- /src/runtime/lisp2c/RCS-files: -------------------------------------------------------------------------------- 1 | $Revision: 1.2 $ 2 | GNUmakefile 3 | GNUmakefile386 4 | Makefile 5 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_and1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void bit_and1(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(0, ARG(3)); 12 | COPY(ARG(0), ARG(4)); 13 | COPY(ARG(1), ARG(5)); 14 | COPY(ARG(2), ARG(6)); 15 | bit_op(ARG(3)); 16 | COPY(ARG(3), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_andc11.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void bit_andc11(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(6, ARG(3)); 12 | COPY(ARG(0), ARG(4)); 13 | COPY(ARG(1), ARG(5)); 14 | COPY(ARG(2), ARG(6)); 15 | bit_op(ARG(3)); 16 | COPY(ARG(3), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_andc21.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void bit_andc21(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(7, ARG(3)); 12 | COPY(ARG(0), ARG(4)); 13 | COPY(ARG(1), ARG(5)); 14 | COPY(ARG(2), ARG(6)); 15 | bit_op(ARG(3)); 16 | COPY(ARG(3), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_eqv1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void bit_eqv1(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(3, ARG(3)); 12 | COPY(ARG(0), ARG(4)); 13 | COPY(ARG(1), ARG(5)); 14 | COPY(ARG(2), ARG(6)); 15 | bit_op(ARG(3)); 16 | COPY(ARG(3), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_ior1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void bit_ior1(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(1, ARG(3)); 12 | COPY(ARG(0), ARG(4)); 13 | COPY(ARG(1), ARG(5)); 14 | COPY(ARG(2), ARG(6)); 15 | bit_op(ARG(3)); 16 | COPY(ARG(3), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_nand1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void bit_nand1(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(4, ARG(3)); 12 | COPY(ARG(0), ARG(4)); 13 | COPY(ARG(1), ARG(5)); 14 | COPY(ARG(2), ARG(6)); 15 | bit_op(ARG(3)); 16 | COPY(ARG(3), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_nor1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void bit_nor1(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(5, ARG(3)); 12 | COPY(ARG(0), ARG(4)); 13 | COPY(ARG(1), ARG(5)); 14 | COPY(ARG(2), ARG(6)); 15 | bit_op(ARG(3)); 16 | COPY(ARG(3), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_not1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void bit_not1(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(10, ARG(2)); 12 | COPY(ARG(0), ARG(3)); 13 | COPY(ARG(0), ARG(4)); 14 | COPY(ARG(1), ARG(5)); 15 | bit_op(ARG(2)); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_orc11.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void bit_orc11(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(8, ARG(3)); 12 | COPY(ARG(0), ARG(4)); 13 | COPY(ARG(1), ARG(5)); 14 | COPY(ARG(2), ARG(6)); 15 | bit_op(ARG(3)); 16 | COPY(ARG(3), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_orc21.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void bit_orc21(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(9, ARG(3)); 12 | COPY(ARG(0), ARG(4)); 13 | COPY(ARG(1), ARG(5)); 14 | COPY(ARG(2), ARG(6)); 15 | bit_op(ARG(3)); 16 | COPY(ARG(3), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_xor1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void bit_xor1(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(2, ARG(3)); 12 | COPY(ARG(0), ARG(4)); 13 | COPY(ARG(1), ARG(5)); 14 | COPY(ARG(2), ARG(6)); 15 | bit_op(ARG(3)); 16 | COPY(ARG(3), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/c_char_p.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "inline.h" 4 | 5 | void c_char_p(CL_FORM *base) 6 | { 7 | if(CL_C_CHAR_P(STACK(base, 0))) 8 | { 9 | LOAD_T(STACK(base, 0)); 10 | } 11 | else 12 | { 13 | LOAD_NIL(STACK(base, 0)); 14 | } 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/c_getenv.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void c_getenv(CL_FORM *base) 10 | { 11 | string_to_simple_string(ARG(0)); 12 | c_getenv_internal(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/c_int_p.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "inline.h" 4 | 5 | void c_int_p(CL_FORM *base) 6 | { 7 | if(CL_C_INT_P(STACK(base, 0))) 8 | { 9 | LOAD_T(STACK(base, 0)); 10 | } 11 | else 12 | { 13 | LOAD_NIL(STACK(base, 0)); 14 | } 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/c_long_p.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "inline.h" 4 | 5 | void c_long_p(CL_FORM *base) 6 | { 7 | if(CL_C_LONG_P(STACK(base, 0))) 8 | { 9 | LOAD_T(STACK(base, 0)); 10 | } 11 | else 12 | { 13 | LOAD_NIL(STACK(base, 0)); 14 | } 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/c_short_p.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "inline.h" 4 | 5 | void c_short_p(CL_FORM *base) 6 | { 7 | if(CL_C_SHORT_P(STACK(base, 0))) 8 | { 9 | LOAD_T(STACK(base, 0)); 10 | } 11 | else 12 | { 13 | LOAD_NIL(STACK(base, 0)); 14 | } 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/c_system.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void c_system(CL_FORM *base) 10 | { 11 | string_to_simple_string(ARG(0)); 12 | c_system_internal(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/ceiling1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void ceiling1(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(1, ARG(2)); 12 | rt_convert_to_int(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/check_array.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void check_array(CL_FORM *base) 6 | { 7 | if(CL_ARRAY_P(STACK(base, 0))) 8 | { 9 | check_array_internal(STACK(base, 0)); 10 | } 11 | else 12 | { 13 | LOAD_NIL(STACK(base, 0)); 14 | } 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/check_integer.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void check_integer(CL_FORM *base) 10 | { 11 | if(CL_FIXNUMP(ARG(0))) 12 | { 13 | COPY(ARG(1), ARG(3)); 14 | COPY(ARG(0), ARG(4)); 15 | COPY(ARG(2), ARG(5)); 16 | Fle(ARG(3), 3); 17 | COPY(ARG(3), ARG(0)); 18 | } 19 | else 20 | { 21 | LOAD_NIL(ARG(0)); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/error_in.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void error_in(CL_FORM *base, int nargs) 10 | { 11 | Flist(ARG(2), nargs - 2); 12 | LOAD_SMSTR((CL_FORM *)&KClisp[218], ARG(3)); /* ~&Error in ~A: ~?~% */ 13 | COPY(ARG(0), ARG(4)); 14 | COPY(ARG(1), ARG(5)); 15 | COPY(ARG(2), ARG(6)); 16 | Ferror(ARG(3), 4); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/find1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void find1(CL_FORM *base) 10 | { 11 | if(CL_LISTP(ARG(1))) 12 | { 13 | list_find(ARG(0)); 14 | } 15 | else 16 | { 17 | vector_find(ARG(0)); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/floor1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void floor1(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(0, ARG(2)); 12 | rt_convert_to_int(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/host_parse.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void host_parse(CL_FORM *base) 6 | { 7 | LOAD_FIXNUM(0, STACK(base, 1)); 8 | LOAD_SYMBOL(SYMBOL(Slisp, 194), STACK(base, 2)); /* HOST */ 9 | struct_ref(STACK(base, 0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/host_unparse.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void host_unparse(CL_FORM *base) 6 | { 7 | LOAD_FIXNUM(1, STACK(base, 1)); 8 | LOAD_SYMBOL(SYMBOL(Slisp, 194), STACK(base, 2)); /* HOST */ 9 | struct_ref(STACK(base, 0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline13.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Fsimple_string_p(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_SMSTRP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline14.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Fsimple_vector_p(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_SMVEC_T_P(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline15.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void Fsimple_bit_vector_p(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_SMVEC_BIT_P(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline16.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "inline.h" 4 | 5 | void Fsimple_vector_p(CL_FORM *base) 6 | { 7 | if(CL_SMVEC_T_P(STACK(base, 0))) 8 | { 9 | LOAD_T(STACK(base, 0)); 10 | } 11 | else 12 | { 13 | LOAD_NIL(STACK(base, 0)); 14 | } 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline24.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "inline.h" 4 | 5 | void c_unsigned_char_p(CL_FORM *base) 6 | { 7 | if(CL_C_UNSIGNED_CHAR_P(STACK(base, 0))) 8 | { 9 | LOAD_T(STACK(base, 0)); 10 | } 11 | else 12 | { 13 | LOAD_NIL(STACK(base, 0)); 14 | } 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline25.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "inline.h" 4 | 5 | void c_unsigned_short_p(CL_FORM *base) 6 | { 7 | if(CL_C_UNSIGNED_SHORT_P(STACK(base, 0))) 8 | { 9 | LOAD_T(STACK(base, 0)); 10 | } 11 | else 12 | { 13 | LOAD_NIL(STACK(base, 0)); 14 | } 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline26.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "inline.h" 4 | 5 | void c_unsigned_int_p(CL_FORM *base) 6 | { 7 | if(CL_C_UNSIGNED_INT_P(STACK(base, 0))) 8 | { 9 | LOAD_T(STACK(base, 0)); 10 | } 11 | else 12 | { 13 | LOAD_NIL(STACK(base, 0)); 14 | } 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline27.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "inline.h" 4 | 5 | void c_unsigned_long_p(CL_FORM *base) 6 | { 7 | if(CL_C_UNSIGNED_LONG_P(STACK(base, 0))) 8 | { 9 | LOAD_T(STACK(base, 0)); 10 | } 11 | else 12 | { 13 | LOAD_NIL(STACK(base, 0)); 14 | } 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp121.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | GLOBAL_FUNARG Cunparse_unix_directory = {unparse_unix_directory, 1}; 6 | 7 | void unparse_unix_directory(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(2, STACK(base, 1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 164), STACK(base, 2)); /* PATHNAME */ 11 | struct_ref(STACK(base, 0)); 12 | unparse_unix_directory_list(STACK(base, 0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp152.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void Fset_documentation(CL_FORM *base) 6 | { 7 | } 8 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp173.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | GEN_GLOBAL_FUNARG(Cundef_stream_op, undef_stream_op, -1); 8 | 9 | void undef_stream_op(CL_FORM *base, int nargs) 10 | { 11 | LOAD_SMSTR((CL_FORM *)&KClisp[2], ARG(0)); /* undefined Stream Operation */ 12 | Ferror(ARG(0), 1); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp182.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fmake_string_input_stream(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_FIXNUM(ARG(1), 0, ARG(1)); 13 | case 2: 14 | COPY(ARG(0), ARG(2)); 15 | Flength(ARG(2)); 16 | case 3: 17 | break; 18 | default: 19 | Labort(TOO_MANY_ARGS); 20 | } 21 | make_string_input_stream1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp186.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | GEN_GLOBAL_FUNARG(Cundef_stream_op, undef_stream_op, -1); 10 | 11 | void undef_stream_op(CL_FORM *base, int nargs) 12 | { 13 | LOAD_SMSTR((CL_FORM *)&KClisp[2], ARG(0)); /* undefined Stream Operation */ 14 | Ferror(ARG(0), 1); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp187.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fstream_element_type(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | Fstreamp(ARG(1)); 11 | if(CL_TRUEP(ARG(1))) 12 | { 13 | LOAD_SMSTR((CL_FORM *)&KClisp[194], ARG(0)); /* stream expected */ 14 | Ferror(ARG(0), 1); 15 | } 16 | else 17 | { 18 | LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(0)); /* CHARACTER */ 19 | } 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp188.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void ensure_package(CL_FORM *base) 6 | { 7 | COPY(STACK(base, 0), STACK(base, 1)); 8 | Ffind_package(STACK(base, 1)); 9 | if(CL_TRUEP(STACK(base, 1))) 10 | { 11 | COPY(STACK(base, 1), STACK(base, 0)); 12 | } 13 | else 14 | { 15 | LOAD_SYMBOL(SYMBOL(Slisp, 311), STACK(base, 1)); /* USE */ 16 | LOAD_NIL(STACK(base, 2)); 17 | Fmake_package(STACK(base, 0), 3); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp195.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fmake_string_input_stream(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_SMALLFIXNUM(0, ARG(1)); 15 | case 2: 16 | COPY(ARG(0), ARG(2)); 17 | Flength(ARG(2)); 18 | case 3: 19 | break; 20 | default: 21 | Labort(TOO_MANY_ARGS); 22 | } 23 | make_string_input_stream1(ARG(0)); 24 | } 25 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp200.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fstream_element_type(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | Fstreamp(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | LOAD_SMSTR((CL_FORM *)&KClisp[170], ARG(0)); /* stream expected */ 16 | Ferror(ARG(0), 1); 17 | } 18 | else 19 | { 20 | LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(0)); /* CHARACTER */ 21 | } 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp208.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void complex_base_array_p(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 145), ARG(1)); /* COMPLEX-BASE-ARRAY */ 12 | rt_struct_typep(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp216.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void complex_vector_p(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 150), ARG(1)); /* COMPLEX-VECTOR */ 12 | rt_struct_typep(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp222.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void Fhash_table_rehash_threshold(CL_FORM *base) 6 | { 7 | LOAD_FIXNUM(3, STACK(base, 1)); 8 | LOAD_SYMBOL(SYMBOL(Slisp, 327), STACK(base, 2)); /* HASH-TABLE */ 9 | struct_ref(STACK(base, 0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp223.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fsimple_array_p(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_SMVECP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp224.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void Fhash_table_test(CL_FORM *base) 6 | { 7 | LOAD_FIXNUM(4, STACK(base, 1)); 8 | LOAD_SYMBOL(SYMBOL(Slisp, 327), STACK(base, 2)); /* HASH-TABLE */ 9 | struct_ref(STACK(base, 0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp225.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void Fset_hash_table_test(CL_FORM *base) 6 | { 7 | COPY(STACK(base, 1), STACK(base, 2)); 8 | LOAD_FIXNUM(4, STACK(base, 3)); 9 | LOAD_SYMBOL(SYMBOL(Slisp, 327), STACK(base, 4)); /* HASH-TABLE */ 10 | COPY(STACK(base, 0), STACK(base, 5)); 11 | set_struct_ref(STACK(base, 2)); 12 | COPY(STACK(base, 2), STACK(base, 0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp227.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Farray_element_type(CL_FORM *base) 8 | { 9 | array_element_type_internal(ARG(0)); 10 | to_element_type(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp243.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Farray_element_type(CL_FORM *base) 10 | { 11 | array_element_type_internal(ARG(0)); 12 | to_element_type(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp254.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fadjustable_array_p(CL_FORM *base) 10 | { 11 | complex_base_array_p(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp260.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fvector_push_extend(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 2: 12 | LOAD_NIL(ARG(2)); 13 | case 3: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | vector_push_extend1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp266.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fgraphic_char_p(CL_FORM *base) 8 | { 9 | if(CL_CHARP(ARG(0))) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | } 13 | else 14 | { 15 | COPY(SYMVAL(Slisp, 58), ARG(1)); /* WRONG_TYPE */ 16 | COPY(ARG(0), ARG(2)); 17 | LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(3)); /* CHARACTER */ 18 | Ferror(ARG(1), 3); 19 | } 20 | rt_graphic_char_p(ARG(1)); 21 | COPY(ARG(1), ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp271.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Farray_has_fill_pointer_p(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | complex_vector_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | complex_vector_fillptr(ARG(0)); 16 | Fminusp(ARG(0)); 17 | Fnot(ARG(0)); 18 | } 19 | else 20 | { 21 | LOAD_NIL(ARG(0)); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp272.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Falphanumericp(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | Falpha_char_p(ARG(1)); 11 | if(CL_TRUEP(ARG(1))) 12 | { 13 | COPY(ARG(1), ARG(0)); 14 | } 15 | else 16 | { 17 | Fdigit_char_p(ARG(0), 1); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp273.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_fill_pointer(CL_FORM *base) 10 | { 11 | set_complex_vector_fillptr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp275.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fvector_push_extend(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | vector_push_extend1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp286.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Falphanumericp(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | Falpha_char_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | Fdigit_char_p(ARG(0), 1); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp288.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void rt_char_greaterp(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Fchar_upcase(ARG(2)); 11 | Fchar_code(ARG(2)); 12 | COPY(ARG(1), ARG(3)); 13 | Fchar_upcase(ARG(3)); 14 | Fchar_code(ARG(3)); 15 | Fgt(ARG(2), 2); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp289.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void rt_char_not_greaterp(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Fchar_upcase(ARG(2)); 11 | Fchar_code(ARG(2)); 12 | COPY(ARG(1), ARG(3)); 13 | Fchar_upcase(ARG(3)); 14 | Fchar_code(ARG(3)); 15 | Fle(ARG(2), 2); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp290.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void rt_char_not_lessp(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Fchar_upcase(ARG(2)); 11 | Fchar_code(ARG(2)); 12 | COPY(ARG(1), ARG(3)); 13 | Fchar_upcase(ARG(3)); 14 | Fchar_code(ARG(3)); 15 | Fge(ARG(2), 2); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp291.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void Fprin1_to_string(CL_FORM *base) 6 | { 7 | Fmake_string_output_stream(STACK(base, 1), 0); 8 | COPY(STACK(base, 0), STACK(base, 2)); 9 | COPY(STACK(base, 1), STACK(base, 3)); 10 | Fprin1(STACK(base, 2), 2); 11 | COPY(STACK(base, 1), STACK(base, 0)); 12 | Fget_output_stream_string(STACK(base, 0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp300.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_char_not_equal(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Fchar_upcase(ARG(2)); 13 | Fchar_code(ARG(2)); 14 | COPY(ARG(1), ARG(3)); 15 | Fchar_upcase(ARG(3)); 16 | Fchar_code(ARG(3)); 17 | Fnumneql(ARG(2), 2); 18 | COPY(ARG(2), ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp301.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fchar_downcase(CL_FORM *base) 8 | { 9 | if(CL_CHARP(ARG(0))) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | } 13 | else 14 | { 15 | COPY(SYMVAL(Slisp, 58), ARG(1)); /* WRONG_TYPE */ 16 | COPY(ARG(0), ARG(2)); 17 | LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(3)); /* CHARACTER */ 18 | Ferror(ARG(1), 3); 19 | } 20 | rt_char_downcase(ARG(1)); 21 | COPY(ARG(1), ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp302.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_char_greaterp(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Fchar_upcase(ARG(2)); 13 | Fchar_code(ARG(2)); 14 | COPY(ARG(1), ARG(3)); 15 | Fchar_upcase(ARG(3)); 16 | Fchar_code(ARG(3)); 17 | Fgt(ARG(2), 2); 18 | COPY(ARG(2), ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp303.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_char_not_greaterp(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Fchar_upcase(ARG(2)); 13 | Fchar_code(ARG(2)); 14 | COPY(ARG(1), ARG(3)); 15 | Fchar_upcase(ARG(3)); 16 | Fchar_code(ARG(3)); 17 | Fle(ARG(2), 2); 18 | COPY(ARG(2), ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp304.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_char_not_lessp(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Fchar_upcase(ARG(2)); 13 | Fchar_code(ARG(2)); 14 | COPY(ARG(1), ARG(3)); 15 | Fchar_upcase(ARG(3)); 16 | Fchar_code(ARG(3)); 17 | Fge(ARG(2), 2); 18 | COPY(ARG(2), ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp305.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void Fprinc_to_string(CL_FORM *base) 6 | { 7 | Fmake_string_output_stream(STACK(base, 1), 0); 8 | COPY(STACK(base, 0), STACK(base, 2)); 9 | COPY(STACK(base, 1), STACK(base, 3)); 10 | Fprinc(STACK(base, 2), 2); 11 | COPY(STACK(base, 1), STACK(base, 0)); 12 | Fget_output_stream_string(STACK(base, 0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp314.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fno_next_method(CL_FORM *base) 8 | { 9 | LOAD_SMSTR((CL_FORM *)&KClisp[138], ARG(0)); /* No next method. */ 10 | Ferror(ARG(0), 1); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp329.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fno_next_method(CL_FORM *base) 10 | { 11 | LOAD_SMSTR((CL_FORM *)&KClisp[116], ARG(0)); /* No next method. */ 12 | Ferror(ARG(0), 1); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp330.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fno_applicable_method(CL_FORM *base, int nargs) 10 | { 11 | Flist(ARG(1), nargs - 1); 12 | LOAD_SMSTR((CL_FORM *)&KClisp[114], ARG(2)); /* No applicable method for generic function ~s with args ~s. */ 13 | COPY(ARG(0), ARG(3)); 14 | COPY(ARG(1), ARG(4)); 15 | Ferror(ARG(2), 3); 16 | } 17 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp345.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fpathname_host(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[1]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 277), /* CASE */ 13 | }; 14 | keysort(ARG(1), nargs - 1, 1, keylist, supl_flags, FALSE); 15 | if(NOT(supl_flags[0])) 16 | { 17 | LOAD_SYMBOL(SYMBOL(Slisp, 276), ARG(1)); /* LOCAL */ 18 | } 19 | pathname_host1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp369.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fenough_namestring(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 231), ARG(1)); /* *DEFAULT-PATHNAME-DEFAULTS* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | enough_namestring1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp370.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fwild_pathname_p(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | wild_pathname_p1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp384.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fdocumentation(CL_FORM *base) 8 | { 9 | LOAD_NIL(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp385.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fset_documentation(CL_FORM *base) 8 | { 9 | } 10 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp394.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fdocumentation(CL_FORM *base) 10 | { 11 | LOAD_NIL(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp395.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_documentation(CL_FORM *base) 10 | { 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp402.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Ffloat_precision(CL_FORM *base) 8 | { 9 | if(CL_FLOATP(ARG(0))) 10 | { 11 | } 12 | else 13 | { 14 | COPY(ARG(0), ARG(1)); 15 | LOAD_SYMBOL(SYMBOL(Slisp, 24), ARG(2)); /* FLOAT */ 16 | rt_the_type_error(ARG(1)); 17 | } 18 | COPY(SYMVAL(Slisp, 342), ARG(0)); /* FLOAT-SIGNIFICAND-LENGTH */ 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp41.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void member_if_not1(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(3)); 12 | Fcomplement(ARG(3)); 13 | COPY(ARG(3), ARG(0)); 14 | member_if1(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp412.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Ffloat_precision(CL_FORM *base) 10 | { 11 | COPY(SYMVAL(Slisp, 332), ARG(0)); /* FLOAT-SIGNIFICAND-LENGTH */ 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp419.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void rt_struct_type(CL_FORM *base) 8 | { 9 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), -1 + 1), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp424.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void rt_struct_constructor(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 350), ARG(1)); /* STRUCT-CONSTRUCTOR */ 10 | Fget(ARG(0), 2); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp425.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void rt_set_struct_constructor(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 350), ARG(2)); /* STRUCT-CONSTRUCTOR */ 10 | Fset_get(ARG(0), 3); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp426.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void rt_struct_printer(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 351), ARG(1)); /* STRUCT-PRINTER */ 10 | Fget(ARG(0), 2); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp427.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void rt_set_struct_printer(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 351), ARG(2)); /* STRUCT-PRINTER */ 10 | Fset_get(ARG(0), 3); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp429.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_struct_type(CL_FORM *base) 10 | { 11 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), -1 + 1), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp43.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void Farray_element_type(CL_FORM *base) 6 | { 7 | if(CL_ARRAY_P(STACK(base, 0))) 8 | { 9 | } 10 | else 11 | { 12 | COPY(SYMVAL(Slisp, 121), STACK(base, 1)); /* NO_ARRAY */ 13 | COPY(STACK(base, 0), STACK(base, 2)); 14 | Ferror(STACK(base, 1), 2); 15 | } 16 | array_element_type_internal(STACK(base, 0)); 17 | to_element_type(STACK(base, 0)); 18 | } 19 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp434.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_struct_constructor(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 340), ARG(1)); /* STRUCT-CONSTRUCTOR */ 12 | Fget(ARG(0), 2); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp435.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_set_struct_constructor(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 340), ARG(2)); /* STRUCT-CONSTRUCTOR */ 12 | Fset_get(ARG(0), 3); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp436.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_struct_printer(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 341), ARG(1)); /* STRUCT-PRINTER */ 12 | Fget(ARG(0), 2); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp437.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_set_struct_printer(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 341), ARG(2)); /* STRUCT-PRINTER */ 12 | Fset_get(ARG(0), 3); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp439.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fpackage_nicknames(CL_FORM *base) 8 | { 9 | Ppackage_nicknames(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp448.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fpackage_use_list(CL_FORM *base) 8 | { 9 | coerce_to_package(ARG(0)); 10 | Ppackage_use_list(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp449.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fpackage_nicknames(CL_FORM *base) 10 | { 11 | Ppackage_nicknames(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp450.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fpackage_shadowing_symbols(CL_FORM *base) 8 | { 9 | coerce_to_package(ARG(0)); 10 | Ppackage_shadowings(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp454.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_ensure_package(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | Ffind_package(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | LOAD_SYMBOL(SYMBOL(Slisp, 381), ARG(1)); /* USE */ 20 | LOAD_NIL(ARG(2)); 21 | Fmake_package(ARG(0), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp457.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Frename_package(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | rename_package1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp458.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fpackage_use_list(CL_FORM *base) 10 | { 11 | coerce_to_package(ARG(0)); 12 | Ppackage_use_list(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp459.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fpackage_used_by_list(CL_FORM *base) 10 | { 11 | coerce_to_package(ARG(0)); 12 | Ppackage_used_by_list(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp46.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void nsubst_if_not1(CL_FORM *base) 10 | { 11 | COPY(ARG(1), ARG(4)); 12 | Fcomplement(ARG(4)); 13 | COPY(ARG(4), ARG(1)); 14 | nsubst_if1(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp460.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fpackage_shadowing_symbols(CL_FORM *base) 10 | { 11 | coerce_to_package(ARG(0)); 12 | Ppackage_shadowings(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp461.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Flist_all_packages(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 28), ARG(0)); /* LIST */ 12 | COPY(SYMVAL(Slisp, 379), ARG(1)); /* *PACKAGE-ARRAY* */ 13 | Fconcatenate(ARG(0), 2); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp462.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Funuse_package(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | COPY(SYMVAL(Slisp, 353), ARG(1)); /* *PACKAGE* */ 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | unuse_package1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp469.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fshadowing_import(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | shadowing_import1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp472.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Funuse_package(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 343), ARG(1)); /* *PACKAGE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | unuse_package1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp478.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fhash_table_size(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 0, ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(2)); /* HASH-TABLE */ 11 | rt_struct_ref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp479.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fset_hash_table_size(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(2), 0, ARG(2)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(3)); /* HASH-TABLE */ 11 | rt_set_struct_ref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp480.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fhash_table_count(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 1, ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(2)); /* HASH-TABLE */ 11 | rt_struct_ref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp481.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fset_hash_table_count(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(2), 1, ARG(2)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(3)); /* HASH-TABLE */ 11 | rt_set_struct_ref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp482.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fhash_table_rehash_size(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 2, ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(2)); /* HASH-TABLE */ 11 | rt_struct_ref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp483.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_check_array(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(3)); 12 | Farrayp(ARG(3)); 13 | if(CL_TRUEP(ARG(3))) 14 | { 15 | check_array_internal(ARG(0)); 16 | } 17 | else 18 | { 19 | LOAD_NIL(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp484.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_check_simple_array(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(3)); 12 | Fsimple_array_p(ARG(3)); 13 | if(CL_TRUEP(ARG(3))) 14 | { 15 | check_array_internal(ARG(0)); 16 | } 17 | else 18 | { 19 | LOAD_NIL(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp487.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fset_hash_table_test(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(2), 4, ARG(2)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(3)); /* HASH-TABLE */ 11 | rt_set_struct_ref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp488.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fhash_table_size(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(0, ARG(1)); 12 | LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(2)); /* HASH-TABLE */ 13 | rt_struct_ref(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp489.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_hash_table_size(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(0, ARG(2)); 12 | LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(3)); /* HASH-TABLE */ 13 | rt_set_struct_ref(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp490.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fhash_table_count(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(1, ARG(1)); 12 | LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(2)); /* HASH-TABLE */ 13 | rt_struct_ref(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp491.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_hash_table_count(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(1, ARG(2)); 12 | LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(3)); /* HASH-TABLE */ 13 | rt_set_struct_ref(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp492.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fhash_table_rehash_size(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(2, ARG(1)); 12 | LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(2)); /* HASH-TABLE */ 13 | rt_struct_ref(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp493.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_hash_table_rehash_size(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(2, ARG(2)); 12 | LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(3)); /* HASH-TABLE */ 13 | rt_set_struct_ref(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp494.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fhash_table_rehash_threshold(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(3, ARG(1)); 12 | LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(2)); /* HASH-TABLE */ 13 | rt_struct_ref(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp495.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_hash_table_rehash_threshold(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(3, ARG(2)); 12 | LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(3)); /* HASH-TABLE */ 13 | rt_set_struct_ref(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp496.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fhash_table_test(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(4, ARG(1)); 12 | LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(2)); /* HASH-TABLE */ 13 | rt_struct_ref(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp497.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_hash_table_test(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(4, ARG(2)); 12 | LOAD_SYMBOL(SYMBOL(Slisp, 389), ARG(3)); /* HASH-TABLE */ 13 | rt_set_struct_ref(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp5.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void stream_unreadc(CL_FORM *base) 6 | { 7 | LOAD_FIXNUM(3, STACK(base, 1)); 8 | LOAD_SYMBOL(SYMBOL(Slisp, 63), STACK(base, 2)); /* STREAM */ 9 | struct_ref(STACK(base, 0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp50.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void Farray_row_major_index(CL_FORM *base, int nargs) 6 | { 7 | Flist(STACK(base, 1), nargs - 1); 8 | array_rmi_internal(STACK(base, 0)); 9 | } 10 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp511.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fcopy_readtable(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | COPY(SYMVAL(Slisp, 454), ARG(0)); /* *READTABLE* */ 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | copy_readtable1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp512.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fset_syntax_from_char(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 2: 12 | COPY(SYMVAL(Slisp, 454), ARG(2)); /* *READTABLE* */ 13 | case 3: 14 | COPY(SYMVAL(Slisp, 453), ARG(3)); /* *STANDARD-READTABLE* */ 15 | case 4: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | set_syntax_from_char1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp515.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fget_macro_character(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | COPY(SYMVAL(Slisp, 454), ARG(1)); /* *READTABLE* */ 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | get_macro_character1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp524.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fcopy_readtable(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 0: 14 | COPY(SYMVAL(Slisp, 449), ARG(0)); /* *READTABLE* */ 15 | case 1: 16 | LOAD_NIL(ARG(1)); 17 | case 2: 18 | break; 19 | default: 20 | Labort(TOO_MANY_ARGS); 21 | } 22 | copy_readtable1(ARG(0)); 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp527.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_macro_character(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | COPY(SYMVAL(Slisp, 449), ARG(3)); /* *READTABLE* */ 17 | case 4: 18 | break; 19 | default: 20 | Labort(TOO_MANY_ARGS); 21 | } 22 | set_macro_character1(ARG(0)); 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp528.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fget_macro_character(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | COPY(SYMVAL(Slisp, 449), ARG(1)); /* *READTABLE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | get_macro_character1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp53.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void Farray_row_major_index(CL_FORM *base, int nargs) 6 | { 7 | Flist(STACK(base, 1), nargs - 1); 8 | array_rmi_internal(STACK(base, 0)); 9 | } 10 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp530.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fset_dispatch_macro_character(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 3: 14 | COPY(SYMVAL(Slisp, 449), ARG(3)); /* *READTABLE* */ 15 | case 4: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | set_dispatch_macro_character1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp531.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fget_dispatch_macro_character(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 2: 14 | COPY(SYMVAL(Slisp, 449), ARG(2)); /* *READTABLE* */ 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | get_dispatch_macro_character1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp536.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | GEN_GLOBAL_FUNARG(Csemicolon_reader, semicolon_reader, 2); 10 | 11 | void semicolon_reader(CL_FORM *base) 12 | { 13 | COPY(ARG(0), ARG(2)); 14 | LOAD_NIL(ARG(3)); 15 | LOAD_NIL(ARG(4)); 16 | LOAD_NIL(ARG(5)); 17 | read_line1(ARG(2)); 18 | mv_count = 1; 19 | LOAD_NIL(ARG(0)); 20 | mv_count = 0; 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp542.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fread_delimited_list(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | LOAD_NIL(ARG(2)); 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | read_delimited_list1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp543.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void the_type_error(CL_FORM *base) 6 | { 7 | LOAD_SMSTR((CL_FORM *)&KClisp[8], STACK(base, 2)); /* type error: ~S is not of type ~S */ 8 | COPY(STACK(base, 0), STACK(base, 3)); 9 | COPY(STACK(base, 1), STACK(base, 4)); 10 | Ferror(STACK(base, 2), 3); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp555.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fread_delimited_list(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | LOAD_NIL(ARG(2)); 17 | case 3: 18 | break; 19 | default: 20 | Labort(TOO_MANY_ARGS); 21 | } 22 | read_delimited_list1(ARG(0)); 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp556.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fprin1_to_string(CL_FORM *base) 8 | { 9 | Fmake_string_output_stream(ARG(1), 0); 10 | COPY(ARG(0), ARG(2)); 11 | COPY(ARG(1), ARG(3)); 12 | Fprin1(ARG(2), 2); 13 | COPY(ARG(1), ARG(0)); 14 | Fget_output_stream_string(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp557.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fprinc_to_string(CL_FORM *base) 8 | { 9 | Fmake_string_output_stream(ARG(1), 0); 10 | COPY(ARG(0), ARG(2)); 11 | COPY(ARG(1), ARG(3)); 12 | Fprinc(ARG(2), 2); 13 | COPY(ARG(1), ARG(0)); 14 | Fget_output_stream_string(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp568.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fprin1_to_string(CL_FORM *base) 10 | { 11 | Fmake_string_output_stream(ARG(1), 0); 12 | COPY(ARG(0), ARG(2)); 13 | COPY(ARG(1), ARG(3)); 14 | Fprin1(ARG(2), 2); 15 | COPY(ARG(1), ARG(0)); 16 | Fget_output_stream_string(ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp569.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fprinc_to_string(CL_FORM *base) 10 | { 11 | Fmake_string_output_stream(ARG(1), 0); 12 | COPY(ARG(0), ARG(2)); 13 | COPY(ARG(1), ARG(3)); 14 | Fprinc(ARG(2), 2); 15 | COPY(ARG(1), ARG(0)); 16 | Fget_output_stream_string(ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp601.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fdelete_duplicates(CL_FORM *base, int nargs) 8 | { 9 | CL_FORM *rest_0; 10 | CL_FORM *local; 11 | rest_0 = ARG(1); 12 | local = ARG(nargs); 13 | LOAD_GLOBFUN(&CFremove_duplicates, LOCAL(0)); 14 | COPY(ARG(0), LOCAL(1)); 15 | REST_APPLY(LOCAL(0), 2, rest_0); 16 | COPY(LOCAL(0), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp70.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | CL_INIT2(KFno_next_method) 6 | { 7 | MAKE_STRING(15, "No next method."), /* 0 */ 8 | }; 9 | 10 | void Fno_next_method(CL_FORM *base) 11 | { 12 | LOAD_SMSTR((CL_FORM *)&KFno_next_method[0], STACK(base, 0)); /* No next method. */ 13 | Ferror(STACK(base, 0), 1); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp727.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fnsubst_if_not(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[1]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 209), /* KEY */ 13 | }; 14 | keysort(ARG(3), nargs - 3, 1, keylist, supl_flags, FALSE); 15 | if(NOT(supl_flags[0])) 16 | { 17 | LOAD_NIL(ARG(3)); 18 | } 19 | nsubst_if_not1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp732.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fmember_if_not(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[1]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 209), /* KEY */ 13 | }; 14 | keysort(ARG(2), nargs - 2, 1, keylist, supl_flags, FALSE); 15 | if(NOT(supl_flags[0])) 16 | { 17 | LOAD_NIL(ARG(2)); 18 | } 19 | member_if_not1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp74.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void delete_duplicates1(CL_FORM *base) 10 | { 11 | remove_duplicates1(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp748.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Frassoc_if_not(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[1]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 209), /* KEY */ 13 | }; 14 | keysort(ARG(2), nargs - 2, 1, keylist, supl_flags, FALSE); 15 | if(NOT(supl_flags[0])) 16 | { 17 | LOAD_NIL(ARG(2)); 18 | } 19 | rassoc_if_not1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp752.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fnsubst_if_not(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 207), /* KEY */ 15 | }; 16 | keysort(ARG(3), nargs - 3, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(3)); 20 | } 21 | nsubst_if_not1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp757.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Fmember_if_not(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 207), /* KEY */ 15 | }; 16 | keysort(ARG(2), nargs - 2, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(2)); 20 | } 21 | member_if_not1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp773.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void Frassoc_if_not(CL_FORM *base, int nargs) 10 | { 11 | BOOL supl_flags[1]; 12 | static CL_FORM * keylist[] = 13 | { 14 | SYMBOL(Slisp, 207), /* KEY */ 15 | }; 16 | keysort(ARG(2), nargs - 2, 1, keylist, supl_flags, FALSE); 17 | if(NOT(supl_flags[0])) 18 | { 19 | LOAD_NIL(ARG(2)); 20 | } 21 | rassoc_if_not1(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp800.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void rt_the_type_error(CL_FORM *base) 8 | { 9 | LOAD_SMSTR((CL_FORM *)&KClisp[244], ARG(2)); /* type error: ~S is not of type ~S */ 10 | COPY(ARG(0), ARG(3)); 11 | COPY(ARG(1), ARG(4)); 12 | Ferror(ARG(2), 3); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp825.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_the_type_error(CL_FORM *base) 10 | { 11 | LOAD_SMSTR((CL_FORM *)&KClisp[36], ARG(2)); /* type error: ~S is not of type ~S */ 12 | COPY(ARG(0), ARG(3)); 13 | COPY(ARG(1), ARG(4)); 14 | Ferror(ARG(2), 3); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp848.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void FFI_c_unsigned_char_p(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | c_unsigned_char_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | rt_check_unsigned_char(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp849.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void FFI_c_unsigned_short_p(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | c_unsigned_short_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | rt_check_unsigned_short(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp850.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void FFI_c_unsigned_int_p(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | c_unsigned_int_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | rt_check_unsigned_int(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp851.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void FFI_c_unsigned_long_p(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | c_unsigned_long_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | rt_check_unsigned_long(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp853.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void FFI_c_double_p(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | c_double_p(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | COPY(ARG(1), ARG(0)); 16 | } 17 | else 18 | { 19 | rt_check_double(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp91.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void host_unparse_directory(CL_FORM *base) 6 | { 7 | LOAD_FIXNUM(3, STACK(base, 1)); 8 | LOAD_SYMBOL(SYMBOL(Slisp, 194), STACK(base, 2)); /* HOST */ 9 | struct_ref(STACK(base, 0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/log1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void log1(CL_FORM *base) 10 | { 11 | rt_log(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/nil_fun.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | GEN_GLOBAL_FUNARG(Cnil_fun, nil_fun, 0); 10 | 11 | void nil_fun(CL_FORM *base) 12 | { 13 | LOAD_NIL(ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/pattern_p.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | GEN_GLOBAL_FUNARG(Cpattern_p, pattern_p, 1); 10 | 11 | void pattern_p(CL_FORM *base) 12 | { 13 | LOAD_SYMBOL(SYMBOL(Slisp, 248), ARG(1)); /* PATTERN */ 14 | rt_struct_typep(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/position1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void position1(CL_FORM *base) 10 | { 11 | if(CL_LISTP(ARG(1))) 12 | { 13 | list_position(ARG(0)); 14 | } 15 | else 16 | { 17 | vector_position(ARG(0)); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/round1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void round1(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(3, ARG(2)); 12 | rt_convert_to_int(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_charG.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_charG(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Fchar_code(ARG(2)); 13 | COPY(ARG(1), ARG(3)); 14 | Fchar_code(ARG(3)); 15 | Fgt(ARG(2), 2); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_charGE.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_charGE(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Fchar_code(ARG(2)); 13 | COPY(ARG(1), ARG(3)); 14 | Fchar_code(ARG(3)); 15 | Fge(ARG(2), 2); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_charL.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_charL(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Fchar_code(ARG(2)); 13 | COPY(ARG(1), ARG(3)); 14 | Fchar_code(ARG(3)); 15 | Flt(ARG(2), 2); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_charLE.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_charLE(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Fchar_code(ARG(2)); 13 | COPY(ARG(1), ARG(3)); 14 | Fchar_code(ARG(3)); 15 | Fle(ARG(2), 2); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_char_equal.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_char_equal(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Fchar_upcase(ARG(2)); 13 | Fchar_code(ARG(2)); 14 | COPY(ARG(1), ARG(3)); 15 | Fchar_upcase(ARG(3)); 16 | Fchar_code(ARG(3)); 17 | Fnumeql(ARG(2), 2); 18 | COPY(ARG(2), ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_char_lessp.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_char_lessp(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | Fchar_upcase(ARG(2)); 13 | Fchar_code(ARG(2)); 14 | COPY(ARG(1), ARG(3)); 15 | Fchar_upcase(ARG(3)); 16 | Fchar_code(ARG(3)); 17 | Flt(ARG(2), 2); 18 | COPY(ARG(2), ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_file_name.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void rt_file_name(CL_FORM *base, int nargs) 10 | { 11 | switch(nargs) 12 | { 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | file_name1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_fixnump.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "inline.h" 8 | 9 | void rt_fixnump(CL_FORM *base) 10 | { 11 | LOAD_BOOL(CL_FIXNUMP(ARG(0)), ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/set_vref.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | CL_INIT2(Kset_vref) 6 | { 7 | MAKE_STRING(27, "~A should be of type VECTOR"), /* 0 */ 8 | }; 9 | 10 | void set_vref(CL_FORM *base) 11 | { 12 | if(CL_VECTOR_P(STACK(base, 1))) 13 | { 14 | } 15 | else 16 | { 17 | LOAD_SMSTR((CL_FORM *)&Kset_vref[0], STACK(base, 3)); /* ~A should be of type VECTOR */ 18 | COPY(STACK(base, 1), STACK(base, 4)); 19 | Ferror(STACK(base, 3), 2); 20 | } 21 | Fset_row_major_aref(STACK(base, 0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/simple_member.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void simple_member(CL_FORM *base) 6 | { 7 | M13_1:; 8 | if(CL_TRUEP(STACK(base, 1))) 9 | { 10 | COPY(STACK(base, 1), STACK(base, 2)); 11 | Fcar(STACK(base, 2)); 12 | if(EQ(STACK(base, 0), STACK(base, 2))) 13 | { 14 | } 15 | else 16 | { 17 | Fcdr(STACK(base, 1)); 18 | goto M13_1; 19 | } 20 | } 21 | else 22 | { 23 | LOAD_NIL(STACK(base, 0)); 24 | } 25 | goto RETURN13; 26 | RETURN13:; 27 | } 28 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/stream_close.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | void stream_close(CL_FORM *base) 6 | { 7 | LOAD_FIXNUM(9, STACK(base, 1)); 8 | LOAD_SYMBOL(SYMBOL(Slisp, 63), STACK(base, 2)); /* STREAM */ 9 | struct_ref(STACK(base, 0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/subseq1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void subseq1(CL_FORM *base) 10 | { 11 | if(CL_LISTP(ARG(0))) 12 | { 13 | list_subseq(ARG(0)); 14 | } 15 | else 16 | { 17 | vector_subseq(ARG(0)); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/subst_if_not1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void subst_if_not1(CL_FORM *base) 10 | { 11 | COPY(ARG(1), ARG(4)); 12 | Fcomplement(ARG(4)); 13 | COPY(ARG(4), ARG(1)); 14 | subst_if1(ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/truncate1.c: -------------------------------------------------------------------------------- 1 | /* This file was generated by CLiCC 0.6.5 [OBREP 2] */ 2 | #include 3 | #if OBREP != 2 4 | #error "Wrong OBREP!" 5 | #endif 6 | #include "sys.h" 7 | #include "lisp.h" 8 | 9 | void truncate1(CL_FORM *base) 10 | { 11 | LOAD_SMALLFIXNUM(2, ARG(2)); 12 | rt_convert_to_int(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/vref.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include "sys.h" 3 | #include "lisp.h" 4 | 5 | CL_INIT2(Kvref) 6 | { 7 | MAKE_STRING(27, "~A should be of type VECTOR"), /* 0 */ 8 | }; 9 | 10 | void vref(CL_FORM *base) 11 | { 12 | if(CL_VECTOR_P(STACK(base, 0))) 13 | { 14 | } 15 | else 16 | { 17 | LOAD_SMSTR((CL_FORM *)&Kvref[0], STACK(base, 2)); /* ~A should be of type VECTOR */ 18 | COPY(STACK(base, 0), STACK(base, 3)); 19 | Ferror(STACK(base, 2), 2); 20 | } 21 | Frow_major_aref(STACK(base, 0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/test/RCS: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/src/test/RCS -------------------------------------------------------------------------------- /src/test/RCS-files: -------------------------------------------------------------------------------- 1 | $Revision: 1.8 $ 2 | README 3 | ai-course.lisp 4 | arrays.lisp 5 | bindings.lisp 6 | boyer.lisp 7 | clos-test.lisp 8 | eval.lisp 9 | evaltest.lisp 10 | expert.lisp 11 | lambda.lisp 12 | search.lisp 13 | side-effect.lisp 14 | testmain.lisp 15 | time.def 16 | time.lisp 17 | y-fac.lisp 18 | -------------------------------------------------------------------------------- /src/test/oldtests: -------------------------------------------------------------------------------- 1 | /home/karlo/apply/clicc/src/test/oldtests --------------------------------------------------------------------------------