├── COPYRIGHT ├── INSTALL ├── NOTES ├── README ├── README.akcl ├── README.clisp ├── bin ├── build-protos ├── cl ├── cl-s ├── cl386 ├── clg ├── clg-s ├── clp ├── rt ├── rt-s ├── rtg ├── rtg-s ├── rtp └── tar-clicc ├── doc ├── Klassenbaum.txt ├── Migration.ps.Z ├── c-machine.ps.Z ├── cl0-engl.ps.Z ├── clicc.1 ├── extensions ├── migration ├── module.doc ├── predicates.doc └── zspra.ps.Z ├── lib ├── README ├── c_decl.h ├── makefile.cl ├── makefile.cl386 ├── obrep1.h ├── obrep2.h ├── sys.def └── sys.h └── src ├── compiler ├── 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 ├── 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-files │ ├── 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 │ ├── main.c │ ├── number.c │ ├── obrep1.c │ ├── obrep2.c │ ├── progv.c │ ├── string.c │ ├── structure.c │ ├── symbols.c │ ├── system.c │ ├── unix.c │ └── values.c ├── lisp │ ├── 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_double.c │ ├── FFI_c_float.c │ ├── FFI_c_int.c │ ├── FFI_c_long.c │ ├── FFI_c_short.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 │ ├── 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 │ ├── 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 │ ├── break1.c │ ├── butlast1.c │ ├── c_getenv.c │ ├── c_system.c │ ├── ceiling1.c │ ├── char_reader.c │ ├── check_integer.c │ ├── close1.c │ ├── close2.c │ ├── close_err.c │ ├── comma_reader.c │ ├── cons_reader.c │ ├── copy_symbol1.c │ ├── count1.c │ ├── del_pack_sym.c │ ├── digit_char1.c │ ├── digit_char_p1.c │ ├── directory1.c │ ├── error_in.c │ ├── eval_feature.c │ ├── export1.c │ ├── file_name1.c │ ├── fill1.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 │ ├── import1.c │ ├── in_package1.c │ ├── inline.h │ ├── inline13.c │ ├── inline14.c │ ├── inline15.c │ ├── intern1.c │ ├── internal_read.c │ ├── intersection1.c │ ├── last1.c │ ├── lisp.def │ ├── lisp.h │ ├── lisp.syntax │ ├── lisp10.c │ ├── lisp101.c │ ├── lisp102.c │ ├── lisp105.c │ ├── lisp11.c │ ├── lisp112.c │ ├── lisp12.c │ ├── lisp122.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 │ ├── lisp138.c │ ├── lisp14.c │ ├── lisp143.c │ ├── lisp158.c │ ├── lisp159.c │ ├── lisp16.c │ ├── lisp161.c │ ├── lisp166.c │ ├── lisp17.c │ ├── lisp173.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 │ ├── lisp189.c │ ├── lisp19.c │ ├── lisp190.c │ ├── lisp191.c │ ├── lisp192.c │ ├── lisp194.c │ ├── lisp195.c │ ├── lisp196.c │ ├── lisp197.c │ ├── lisp198.c │ ├── lisp199.c │ ├── lisp200.c │ ├── lisp201.c │ ├── lisp202.c │ ├── lisp203.c │ ├── lisp204.c │ ├── lisp205.c │ ├── lisp206.c │ ├── lisp207.c │ ├── lisp208.c │ ├── lisp210.c │ ├── lisp216.c │ ├── lisp227.c │ ├── lisp228.c │ ├── lisp229.c │ ├── lisp230.c │ ├── lisp232.c │ ├── lisp233.c │ ├── lisp234.c │ ├── lisp235.c │ ├── lisp236.c │ ├── lisp237.c │ ├── lisp238.c │ ├── lisp239.c │ ├── lisp256.c │ ├── lisp258.c │ ├── lisp260.c │ ├── lisp263.c │ ├── lisp264.c │ ├── lisp265.c │ ├── lisp266.c │ ├── lisp272.c │ ├── lisp28.c │ ├── lisp286.c │ ├── lisp288.c │ ├── lisp289.c │ ├── lisp290.c │ ├── lisp292.c │ ├── lisp294.c │ ├── lisp295.c │ ├── lisp296.c │ ├── lisp301.c │ ├── lisp306.c │ ├── lisp307.c │ ├── lisp308.c │ ├── lisp310.c │ ├── lisp312.c │ ├── lisp314.c │ ├── lisp315.c │ ├── lisp320.c │ ├── lisp326.c │ ├── lisp328.c │ ├── lisp329.c │ ├── lisp331.c │ ├── lisp332.c │ ├── lisp333.c │ ├── lisp334.c │ ├── lisp335.c │ ├── lisp336.c │ ├── lisp337.c │ ├── lisp339.c │ ├── lisp341.c │ ├── lisp342.c │ ├── lisp343.c │ ├── lisp344.c │ ├── lisp345.c │ ├── lisp346.c │ ├── lisp347.c │ ├── lisp348.c │ ├── lisp349.c │ ├── lisp350.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 │ ├── lisp370.c │ ├── lisp371.c │ ├── lisp372.c │ ├── lisp373.c │ ├── lisp384.c │ ├── lisp385.c │ ├── lisp402.c │ ├── lisp403.c │ ├── lisp41.c │ ├── lisp418.c │ ├── lisp419.c │ ├── lisp420.c │ ├── lisp421.c │ ├── lisp423.c │ ├── lisp424.c │ ├── lisp425.c │ ├── lisp426.c │ ├── lisp427.c │ ├── lisp428.c │ ├── lisp431.c │ ├── lisp432.c │ ├── lisp433.c │ ├── lisp434.c │ ├── lisp435.c │ ├── lisp436.c │ ├── lisp437.c │ ├── lisp439.c │ ├── lisp441.c │ ├── lisp444.c │ ├── lisp447.c │ ├── lisp448.c │ ├── lisp449.c │ ├── lisp450.c │ ├── lisp451.c │ ├── lisp458.c │ ├── lisp459.c │ ├── lisp46.c │ ├── lisp462.c │ ├── lisp463.c │ ├── lisp464.c │ ├── lisp465.c │ ├── lisp466.c │ ├── lisp467.c │ ├── lisp473.c │ ├── lisp474.c │ ├── lisp475.c │ ├── lisp476.c │ ├── lisp478.c │ ├── lisp479.c │ ├── lisp480.c │ ├── lisp481.c │ ├── lisp482.c │ ├── lisp483.c │ ├── lisp484.c │ ├── lisp485.c │ ├── lisp486.c │ ├── lisp487.c │ ├── lisp488.c │ ├── lisp489.c │ ├── lisp496.c │ ├── lisp497.c │ ├── lisp501.c │ ├── lisp503.c │ ├── lisp504.c │ ├── lisp505.c │ ├── lisp506.c │ ├── lisp507.c │ ├── lisp509.c │ ├── lisp510.c │ ├── lisp511.c │ ├── lisp512.c │ ├── lisp513.c │ ├── lisp514.c │ ├── lisp515.c │ ├── lisp516.c │ ├── lisp517.c │ ├── lisp518.c │ ├── lisp521.c │ ├── lisp523.c │ ├── lisp526.c │ ├── lisp532.c │ ├── lisp535.c │ ├── lisp536.c │ ├── lisp538.c │ ├── lisp541.c │ ├── lisp542.c │ ├── lisp545.c │ ├── lisp546.c │ ├── lisp555.c │ ├── lisp556.c │ ├── lisp557.c │ ├── lisp569.c │ ├── lisp580.c │ ├── lisp582.c │ ├── lisp583.c │ ├── lisp596.c │ ├── lisp599.c │ ├── lisp600.c │ ├── lisp601.c │ ├── lisp608.c │ ├── lisp611.c │ ├── lisp619.c │ ├── lisp62.c │ ├── lisp63.c │ ├── lisp66.c │ ├── lisp67.c │ ├── lisp72.c │ ├── lisp727.c │ ├── lisp732.c │ ├── lisp738.c │ ├── lisp742.c │ ├── lisp748.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 │ ├── lisp79.c │ ├── lisp794.c │ ├── lisp796.c │ ├── lisp797.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 │ ├── lisp85.c │ ├── lisp86.c │ ├── lisp89.c │ ├── lisp9.c │ ├── lisp90.c │ ├── lisp92.c │ ├── lisp93.c │ ├── lisp94.c │ ├── lisp95.c │ ├── lisp96.c │ ├── lisp97.c │ ├── lisp98.c │ ├── list_find.c │ ├── list_find1.c │ ├── list_nreverse.c │ ├── list_position.c │ ├── list_remove.c │ ├── list_remove1.c │ ├── log1.c │ ├── make_array1.c │ ├── make_host.c │ ├── make_list1.c │ ├── make_package1.c │ ├── make_stream1.c │ ├── make_string1.c │ ├── maptree.c │ ├── member1.c │ ├── member_if1.c │ ├── mismatch1.c │ ├── nbutlast1.c │ ├── nil_fun.c │ ├── nsublis1.c │ ├── nsubst1.c │ ├── nsubst_if1.c │ ├── nunion1.c │ ├── octal_reader.c │ ├── open1.c │ ├── pairlis1.c │ ├── patternE.c │ ├── pattern_p.c │ ├── peek_char1.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 │ ├── 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_pvref.c │ ├── shadow1.c │ ├── sort1.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 │ ├── sublis1.c │ ├── subseq1.c │ ├── subsetp1.c │ ├── subst1.c │ ├── subst_if1.c │ ├── subst_if_not1.c │ ├── substitute1.c │ ├── terpri1.c │ ├── tree_equal1.c │ ├── truncate1.c │ ├── type_code_p.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 │ ├── write1.c │ ├── write2.c │ ├── write_char1.c │ ├── write_string1.c │ ├── y_or_n_p1.c │ └── yes_or_no_p1.c └── test ├── README ├── ai-course.lisp ├── arrays.lisp ├── bindings.lisp ├── boyer.lisp ├── clos-test.lisp ├── expert.lisp ├── lambda.lisp ├── search.lisp ├── side-effect.lisp ├── testmain.lisp ├── time.def ├── time.lisp └── y-fac.lisp /bin/cl: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | #------------------------------------------------------------------------------ 3 | # Projekt : CLICC - a Common Lisp to C Compiler 4 | # ----------------------------------- 5 | # Function : Compiling a C file which was generated by clicc 6 | # 7 | # $Source: /home3/apply/public/clicc-0.6.4/bin/RCS/cl,v $ 8 | # $Author: hk $ 9 | # $Revision: 1.6 $ 10 | # $Date: 1993/11/18 16:24:09 $ 11 | #------------------------------------------------------------------------------ 12 | 13 | first=$1 14 | shift 15 | gmake -f $CLICCROOT/lib/makefile.cl "SOURCE=$first" MODULES="$*" "OPTIMIZE=-O" "CC=gcc" 16 | -------------------------------------------------------------------------------- /bin/cl386: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | #------------------------------------------------------------------------------ 3 | # Projekt : CLICC - a Common Lisp to C Compiler 4 | # ----------------------------------- 5 | # Function : Compiling a C file which was generated by clicc 6 | # 7 | # $Source: /home3/apply/public/clicc-0.6.4/bin/RCS/cl386,v $ 8 | # $Author: uho $ 9 | # $Revision: 1.4 $ 10 | # $Date: 1993/12/16 18:44:20 $ 11 | #------------------------------------------------------------------------------ 12 | 13 | first=$1 14 | shift 15 | gmake -f $CLICCROOT/lib/makefile.cl386 "SOURCE=$first" MODULES="$*" "OPTIMIZE=-O" 16 | -------------------------------------------------------------------------------- /bin/clp: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | #------------------------------------------------------------------------------ 3 | # Projekt : CLICC - a Common Lisp to C Compiler 4 | # ----------------------------------- 5 | # Function : Compiling a C file which was generated by clicc 6 | # 7 | # $Source: /home3/apply/public/clicc-0.6.4/bin/RCS/clp,v $ 8 | # $Author: hk $ 9 | # $Revision: 1.3 $ 10 | # $Date: 1993/11/18 16:25:00 $ 11 | #------------------------------------------------------------------------------ 12 | 13 | first=$1 14 | shift 15 | gmake -f $CLICCROOT/lib/makefile.cl "SOURCE=$first" MODULES="$*" "OPTIMIZE=-O -pg" "CC=gcc" 16 | -------------------------------------------------------------------------------- /doc/Migration.ps.Z: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hoelzl/Clicc/cea01db35301144967dc74fd2f96dd58aa52d6ea/doc/Migration.ps.Z -------------------------------------------------------------------------------- /doc/c-machine.ps.Z: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hoelzl/Clicc/cea01db35301144967dc74fd2f96dd58aa52d6ea/doc/c-machine.ps.Z -------------------------------------------------------------------------------- /doc/cl0-engl.ps.Z: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hoelzl/Clicc/cea01db35301144967dc74fd2f96dd58aa52d6ea/doc/cl0-engl.ps.Z -------------------------------------------------------------------------------- /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 | $Log: predicates.doc,v $ 7 | # Revision 1.1 1993/06/15 09:28:20 hk 8 | # Initial revision 9 | # 10 | 11 | Diese Datei beschreibt das Resultat von Pr"adikaten, falls sie nicht 12 | das Symbol T im Erfolgsfall liefern. 13 | 14 | 15 | boundp: NIL -> T, andere Symbole -> das Symbol im Erfolgsfall. 16 | -------------------------------------------------------------------------------- /doc/zspra.ps.Z: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hoelzl/Clicc/cea01db35301144967dc74fd2f96dd58aa52d6ea/doc/zspra.ps.Z -------------------------------------------------------------------------------- /lib/c_decl.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hoelzl/Clicc/cea01db35301144967dc74fd2f96dd58aa52d6ea/lib/c_decl.h -------------------------------------------------------------------------------- /lib/obrep1.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hoelzl/Clicc/cea01db35301144967dc74fd2f96dd58aa52d6ea/lib/obrep1.h -------------------------------------------------------------------------------- /lib/obrep2.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hoelzl/Clicc/cea01db35301144967dc74fd2f96dd58aa52d6ea/lib/obrep2.h -------------------------------------------------------------------------------- /lib/sys.def: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hoelzl/Clicc/cea01db35301144967dc74fd2f96dd58aa52d6ea/lib/sys.def -------------------------------------------------------------------------------- /src/runtime/c/RCS-files: -------------------------------------------------------------------------------- 1 | $Revision: 1.9 $ 2 | GNUmakefile 3 | GNUmakefile386 4 | Makefile 5 | RCS-files 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 | main.c 20 | number.c 21 | obrep1.c 22 | obrep2.c 23 | progv.c 24 | string.c 25 | structure.c 26 | symbols.c 27 | system.c 28 | unix.c 29 | values.c 30 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/FFI_c_int.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 FFI_c_int(CL_FORM *base) 8 | { 9 | if(CL_FIXNUMP(ARG(0))) 10 | { 11 | rt_make_c_int(ARG(0)); 12 | } 13 | else 14 | { 15 | if(CL_C_INT_P(ARG(0))) 16 | { 17 | rt_cast_c_int(ARG(0)); 18 | } 19 | else 20 | { 21 | LOAD_SMSTR((CL_FORM *)&KClisp[54], ARG(1)); /* C-INT */ 22 | LOAD_SMSTR((CL_FORM *)&KClisp[52], ARG(2)); /* The evaluated value ~S is not of type fixnum. */ 23 | COPY(ARG(0), ARG(3)); 24 | error_in(ARG(1), 3); 25 | } 26 | } 27 | } 28 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fabs.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 Fabs(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | Fminusp(ARG(1)); 11 | if(CL_TRUEP(ARG(1))) 12 | { 13 | Fminus(ARG(0), 1); 14 | } 15 | else 16 | { 17 | } 18 | } 19 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Facons.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 Facons(CL_FORM *base) 8 | { 9 | ALLOC_CONS(ARG(5), ARG(0), ARG(1), ARG(3)); 10 | ALLOC_CONS(ARG(5), ARG(3), ARG(2), ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Falpha_char_p.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 Falpha_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_alpha_char_p(ARG(1)); 21 | COPY(ARG(1), ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Faref.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 Faref(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 | COPY(ARG(0), LOCAL(0)); 14 | LOAD_GLOBFUN(&CFarray_row_major_index, LOCAL(1)); 15 | COPY(ARG(0), LOCAL(2)); 16 | REST_APPLY(LOCAL(1), 2, rest_0); 17 | mv_count = 1; 18 | Frow_major_aref(LOCAL(0)); 19 | COPY(LOCAL(0), ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Farrayp.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 Farrayp(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_SMVECP(ARG(0)), ARG(1)); 10 | if(CL_TRUEP(ARG(1))) 11 | { 12 | COPY(ARG(1), ARG(0)); 13 | } 14 | else 15 | { 16 | complex_base_array_p(ARG(0)); 17 | } 18 | } 19 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fash.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 Fash(CL_FORM *base) 8 | { 9 | COPY(ARG(1), ARG(2)); 10 | Fminusp(ARG(2)); 11 | if(CL_TRUEP(ARG(2))) 12 | { 13 | COPY(ARG(1), ARG(3)); 14 | Fminus(ARG(3), 1); 15 | LOAD_FIXNUM(ARG(4), GET_FIXNUM(ARG(0)) >> GET_FIXNUM(ARG(3)), ARG(0)); 16 | } 17 | else 18 | { 19 | LOAD_FIXNUM(ARG(4), GET_FIXNUM(ARG(0)) << GET_FIXNUM(ARG(1)), ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fassoc_if.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 Fassoc_if(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 | assoc_if1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fassoc_if_not.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 Fassoc_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 | assoc_if_not1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fatom.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 "inline.h" 6 | 7 | void Fatom(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_ATOMP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_and.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 Fbit_and(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 | bit_and1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_andc1.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 Fbit_andc1(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 | bit_andc11(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_andc2.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 Fbit_andc2(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 | bit_andc21(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_eqv.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 Fbit_eqv(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 | bit_eqv1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_ior.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 Fbit_ior(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 | bit_ior1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_nand.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 Fbit_nand(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 | bit_nand1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_nor.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 Fbit_nor(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 | bit_nor1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_not.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 Fbit_not(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | bit_not1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_orc1.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 Fbit_orc1(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 | bit_orc11(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_orc2.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 Fbit_orc2(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 | bit_orc21(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbit_xor.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 Fbit_xor(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 | bit_xor1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fboth_case_p.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 Fboth_case_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_both_case_p(ARG(1)); 21 | COPY(ARG(1), ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbreak.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 Fbreak(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | LOAD_NIL(ARG(0)); 13 | nargs = 1; 14 | } 15 | Flist(ARG(1), nargs - 1); 16 | break1(ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fbutlast.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 Fbutlast(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_FIXNUM(ARG(1), 1, ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | butlast1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaaaar.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 Fcaaaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcar(ARG(0)); 12 | Fcar(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaaadr.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 Fcaaadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcar(ARG(0)); 12 | Fcar(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaaar.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 Fcaaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcar(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaadar.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 Fcaadar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcar(ARG(0)); 12 | Fcar(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaaddr.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 Fcaaddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcar(ARG(0)); 12 | Fcar(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaadr.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 Fcaadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcar(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaar.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 Fcaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcar(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcadaar.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 Fcadaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcadadr.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 Fcadadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcadar.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 Fcadar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcar(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaddar.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 Fcaddar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcadddr.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 Fcadddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcaddr.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 Fcaddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcar(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcadr.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(CFcadr, Fcadr, 1); 8 | 9 | void Fcadr(CL_FORM *base) 10 | { 11 | Fcdr(ARG(0)); 12 | Fcar(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcar.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(CFcar, Fcar, 1); 8 | 9 | void Fcar(CL_FORM *base) 10 | { 11 | if(CL_CONSP(ARG(0))) 12 | { 13 | COPY(GET_CAR(ARG(0)), ARG(0)); 14 | } 15 | else 16 | { 17 | if(CL_TRUEP(ARG(0))) 18 | { 19 | LOAD_SMSTR((CL_FORM *)&KClisp[264], ARG(1)); /* ~a is not a list */ 20 | COPY(ARG(0), ARG(2)); 21 | Ferror(ARG(1), 2); 22 | } 23 | else 24 | { 25 | } 26 | } 27 | } 28 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdaaar.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 Fcdaaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcar(ARG(0)); 12 | Fcdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdaadr.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 Fcdaadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcar(ARG(0)); 12 | Fcdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdaar.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 Fcdaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcdr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdadar.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 Fcdadar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcar(ARG(0)); 12 | Fcdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdaddr.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 Fcdaddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcar(ARG(0)); 12 | Fcdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdadr.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 Fcdadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcdr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdar.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 Fcdar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcdr(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcddaar.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 Fcddaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcdr(ARG(0)); 12 | Fcdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcddadr.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 Fcddadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcar(ARG(0)); 11 | Fcdr(ARG(0)); 12 | Fcdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcddar.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 Fcddar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcdr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdddar.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 Fcdddar(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcdr(ARG(0)); 12 | Fcdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcddddr.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 Fcddddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcdr(ARG(0)); 12 | Fcdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdddr.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 Fcdddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcdr(ARG(0)); 11 | Fcdr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcddr.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 Fcddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | Fcdr(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcdr.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 Fcdr(CL_FORM *base) 8 | { 9 | if(CL_CONSP(ARG(0))) 10 | { 11 | COPY(GET_CDR(ARG(0)), ARG(0)); 12 | } 13 | else 14 | { 15 | if(CL_TRUEP(ARG(0))) 16 | { 17 | LOAD_SMSTR((CL_FORM *)&KClisp[262], ARG(1)); /* ~a is not a list */ 18 | COPY(ARG(0), ARG(2)); 19 | Ferror(ARG(1), 2); 20 | } 21 | else 22 | { 23 | } 24 | } 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fceiling.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 Fceiling(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_FIXNUM(ARG(1), 1, ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | ceiling1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fchar.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(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Fstringp(ARG(2)); 11 | if(CL_TRUEP(ARG(2))) 12 | { 13 | } 14 | else 15 | { 16 | COPY(SYMVAL(Slisp, 58), ARG(2)); /* WRONG_TYPE */ 17 | COPY(ARG(0), ARG(3)); 18 | LOAD_SYMBOL(SYMBOL(Slisp, 44), ARG(4)); /* STRING */ 19 | Ferror(ARG(2), 3); 20 | } 21 | Frow_major_aref(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fchar_code.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_code(CL_FORM *base) 8 | { 9 | if(CL_CHARP(ARG(0))) 10 | { 11 | } 12 | else 13 | { 14 | COPY(SYMVAL(Slisp, 58), ARG(1)); /* WRONG_TYPE */ 15 | COPY(ARG(0), ARG(2)); 16 | LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(3)); /* CHARACTER */ 17 | Ferror(ARG(1), 3); 18 | } 19 | rt_char_code(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fchar_int.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_int(CL_FORM *base) 8 | { 9 | Fchar_code(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fchar_upcase.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_upcase(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_upcase(ARG(1)); 21 | COPY(ARG(1), ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcharacterp.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 "inline.h" 6 | 7 | void Fcharacterp(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_CHARP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fclass_of.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 Fclass_of(CL_FORM *base) 8 | { 9 | if(CL_INSTANCEP(ARG(0))) 10 | { 11 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), -1 + 1), ARG(0)); 12 | } 13 | else 14 | { 15 | LOAD_SMSTR((CL_FORM *)&KClisp[238], ARG(1)); /* ~S ist not a valid argument for CLASS-OF, ~ 16 | these have been restricted to instances of user-defined-classes. */ 17 | COPY(ARG(0), ARG(2)); 18 | Ferror(ARG(1), 2); 19 | } 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fclose.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 Fclose(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[1]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 104), /* ABORT */ 13 | }; 14 | keysort(ARG(1), nargs - 1, 1, keylist, supl_flags, FALSE); 15 | if(NOT(supl_flags[0])) 16 | { 17 | LOAD_NIL(ARG(1)); 18 | } 19 | close2(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcode_char.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 Fcode_char(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_FIXNUM(ARG(2), 0, ARG(2)); 11 | LOAD_FIXNUM(ARG(3), 256, ARG(3)); 12 | check_integer(ARG(1)); 13 | if(CL_TRUEP(ARG(1))) 14 | { 15 | rt_code_char(ARG(0)); 16 | } 17 | else 18 | { 19 | LOAD_NIL(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcons.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 "inline.h" 6 | 7 | void Fcons(CL_FORM *base) 8 | { 9 | ALLOC_CONS(ARG(4), ARG(0), ARG(1), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fconsp.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 "inline.h" 6 | 7 | void Fconsp(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_CONSP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcopy_seq.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_seq(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 0, ARG(1)); 10 | Fsubseq(ARG(0), 2); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcopy_symbol.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_symbol(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | copy_symbol1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fcopy_tree.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_tree(CL_FORM *base) 8 | { 9 | if(CL_ATOMP(ARG(0))) 10 | { 11 | } 12 | else 13 | { 14 | COPY(GET_CAR(ARG(0)), ARG(1)); 15 | Fcopy_tree(ARG(1)); 16 | COPY(GET_CDR(ARG(0)), ARG(2)); 17 | Fcopy_tree(ARG(2)); 18 | ALLOC_CONS(ARG(3), ARG(1), ARG(2), ARG(0)); 19 | } 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fdelete.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(CFdelete, Fdelete, -3); 8 | 9 | void Fdelete(CL_FORM *base, int nargs) 10 | { 11 | CL_FORM *rest_0; 12 | CL_FORM *local; 13 | rest_0 = ARG(2); 14 | local = ARG(nargs); 15 | LOAD_GLOBFUN(&CFremove, LOCAL(0)); 16 | COPY(ARG(0), LOCAL(1)); 17 | COPY(ARG(1), LOCAL(2)); 18 | REST_APPLY(LOCAL(0), 3, rest_0); 19 | COPY(LOCAL(0), ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fdigit_char.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 Fdigit_char(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_FIXNUM(ARG(1), 10, ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | digit_char1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fdigit_char_p.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 Fdigit_char_p(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_FIXNUM(ARG(1), 10, ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | digit_char_p1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Feighth.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 Feighth(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 7, ARG(1)); 10 | COPY(ARG(0), ARG(2)); 11 | Fnth(ARG(1)); 12 | COPY(ARG(1), ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fendp.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 Fendp(CL_FORM *base) 8 | { 9 | if(CL_TRUEP(ARG(0))) 10 | { 11 | if(CL_CONSP(ARG(0))) 12 | { 13 | LOAD_NIL(ARG(0)); 14 | } 15 | else 16 | { 17 | LOAD_SMSTR((CL_FORM *)&KClisp[228], ARG(1)); /* ~a is not a list */ 18 | COPY(ARG(0), ARG(2)); 19 | Ferror(ARG(1), 2); 20 | } 21 | } 22 | else 23 | { 24 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ 25 | } 26 | } 27 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Feq.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 "inline.h" 6 | 7 | void Feq(CL_FORM *base) 8 | { 9 | LOAD_BOOL(EQ(ARG(0), ARG(1)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Feql.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 "inline.h" 6 | 7 | void Feql(CL_FORM *base) 8 | { 9 | LOAD_BOOL(EQL(ARG(0), ARG(1)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fexport.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 Fexport(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 | export1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fexpt.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 Fexpt(CL_FORM *base) 8 | { 9 | COPY(ARG(1), ARG(2)); 10 | Fminusp(ARG(2)); 11 | if(CL_TRUEP(ARG(2))) 12 | { 13 | LOAD_FIXNUM(ARG(2), 1, ARG(2)); 14 | COPY(ARG(0), ARG(3)); 15 | COPY(ARG(1), ARG(4)); 16 | Fminus(ARG(4), 1); 17 | Fexpt(ARG(3)); 18 | Fdiv(ARG(2), 2); 19 | COPY(ARG(2), ARG(0)); 20 | } 21 | else 22 | { 23 | rt_expt(ARG(0)); 24 | } 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffifth.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 Ffifth(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 4, ARG(1)); 10 | COPY(ARG(0), ARG(2)); 11 | Fnth(ARG(1)); 12 | COPY(ARG(1), ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffile_length.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 Ffile_length(CL_FORM *base) 8 | { 9 | stream_length(ARG(0)); 10 | Ffuncall(ARG(0), 1); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffill.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 Ffill(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[2]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 231), /* START */ 13 | SYMBOL(Slisp, 232), /* END */ 14 | }; 15 | keysort(ARG(2), nargs - 2, 2, keylist, supl_flags, FALSE); 16 | if(NOT(supl_flags[0])) 17 | { 18 | LOAD_FIXNUM(ARG(4), 0, ARG(2)); 19 | } 20 | if(NOT(supl_flags[1])) 21 | { 22 | LOAD_NIL(ARG(3)); 23 | } 24 | fill1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffill_pointer.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 Ffill_pointer(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | Farray_has_fill_pointer_p(ARG(1)); 11 | if(CL_TRUEP(ARG(1))) 12 | { 13 | } 14 | else 15 | { 16 | COPY(SYMVAL(Slisp, 154), ARG(1)); /* NO_FILL_PTR */ 17 | COPY(ARG(0), ARG(2)); 18 | Ferror(ARG(1), 2); 19 | } 20 | complex_vector_fillptr(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffind_symbol.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 Ffind_symbol(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 | find_symbol1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffirst.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 Ffirst(CL_FORM *base) 8 | { 9 | Fcar(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffloat.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(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | float1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffloat_radix.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_radix(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, 324), ARG(0)); /* FLOAT-RADIX */ 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffloatp.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 "inline.h" 6 | 7 | void Ffloatp(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_FLOATP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffloor.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 Ffloor(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_FIXNUM(ARG(1), 1, ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | floor1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffourth.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 Ffourth(CL_FORM *base) 8 | { 9 | Fcadddr(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffresh_line.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 Ffresh_line(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | LOAD_NIL(ARG(0)); 13 | case 1: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | fresh_line1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ffunctionp.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 "inline.h" 6 | 7 | void Ffunctionp(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_FUNCTIONP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fgensym.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 Fgensym(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | LOAD_NIL(ARG(0)); 13 | case 1: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | gensym1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fgentemp.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 Fgentemp(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | LOAD_SMSTR((CL_FORM *)&KClisp[64], ARG(0)); /* T */ 13 | case 1: 14 | COPY(SYMVAL(Slisp, 353), ARG(1)); /* *PACKAGE* */ 15 | case 2: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | gentemp1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fget.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(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 | get1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fgetf.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 Fgetf(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 | getf1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fgethash.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 Fgethash(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 | gethash1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fhash_table_p.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_p(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(1)); /* HASH-TABLE */ 10 | rt_struct_typep(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fidentity.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(CFidentity, Fidentity, 1); 8 | 9 | void Fidentity(CL_FORM *base) 10 | { 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fimport.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 Fimport(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 | import1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fintegerp.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 "inline.h" 6 | 7 | void Fintegerp(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_FIXNUMP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fintern.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 Fintern(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 | intern1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fkeywordp.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 Fkeywordp(CL_FORM *base) 8 | { 9 | if(CL_SYMBOLP(ARG(0)) || CL_NILP(ARG(0))) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | Fsymbol_package(ARG(1)); 13 | LOAD_BOOL(EQ(ARG(1), SYMVAL(Slisp, 390)), ARG(0)); /* *KEYWORD-PACKAGE* */ 14 | } 15 | else 16 | { 17 | LOAD_NIL(ARG(0)); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flast.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 Flast(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_FIXNUM(ARG(1), 1, ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | last1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flistp.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 "inline.h" 6 | 7 | void Flistp(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_LISTP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flog.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 Flog(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | GEN_FLOAT(ARG(1), 2.7182817, ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | log1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogandc1.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 Flogandc1(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Flognot(ARG(2)); 11 | COPY(ARG(1), ARG(3)); 12 | Flogand(ARG(2), 2); 13 | COPY(ARG(2), ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogandc2.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 Flogandc2(CL_FORM *base) 8 | { 9 | Flognot(ARG(1)); 10 | Flogand(ARG(0), 2); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogbitp.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 Flogbitp(CL_FORM *base) 8 | { 9 | COPY(ARG(1), ARG(2)); 10 | LOAD_FIXNUM(ARG(3), 1, ARG(3)); 11 | COPY(ARG(0), ARG(4)); 12 | Fash(ARG(3)); 13 | Flogand(ARG(2), 2); 14 | Fzerop(ARG(2)); 15 | Fnot(ARG(2)); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flognand.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 Flognand(CL_FORM *base) 8 | { 9 | Flogand(ARG(0), 2); 10 | Flognot(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flognor.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 Flognor(CL_FORM *base) 8 | { 9 | Flogior(ARG(0), 2); 10 | Flognot(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flognot.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 Flognot(CL_FORM *base) 8 | { 9 | if(CL_FIXNUMP(ARG(0))) 10 | { 11 | COPY(ARG(0), ARG(1)); 12 | } 13 | else 14 | { 15 | COPY(ARG(0), ARG(1)); 16 | LOAD_SYMBOL(SYMBOL(Slisp, 23), ARG(2)); /* FIXNUM */ 17 | rt_the_type_error(ARG(1)); 18 | } 19 | LOAD_FIXNUM(ARG(2), ~ GET_FIXNUM(ARG(1)), ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogorc1.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 Flogorc1(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Flognot(ARG(2)); 11 | COPY(ARG(1), ARG(3)); 12 | Flogior(ARG(2), 2); 13 | COPY(ARG(2), ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogorc2.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 Flogorc2(CL_FORM *base) 8 | { 9 | Flognot(ARG(1)); 10 | Flogior(ARG(0), 2); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flogtest.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 Flogtest(CL_FORM *base) 8 | { 9 | Flogand(ARG(0), 2); 10 | Fzerop(ARG(0)); 11 | Fnot(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Flower_case_p.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(CFlower_case_p, Flower_case_p, 1); 8 | 9 | void Flower_case_p(CL_FORM *base) 10 | { 11 | if(CL_CHARP(ARG(0))) 12 | { 13 | COPY(ARG(0), ARG(1)); 14 | } 15 | else 16 | { 17 | COPY(SYMVAL(Slisp, 58), ARG(1)); /* WRONG_TYPE */ 18 | COPY(ARG(0), ARG(2)); 19 | LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(3)); /* CHARACTER */ 20 | Ferror(ARG(1), 3); 21 | } 22 | rt_lower_case_p(ARG(1)); 23 | COPY(ARG(1), ARG(0)); 24 | } 25 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fmake_list.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_list(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[1]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 155), /* INITIAL-ELEMENT */ 13 | }; 14 | keysort(ARG(1), nargs - 1, 1, keylist, supl_flags, FALSE); 15 | if(NOT(supl_flags[0])) 16 | { 17 | LOAD_NIL(ARG(1)); 18 | } 19 | make_list1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fmake_package.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_package(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[2]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 383), /* NICKNAMES */ 13 | SYMBOL(Slisp, 391), /* USE */ 14 | }; 15 | keysort(ARG(1), nargs - 1, 2, keylist, supl_flags, FALSE); 16 | if(NOT(supl_flags[0])) 17 | { 18 | LOAD_NIL(ARG(1)); 19 | } 20 | if(NOT(supl_flags[1])) 21 | { 22 | LOAD_CONS((CL_FORM *)&KClisp[248], ARG(2)); 23 | } 24 | make_package1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fmake_string.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(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[1]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 155), /* INITIAL-ELEMENT */ 13 | }; 14 | keysort(ARG(1), nargs - 1, 1, keylist, supl_flags, FALSE); 15 | if(NOT(supl_flags[0])) 16 | { 17 | LOAD_CHAR(ARG(2), ' ', ARG(1)); 18 | } 19 | make_string1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fmake_symbol.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_symbol(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | string_to_simple_string(ARG(1)); 11 | rt_make_symbol(ARG(1)); 12 | LOAD_NIL(ARG(2)); 13 | COPY(ARG(2), SYM_PLIST(ARG(1))); 14 | LOAD_NIL(ARG(2)); 15 | COPY(ARG(2), SYM_PACKAGE(ARG(1))); 16 | COPY(ARG(1), ARG(0)); 17 | Fmakunbound(ARG(0)); 18 | } 19 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fmember_if.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(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_if1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fmod.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 Fmod(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | COPY(ARG(1), ARG(3)); 11 | Ffloor(ARG(2), 2); 12 | COPY(&mv_buf[0], ARG(3)); 13 | mv_count = 1; 14 | { 15 | COPY(ARG(3), ARG(0)); 16 | } 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnbutlast.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 Fnbutlast(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_FIXNUM(ARG(1), 1, ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | nbutlast1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fninth.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 Fninth(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 8, ARG(1)); 10 | COPY(ARG(0), ARG(2)); 11 | Fnth(ARG(1)); 12 | COPY(ARG(1), ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnot.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 Fnot(CL_FORM *base) 8 | { 9 | if(CL_TRUEP(ARG(0))) 10 | { 11 | LOAD_NIL(ARG(0)); 12 | } 13 | else 14 | { 15 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ 16 | } 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnotany.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 Fnotany(CL_FORM *base, int nargs) 8 | { 9 | CL_FORM *rest_0; 10 | CL_FORM *local; 11 | rest_0 = ARG(2); 12 | local = ARG(nargs); 13 | LOAD_GLOBFUN(&CFsome, LOCAL(0)); 14 | COPY(ARG(0), LOCAL(1)); 15 | COPY(ARG(1), LOCAL(2)); 16 | REST_APPLY(LOCAL(0), 3, rest_0); 17 | mv_count = 1; 18 | Fnot(LOCAL(0)); 19 | COPY(LOCAL(0), ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnotevery.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 Fnotevery(CL_FORM *base, int nargs) 8 | { 9 | CL_FORM *rest_0; 10 | CL_FORM *local; 11 | rest_0 = ARG(2); 12 | local = ARG(nargs); 13 | LOAD_GLOBFUN(&CFevery, LOCAL(0)); 14 | COPY(ARG(0), LOCAL(1)); 15 | COPY(ARG(1), LOCAL(2)); 16 | REST_APPLY(LOCAL(0), 3, rest_0); 17 | mv_count = 1; 18 | Fnot(LOCAL(0)); 19 | COPY(LOCAL(0), ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnreconc.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 Fnreconc(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Freverse(ARG(2)); 11 | COPY(ARG(1), ARG(3)); 12 | Fnconc(ARG(2), 2); 13 | COPY(ARG(2), ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnsubst_if.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(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_if1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnth.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 Fnth(CL_FORM *base) 8 | { 9 | Fnthcdr(ARG(0)); 10 | Fcar(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnull.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 Fnull(CL_FORM *base) 8 | { 9 | if(CL_TRUEP(ARG(0))) 10 | { 11 | LOAD_NIL(ARG(0)); 12 | } 13 | else 14 | { 15 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ 16 | } 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fnumberp.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 "inline.h" 6 | 7 | void Fnumberp(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_NUMBERP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fpackage_name.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_name(CL_FORM *base) 8 | { 9 | Ppackage_name(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fpackagep.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 Fpackagep(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(1)); /* PACKAGE */ 10 | rt_struct_typep(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fpairlis.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 Fpairlis(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 | pairlis1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fpathnamep.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 Fpathnamep(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(1)); /* PATHNAME */ 10 | rt_struct_typep(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fpeek_char.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 Fpeek_char(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | LOAD_NIL(ARG(0)); 13 | case 1: 14 | LOAD_NIL(ARG(1)); 15 | case 2: 16 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(2)); /* T */ 17 | case 3: 18 | LOAD_NIL(ARG(3)); 19 | case 4: 20 | LOAD_NIL(ARG(4)); 21 | case 5: 22 | break; 23 | default: 24 | Labort(TOO_MANY_ARGS); 25 | } 26 | peek_char1(ARG(0)); 27 | } 28 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fpprint.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 Fpprint(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | pprint1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fprin1.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(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | prin11(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fprinc.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(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | princ1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fprint.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 Fprint(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | print1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Frassoc_if.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(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_if1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fread.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(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | COPY(SYMVAL(Slisp, 60), ARG(0)); /* *STANDARD-INPUT* */ 13 | case 1: 14 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(1)); /* T */ 15 | case 2: 16 | LOAD_NIL(ARG(2)); 17 | case 3: 18 | LOAD_NIL(ARG(3)); 19 | case 4: 20 | break; 21 | default: 22 | Labort(TOO_MANY_ARGS); 23 | } 24 | read1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fread_char.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_char(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | LOAD_NIL(ARG(0)); 13 | case 1: 14 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(1)); /* T */ 15 | case 2: 16 | LOAD_NIL(ARG(2)); 17 | case 3: 18 | LOAD_NIL(ARG(3)); 19 | case 4: 20 | break; 21 | default: 22 | Labort(TOO_MANY_ARGS); 23 | } 24 | read_char1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fread_line.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_line(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | LOAD_NIL(ARG(0)); 13 | case 1: 14 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(1)); /* T */ 15 | case 2: 16 | LOAD_NIL(ARG(2)); 17 | case 3: 18 | LOAD_NIL(ARG(3)); 19 | case 4: 20 | break; 21 | default: 22 | Labort(TOO_MANY_ARGS); 23 | } 24 | read_line1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Freadtablep.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 Freadtablep(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 420), ARG(1)); /* READTABLE */ 10 | rt_struct_typep(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Frem.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 Frem(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | COPY(ARG(1), ARG(3)); 11 | Ftruncate(ARG(2), 2); 12 | COPY(&mv_buf[0], ARG(3)); 13 | mv_count = 1; 14 | { 15 | COPY(ARG(3), ARG(0)); 16 | } 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Frest.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 Frest(CL_FORM *base) 8 | { 9 | Fcdr(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fround.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 Fround(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_FIXNUM(ARG(1), 1, ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | round1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Frplaca.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 Frplaca(CL_FORM *base) 8 | { 9 | if(CL_CONSP(ARG(0))) 10 | { 11 | COPY(ARG(1), GET_CAR(ARG(0))); 12 | } 13 | else 14 | { 15 | LOAD_SMSTR((CL_FORM *)&KClisp[260], ARG(2)); /* ~a is not a cons */ 16 | COPY(ARG(0), ARG(3)); 17 | Ferror(ARG(2), 2); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Frplacd.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 Frplacd(CL_FORM *base) 8 | { 9 | if(CL_CONSP(ARG(0))) 10 | { 11 | COPY(ARG(1), GET_CDR(ARG(0))); 12 | } 13 | else 14 | { 15 | LOAD_SMSTR((CL_FORM *)&KClisp[258], ARG(2)); /* ~a is not a cons */ 16 | COPY(ARG(0), ARG(3)); 17 | Ferror(ARG(2), 2); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fschar.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 Fschar(CL_FORM *base) 8 | { 9 | if(CL_SMSTRP(ARG(0))) 10 | { 11 | } 12 | else 13 | { 14 | COPY(SYMVAL(Slisp, 58), ARG(2)); /* WRONG_TYPE */ 15 | COPY(ARG(0), ARG(3)); 16 | LOAD_SYMBOL(SYMBOL(Slisp, 40), ARG(4)); /* SIMPLE-STRING */ 17 | Ferror(ARG(2), 3); 18 | } 19 | pvref(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsecond.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 Fsecond(CL_FORM *base) 8 | { 9 | Fcadr(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_aref.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_aref(CL_FORM *base, int nargs) 8 | { 9 | CL_FORM *rest_0; 10 | CL_FORM *local; 11 | rest_0 = ARG(2); 12 | local = ARG(nargs); 13 | COPY(ARG(0), LOCAL(0)); 14 | COPY(ARG(1), LOCAL(1)); 15 | LOAD_GLOBFUN(&CFarray_row_major_index, LOCAL(2)); 16 | COPY(ARG(1), LOCAL(3)); 17 | REST_APPLY(LOCAL(2), 2, rest_0); 18 | mv_count = 1; 19 | Fset_row_major_aref(LOCAL(0)); 20 | COPY(LOCAL(0), ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caaaar.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_caaaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fcar(ARG(1)); 12 | Fset_car(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caaadr.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_caaadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fcar(ARG(1)); 12 | Fset_car(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caaar.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_caaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fset_car(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caadar.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_caadar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fcar(ARG(1)); 12 | Fset_car(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caaddr.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_caaddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fcar(ARG(1)); 12 | Fset_car(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caadr.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_caadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fset_car(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caar.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_caar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fset_car(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cadaar.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_cadaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fcdr(ARG(1)); 12 | Fset_car(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cadadr.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_cadadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fcdr(ARG(1)); 12 | Fset_car(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cadar.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_cadar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fset_car(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caddar.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_caddar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fcdr(ARG(1)); 12 | Fset_car(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cadddr.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_cadddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fcdr(ARG(1)); 12 | Fset_car(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_caddr.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_caddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fset_car(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cadr.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_cadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fset_car(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_car.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_car(CL_FORM *base) 8 | { 9 | if(CL_CONSP(ARG(1))) 10 | { 11 | COPY(ARG(0), GET_CAR(ARG(1))); 12 | } 13 | else 14 | { 15 | LOAD_SMSTR((CL_FORM *)&KClisp[252], ARG(0)); /* ~a is not a cons */ 16 | Ferror(ARG(0), 2); 17 | } 18 | } 19 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdaaar.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_cdaaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fcar(ARG(1)); 12 | Fset_cdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdaadr.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_cdaadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fcar(ARG(1)); 12 | Fset_cdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdaar.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_cdaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fset_cdr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdadar.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_cdadar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fcar(ARG(1)); 12 | Fset_cdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdaddr.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_cdaddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fcar(ARG(1)); 12 | Fset_cdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdadr.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_cdadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fset_cdr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdar.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_cdar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fset_cdr(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cddaar.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_cddaar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fcdr(ARG(1)); 12 | Fset_cdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cddadr.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_cddadr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcar(ARG(1)); 11 | Fcdr(ARG(1)); 12 | Fset_cdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cddar.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_cddar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fset_cdr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdddar.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_cdddar(CL_FORM *base) 8 | { 9 | Fcar(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fcdr(ARG(1)); 12 | Fset_cdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cddddr.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_cddddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fcdr(ARG(1)); 12 | Fset_cdr(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdddr.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_cdddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fcdr(ARG(1)); 11 | Fset_cdr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cddr.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_cddr(CL_FORM *base) 8 | { 9 | Fcdr(ARG(1)); 10 | Fset_cdr(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_cdr.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_cdr(CL_FORM *base) 8 | { 9 | if(CL_CONSP(ARG(1))) 10 | { 11 | COPY(ARG(0), GET_CDR(ARG(1))); 12 | } 13 | else 14 | { 15 | LOAD_SMSTR((CL_FORM *)&KClisp[254], ARG(0)); /* ~a is not a cons */ 16 | Ferror(ARG(0), 2); 17 | } 18 | } 19 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_eighth.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_eighth(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | LOAD_FIXNUM(ARG(3), 7, ARG(3)); 11 | COPY(ARG(1), ARG(4)); 12 | Fset_nth(ARG(2)); 13 | COPY(ARG(2), ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_fifth.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_fifth(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | LOAD_FIXNUM(ARG(3), 4, ARG(3)); 11 | COPY(ARG(1), ARG(4)); 12 | Fset_nth(ARG(2)); 13 | COPY(ARG(2), ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_first.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_first(CL_FORM *base) 8 | { 9 | Fset_car(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_fourth.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_fourth(CL_FORM *base) 8 | { 9 | Fset_cadddr(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_get.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_get(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 3: 12 | LOAD_NIL(ARG(3)); 13 | case 4: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | set_get1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_gethash.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_gethash(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 3: 12 | LOAD_NIL(ARG(3)); 13 | case 4: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | set_gethash1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_ninth.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_ninth(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | LOAD_FIXNUM(ARG(3), 8, ARG(3)); 11 | COPY(ARG(1), ARG(4)); 12 | Fset_nth(ARG(2)); 13 | COPY(ARG(2), ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_nth.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_nth(CL_FORM *base) 8 | { 9 | Fnthcdr(ARG(1)); 10 | Fset_car(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_rest.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_rest(CL_FORM *base) 8 | { 9 | Fset_cdr(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_second.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_second(CL_FORM *base) 8 | { 9 | Fset_cadr(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_seventh.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_seventh(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | LOAD_FIXNUM(ARG(3), 6, ARG(3)); 11 | COPY(ARG(1), ARG(4)); 12 | Fset_nth(ARG(2)); 13 | COPY(ARG(2), ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_sixth.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_sixth(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | LOAD_FIXNUM(ARG(3), 5, ARG(3)); 11 | COPY(ARG(1), ARG(4)); 12 | Fset_nth(ARG(2)); 13 | COPY(ARG(2), ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_tenth.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_tenth(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | LOAD_FIXNUM(ARG(3), 9, ARG(3)); 11 | COPY(ARG(1), ARG(4)); 12 | Fset_nth(ARG(2)); 13 | COPY(ARG(2), ARG(0)); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fset_third.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_third(CL_FORM *base) 8 | { 9 | Fset_caddr(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fseventh.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 Fseventh(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 6, ARG(1)); 10 | COPY(ARG(0), ARG(2)); 11 | Fnth(ARG(1)); 12 | COPY(ARG(1), ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fshadow.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 Fshadow(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 | shadow1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsixth.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 Fsixth(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 5, ARG(1)); 10 | COPY(ARG(0), ARG(2)); 11 | Fnth(ARG(1)); 12 | COPY(ARG(1), ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fslot_missing.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 Fslot_missing(CL_FORM *base) 8 | { 9 | LOAD_SMSTR((CL_FORM *)&KClisp[234], ARG(4)); /* ~S: The slot ~s is missing from the object ~s of class ~s. */ 10 | COPY(ARG(3), ARG(5)); 11 | COPY(ARG(2), ARG(6)); 12 | COPY(ARG(1), ARG(7)); 13 | COPY(ARG(0), ARG(8)); 14 | Ferror(ARG(4), 5); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fslot_unbound.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 Fslot_unbound(CL_FORM *base) 8 | { 9 | LOAD_SMSTR((CL_FORM *)&KClisp[236], ARG(3)); /* The slot ~s is unbound in the object ~s of class ~s. */ 10 | COPY(ARG(2), ARG(4)); 11 | COPY(ARG(1), ARG(5)); 12 | COPY(ARG(0), ARG(6)); 13 | Ferror(ARG(3), 4); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsort.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 Fsort(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_GLOBFUN(&CFidentity, ARG(2)); 18 | } 19 | sort1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fstreamp.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 Fstreamp(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(1)); /* STREAM */ 10 | rt_struct_typep(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsubseq.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 Fsubseq(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 | subseq1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsubst_if.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 Fsubst_if(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 | subst_if1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsubst_if_not.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 Fsubst_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 | subst_if_not1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsubtypep.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 Fsubtypep(CL_FORM *base) 8 | { 9 | if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 48)) /* T */ 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ 12 | } 13 | else 14 | { 15 | LOAD_SMSTR((CL_FORM *)&KClisp[84], ARG(2)); /* (SUBTYPEP ~S ~S) is not implemented */ 16 | COPY(ARG(0), ARG(3)); 17 | COPY(ARG(1), ARG(4)); 18 | Ferror(ARG(2), 3); 19 | } 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsxhash.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 Fsxhash(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 0, ARG(1)); 10 | internal_sxhash(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsymbol_name.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 Fsymbol_name(CL_FORM *base) 8 | { 9 | if(CL_SYMBOLP(ARG(0))) 10 | { 11 | LOAD_SMSTR(SYM_NAME(ARG(0)), ARG(0)); 12 | } 13 | else 14 | { 15 | if(CL_TRUEP(ARG(0))) 16 | { 17 | COPY(SYMVAL(Slisp, 676), ARG(1)); /* SYM_EXPECTED */ 18 | COPY(ARG(0), ARG(2)); 19 | Ferror(ARG(1), 2); 20 | } 21 | else 22 | { 23 | LOAD_SMSTR((CL_FORM *)&KClisp[266], ARG(0)); /* NIL */ 24 | } 25 | } 26 | } 27 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsymbol_plist.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 Fsymbol_plist(CL_FORM *base) 8 | { 9 | if(CL_SYMBOLP(ARG(0))) 10 | { 11 | COPY(SYM_PLIST(ARG(0)), ARG(0)); 12 | } 13 | else 14 | { 15 | if(CL_TRUEP(ARG(0))) 16 | { 17 | COPY(SYMVAL(Slisp, 676), ARG(1)); /* SYM_EXPECTED */ 18 | COPY(ARG(0), ARG(2)); 19 | Ferror(ARG(1), 2); 20 | } 21 | else 22 | { 23 | COPY(SYMVAL(Slisp, 678), ARG(0)); /* *NIL-PLIST* */ 24 | } 25 | } 26 | } 27 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsymbol_value.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 Fsymbol_value(CL_FORM *base) 8 | { 9 | if(CL_SYMBOLP(ARG(0))) 10 | { 11 | COPY(SYM_VALUE(ARG(0)), ARG(0)); 12 | } 13 | else 14 | { 15 | if(CL_TRUEP(ARG(0))) 16 | { 17 | COPY(SYMVAL(Slisp, 676), ARG(1)); /* SYM_EXPECTED */ 18 | COPY(ARG(0), ARG(2)); 19 | Ferror(ARG(1), 2); 20 | } 21 | else 22 | { 23 | LOAD_NIL(ARG(0)); 24 | } 25 | } 26 | } 27 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fsymbolp.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 "inline.h" 6 | 7 | void Fsymbolp(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_SYMBOLP(ARG(0)) || CL_NILP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ftailp.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 Ftailp(CL_FORM *base) 8 | { 9 | M1_1:; 10 | if(EQL(ARG(0), ARG(1))) 11 | { 12 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(0)); /* T */ 13 | } 14 | else 15 | { 16 | if(CL_ATOMP(ARG(1))) 17 | { 18 | LOAD_NIL(ARG(0)); 19 | } 20 | else 21 | { 22 | COPY(GET_CDR(ARG(1)), ARG(1)); 23 | goto M1_1; 24 | } 25 | } 26 | goto RETURN1; 27 | RETURN1:; 28 | } 29 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ftenth.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 Ftenth(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 9, ARG(1)); 10 | COPY(ARG(0), ARG(2)); 11 | Fnth(ARG(1)); 12 | COPY(ARG(1), ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fterpri.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 Fterpri(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | LOAD_NIL(ARG(0)); 13 | case 1: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | terpri1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fthird.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(CFthird, Fthird, 1); 8 | 9 | void Fthird(CL_FORM *base) 10 | { 11 | Fcaddr(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ftree_equal.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 Ftree_equal(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[2]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 282), /* TEST */ 13 | SYMBOL(Slisp, 550), /* TEST-NOT */ 14 | }; 15 | keysort(ARG(2), nargs - 2, 2, keylist, supl_flags, FALSE); 16 | if(NOT(supl_flags[0])) 17 | { 18 | LOAD_NIL(ARG(2)); 19 | } 20 | if(NOT(supl_flags[1])) 21 | { 22 | LOAD_NIL(ARG(3)); 23 | } 24 | tree_equal1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ftruename.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 Ftruename(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | Fprobe_file(ARG(1)); 11 | if(CL_TRUEP(ARG(1))) 12 | { 13 | } 14 | else 15 | { 16 | LOAD_SMSTR((CL_FORM *)&KClisp[242], ARG(2)); /* The file ~S does not exist. */ 17 | COPY(ARG(0), ARG(3)); 18 | Fnamestring(ARG(3)); 19 | mv_count = 1; 20 | Ferror(ARG(2), 2); 21 | } 22 | COPY(ARG(1), ARG(0)); 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ftruncate.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 Ftruncate(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_FIXNUM(ARG(1), 1, ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | truncate1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Funexport.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 Funexport(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 | unexport1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Funintern.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 Funintern(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 | unintern1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Funread_char.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 Funread_char(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | unread_char1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fupper_case_p.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(CFupper_case_p, Fupper_case_p, 1); 8 | 9 | void Fupper_case_p(CL_FORM *base) 10 | { 11 | if(CL_CHARP(ARG(0))) 12 | { 13 | COPY(ARG(0), ARG(1)); 14 | } 15 | else 16 | { 17 | COPY(SYMVAL(Slisp, 58), ARG(1)); /* WRONG_TYPE */ 18 | COPY(ARG(0), ARG(2)); 19 | LOAD_SYMBOL(SYMBOL(Slisp, 18), ARG(3)); /* CHARACTER */ 20 | Ferror(ARG(1), 3); 21 | } 22 | rt_upper_case_p(ARG(1)); 23 | COPY(ARG(1), ARG(0)); 24 | } 25 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fuse_package.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 Fuse_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 | use_package1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fvectorp.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 Fvectorp(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_SMVECP(ARG(0)), ARG(1)); 10 | if(CL_TRUEP(ARG(1))) 11 | { 12 | COPY(ARG(1), ARG(0)); 13 | } 14 | else 15 | { 16 | complex_vector_p(ARG(0)); 17 | } 18 | } 19 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fwrite_char.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 Fwrite_char(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | write_char1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fwrite_line.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 Fwrite_line(CL_FORM *base, int nargs) 8 | { 9 | CL_FORM *rest_0; 10 | CL_FORM *local; 11 | rest_0 = ARG(0); 12 | local = ARG(nargs); 13 | { 14 | LOAD_GLOBFUN(&CFwrite_string, LOCAL(0)); 15 | REST_APPLY(LOCAL(0), 1, rest_0); 16 | mv_count = 1; 17 | Fterpri(LOCAL(1), 0); 18 | COPY(LOCAL(0), ARG(0)); 19 | } 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fy_or_n_p.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 Fy_or_n_p(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | LOAD_NIL(ARG(0)); 13 | nargs = 1; 14 | } 15 | Flist(ARG(1), nargs - 1); 16 | y_or_n_p1(ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Fyes_or_no_p.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 Fyes_or_no_p(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | LOAD_NIL(ARG(0)); 13 | nargs = 1; 14 | } 15 | Flist(ARG(1), nargs - 1); 16 | yes_or_no_p1(ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/Ppackage_name.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 Ppackage_name(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(2)); /* PACKAGE */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 0 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(3)); /* PACKAGE */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/binary_reader.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(Cbinary_reader, binary_reader, 3); 8 | 9 | void binary_reader(CL_FORM *base) 10 | { 11 | if(CL_TRUEP(ARG(2))) 12 | { 13 | LOAD_SMSTR((CL_FORM *)&KClisp[230], ARG(3)); /* extra argument for #~S */ 14 | COPY(ARG(1), ARG(4)); 15 | Ferror(ARG(3), 2); 16 | } 17 | LOAD_FIXNUM(ARG(2), 2, ARG(2)); 18 | radix_reader(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_and1.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 bit_and1(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(3), 0, ARG(3)); 10 | COPY(ARG(0), ARG(4)); 11 | COPY(ARG(1), ARG(5)); 12 | COPY(ARG(2), ARG(6)); 13 | bit_op(ARG(3)); 14 | COPY(ARG(3), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_andc11.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 bit_andc11(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(3), 6, ARG(3)); 10 | COPY(ARG(0), ARG(4)); 11 | COPY(ARG(1), ARG(5)); 12 | COPY(ARG(2), ARG(6)); 13 | bit_op(ARG(3)); 14 | COPY(ARG(3), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_andc21.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 bit_andc21(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(3), 7, ARG(3)); 10 | COPY(ARG(0), ARG(4)); 11 | COPY(ARG(1), ARG(5)); 12 | COPY(ARG(2), ARG(6)); 13 | bit_op(ARG(3)); 14 | COPY(ARG(3), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_eqv1.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 bit_eqv1(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(3), 3, ARG(3)); 10 | COPY(ARG(0), ARG(4)); 11 | COPY(ARG(1), ARG(5)); 12 | COPY(ARG(2), ARG(6)); 13 | bit_op(ARG(3)); 14 | COPY(ARG(3), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_ior1.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 bit_ior1(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(3), 1, ARG(3)); 10 | COPY(ARG(0), ARG(4)); 11 | COPY(ARG(1), ARG(5)); 12 | COPY(ARG(2), ARG(6)); 13 | bit_op(ARG(3)); 14 | COPY(ARG(3), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_nand1.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 bit_nand1(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(3), 4, ARG(3)); 10 | COPY(ARG(0), ARG(4)); 11 | COPY(ARG(1), ARG(5)); 12 | COPY(ARG(2), ARG(6)); 13 | bit_op(ARG(3)); 14 | COPY(ARG(3), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_nor1.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 bit_nor1(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(3), 5, ARG(3)); 10 | COPY(ARG(0), ARG(4)); 11 | COPY(ARG(1), ARG(5)); 12 | COPY(ARG(2), ARG(6)); 13 | bit_op(ARG(3)); 14 | COPY(ARG(3), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_not1.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 bit_not1(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(2), 10, ARG(2)); 10 | COPY(ARG(0), ARG(3)); 11 | COPY(ARG(0), ARG(4)); 12 | COPY(ARG(1), ARG(5)); 13 | bit_op(ARG(2)); 14 | COPY(ARG(2), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_orc11.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 bit_orc11(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(3), 8, ARG(3)); 10 | COPY(ARG(0), ARG(4)); 11 | COPY(ARG(1), ARG(5)); 12 | COPY(ARG(2), ARG(6)); 13 | bit_op(ARG(3)); 14 | COPY(ARG(3), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_orc21.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 bit_orc21(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(3), 9, ARG(3)); 10 | COPY(ARG(0), ARG(4)); 11 | COPY(ARG(1), ARG(5)); 12 | COPY(ARG(2), ARG(6)); 13 | bit_op(ARG(3)); 14 | COPY(ARG(3), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/bit_xor1.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 bit_xor1(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(3), 2, ARG(3)); 10 | COPY(ARG(0), ARG(4)); 11 | COPY(ARG(1), ARG(5)); 12 | COPY(ARG(2), ARG(6)); 13 | bit_op(ARG(3)); 14 | COPY(ARG(3), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/butlast1.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 butlast1(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Flength(ARG(2)); 11 | COPY(ARG(1), ARG(3)); 12 | Fminus(ARG(2), 2); 13 | COPY(ARG(2), ARG(3)); 14 | LOAD_FIXNUM(ARG(4), 0, ARG(4)); 15 | Fle(ARG(3), 2); 16 | if(CL_TRUEP(ARG(3))) 17 | { 18 | LOAD_NIL(ARG(0)); 19 | } 20 | else 21 | { 22 | LOAD_FIXNUM(ARG(1), 0, ARG(1)); 23 | subseq1(ARG(0)); 24 | } 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/c_getenv.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 c_getenv(CL_FORM *base) 8 | { 9 | string_to_simple_string(ARG(0)); 10 | c_getenv_internal(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/c_system.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 c_system(CL_FORM *base) 8 | { 9 | string_to_simple_string(ARG(0)); 10 | c_system_internal(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/ceiling1.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 ceiling1(CL_FORM *base) 8 | { 9 | rt_ceiling(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/check_integer.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 check_integer(CL_FORM *base) 8 | { 9 | if(CL_FIXNUMP(ARG(0))) 10 | { 11 | COPY(ARG(1), ARG(3)); 12 | COPY(ARG(0), ARG(4)); 13 | COPY(ARG(2), ARG(5)); 14 | Fle(ARG(3), 3); 15 | COPY(ARG(3), ARG(0)); 16 | } 17 | else 18 | { 19 | LOAD_NIL(ARG(0)); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/close_err.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(Cclose_err, close_err, -1); 8 | 9 | CL_INIT Kclose_err[] = 10 | { 11 | MAKE_STRING(16, "stream is closed"), /* 0 */ 12 | }; 13 | 14 | void close_err(CL_FORM *base, int nargs) 15 | { 16 | LOAD_SMSTR((CL_FORM *)&Kclose_err[0], ARG(0)); /* stream is closed */ 17 | Ferror(ARG(0), 1); 18 | } 19 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/error_in.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 error_in(CL_FORM *base, int nargs) 8 | { 9 | Flist(ARG(2), nargs - 2); 10 | LOAD_SMSTR((CL_FORM *)&KClisp[240], ARG(3)); /* ~&Error in ~A: ~?~% */ 11 | COPY(ARG(0), ARG(4)); 12 | COPY(ARG(1), ARG(5)); 13 | COPY(ARG(2), ARG(6)); 14 | Ferror(ARG(3), 4); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/float1.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 float1(CL_FORM *base) 8 | { 9 | if(CL_TRUEP(ARG(1))) 10 | { 11 | if(CL_FLOATP(ARG(1))) 12 | { 13 | goto ELSE1; 14 | } 15 | else 16 | { 17 | goto THEN2; 18 | } 19 | } 20 | else 21 | { 22 | goto ELSE1; 23 | } 24 | { 25 | THEN2:; 26 | LOAD_SMSTR((CL_FORM *)&KClisp[0], ARG(2)); /* The value of OTHER, ~S, should be a FLOAT */ 27 | COPY(ARG(1), ARG(3)); 28 | Ferror(ARG(2), 2); 29 | } 30 | ELSE1:; 31 | rt_float(ARG(0)); 32 | } 33 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/floor1.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 floor1(CL_FORM *base) 8 | { 9 | rt_floor(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/format2.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 format2(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 3: 12 | LOAD_FIXNUM(ARG(3), 0, ARG(3)); 13 | case 4: 14 | LOAD_NIL(ARG(4)); 15 | case 5: 16 | LOAD_NIL(ARG(5)); 17 | case 6: 18 | break; 19 | default: 20 | Labort(TOO_MANY_ARGS); 21 | } 22 | format21(ARG(0)); 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/get1.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 get1(CL_FORM *base) 8 | { 9 | if(CL_SYMBOLP(ARG(0))) 10 | { 11 | COPY(SYM_PLIST(ARG(0)), ARG(3)); 12 | } 13 | else 14 | { 15 | if(CL_TRUEP(ARG(0))) 16 | { 17 | COPY(SYMVAL(Slisp, 676), ARG(3)); /* SYM_EXPECTED */ 18 | COPY(ARG(0), ARG(4)); 19 | Ferror(ARG(3), 2); 20 | } 21 | else 22 | { 23 | COPY(SYMVAL(Slisp, 678), ARG(3)); /* *NIL-PLIST* */ 24 | } 25 | } 26 | COPY(ARG(3), ARG(0)); 27 | getf1(ARG(0)); 28 | } 29 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/hex_reader.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(Chex_reader, hex_reader, 3); 8 | 9 | void hex_reader(CL_FORM *base) 10 | { 11 | if(CL_TRUEP(ARG(2))) 12 | { 13 | LOAD_SMSTR((CL_FORM *)&KClisp[230], ARG(3)); /* extra argument for #~S */ 14 | COPY(ARG(1), ARG(4)); 15 | Ferror(ARG(3), 2); 16 | } 17 | LOAD_FIXNUM(ARG(2), 16, ARG(2)); 18 | radix_reader(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline.h: -------------------------------------------------------------------------------- 1 | 2 | void Fatom(CL_FORM *base); 3 | void Fcharacterp(CL_FORM *base); 4 | void Fcons(CL_FORM *base); 5 | void Fconsp(CL_FORM *base); 6 | void Feq(CL_FORM *base); 7 | void Feql(CL_FORM *base); 8 | void Ffloatp(CL_FORM *base); 9 | void Ffunctionp(CL_FORM *base); 10 | void Fintegerp(CL_FORM *base); 11 | void rt_fixnump(CL_FORM *base); 12 | void Flistp(CL_FORM *base); 13 | void Fnumberp(CL_FORM *base); 14 | void Fsimple_string_p(CL_FORM *base); 15 | void Fsimple_vector_p(CL_FORM *base); 16 | void Fsimple_bit_vector_p(CL_FORM *base); 17 | void Fsymbolp(CL_FORM *base); 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline13.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 "inline.h" 6 | 7 | void Fsimple_string_p(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_SMSTRP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline14.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 "inline.h" 6 | 7 | void Fsimple_vector_p(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_SMVEC_T_P(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/inline15.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 "inline.h" 6 | 7 | void Fsimple_bit_vector_p(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_SMVEC_BIT_P(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp166.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 stream_unreadc(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(2)); /* STREAM */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 3 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(3)); /* STREAM */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /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/lisp184.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_output_stream_string(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | stream_type(ARG(1)); 11 | if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 102)) /* STRING-OUTPUT */ 12 | { 13 | } 14 | else 15 | { 16 | LOAD_SMSTR((CL_FORM *)&KClisp[268], ARG(1)); /* string-output-stream expected */ 17 | Ferror(ARG(1), 1); 18 | } 19 | stream_extra(ARG(0)); 20 | Ffuncall(ARG(0), 1); 21 | } 22 | -------------------------------------------------------------------------------- /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/lisp195.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 complex_base_array_p(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 145), ARG(1)); /* COMPLEX-BASE-ARRAY */ 10 | rt_struct_typep(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp203.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 complex_vector_p(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 150), ARG(1)); /* COMPLEX-VECTOR */ 10 | rt_struct_typep(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp210.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 Fsimple_array_p(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_SMVECP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /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/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/lisp265.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 Fstandard_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_standard_char_p(ARG(1)); 21 | COPY(ARG(1), ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /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/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/lisp286.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_equal(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 | Fnumneql(ARG(2), 2); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /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/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/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/lisp315.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_applicable_method(CL_FORM *base, int nargs) 8 | { 9 | Flist(ARG(1), nargs - 1); 10 | LOAD_SMSTR((CL_FORM *)&KClisp[136], ARG(2)); /* No applicable method for generic function ~s with args ~s. */ 11 | COPY(ARG(0), ARG(3)); 12 | COPY(ARG(1), ARG(4)); 13 | Ferror(ARG(2), 3); 14 | } 15 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp326.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 pattern_pieces(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 250), ARG(2)); /* PATTERN */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 0 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 250), ARG(3)); /* PATTERN */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp331.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 Ppathname_host(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(2)); /* PATHNAME */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 0 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(3)); /* PATHNAME */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp332.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 Ppathname_device(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(2)); /* PATHNAME */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 1 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(3)); /* PATHNAME */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp333.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 Ppathname_directory(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(2)); /* PATHNAME */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 2 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(3)); /* PATHNAME */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp334.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 Ppathname_name(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(2)); /* PATHNAME */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 3 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(3)); /* PATHNAME */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp335.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 Ppathname_type(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(2)); /* PATHNAME */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 4 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(3)); /* PATHNAME */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp336.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 Ppathname_version(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(2)); /* PATHNAME */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 5 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 234), ARG(3)); /* PATHNAME */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp343.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 Fmerge_pathnames(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | COPY(SYMVAL(Slisp, 233), ARG(1)); /* *DEFAULT-PATHNAME-DEFAULTS* */ 13 | case 2: 14 | LOAD_SYMBOL(SYMBOL(Slisp, 269), ARG(2)); /* NEWEST */ 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | merge_pathnames1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /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/lisp346.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_device(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_device1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp347.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_directory(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_directory1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp348.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_name(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_name1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp349.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_type(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_type1(ARG(0)); 20 | } 21 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp355.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 Fenough_namestring(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | COPY(SYMVAL(Slisp, 233), ARG(1)); /* *DEFAULT-PATHNAME-DEFAULTS* */ 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | enough_namestring1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp356.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 Fwild_pathname_p(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | wild_pathname_p1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp363.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(Cunparse_unix_host, unparse_unix_host, 1); 8 | 9 | CL_INIT Kunparse_unix_host[] = 10 | { 11 | MAKE_STRING(4, "Unix"), /* 0 */ 12 | }; 13 | 14 | void unparse_unix_host(CL_FORM *base) 15 | { 16 | LOAD_SMSTR((CL_FORM *)&Kunparse_unix_host[0], ARG(0)); /* Unix */ 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp366.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(Cunparse_unix_directory, unparse_unix_directory, 1); 8 | 9 | void unparse_unix_directory(CL_FORM *base) 10 | { 11 | Ppathname_directory(ARG(0)); 12 | unparse_unix_directory_list(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp368.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(Cunparse_unix_namestring, unparse_unix_namestring, 1); 8 | 9 | void unparse_unix_namestring(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 40), ARG(1)); /* SIMPLE-STRING */ 12 | COPY(ARG(0), ARG(2)); 13 | Ppathname_directory(ARG(2)); 14 | unparse_unix_directory_list(ARG(2)); 15 | COPY(ARG(0), ARG(3)); 16 | unparse_unix_file(ARG(3)); 17 | Fconcatenate(ARG(1), 3); 18 | COPY(ARG(1), ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /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/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.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void member_if_not1(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(3)); 10 | Fcomplement(ARG(3)); 11 | COPY(ARG(3), ARG(0)); 12 | member_if1(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /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/lisp423.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_ref(CL_FORM *base) 8 | { 9 | COPY(ARG(1), ARG(4)); 10 | COPY(ARG(3), ARG(5)); 11 | rt_struct_typep(ARG(4)); 12 | if(CL_TRUEP(ARG(4))) 13 | { 14 | COPY(ARG(0), OFFSET(AR_BASE(GET_FORM(ARG(1))), GET_FIXNUM(ARG(2)) + 1)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(0)); /* NO_STRUCT */ 19 | COPY(ARG(3), ARG(2)); 20 | Ferror(ARG(0), 3); 21 | } 22 | } 23 | -------------------------------------------------------------------------------- /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/lisp431.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 Ppackage_nicknames(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(2)); /* PACKAGE */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 1 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(3)); /* PACKAGE */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp433.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 Ppackage_internal(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(2)); /* PACKAGE */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 2 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(3)); /* PACKAGE */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp434.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 Ppackage_external(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(2)); /* PACKAGE */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 3 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(3)); /* PACKAGE */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp435.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 Ppackage_shadowings(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(2)); /* PACKAGE */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 4 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(3)); /* PACKAGE */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp436.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 Ppackage_use_list(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(2)); /* PACKAGE */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 5 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(3)); /* PACKAGE */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp437.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 Ppackage_used_by_list(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(2)); /* PACKAGE */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 6 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 354), ARG(3)); /* PACKAGE */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /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/lisp444.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_ensure_package(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | Ffind_package(ARG(1)); 11 | if(CL_TRUEP(ARG(1))) 12 | { 13 | COPY(ARG(1), ARG(0)); 14 | } 15 | else 16 | { 17 | LOAD_SYMBOL(SYMBOL(Slisp, 391), ARG(1)); /* USE */ 18 | LOAD_NIL(ARG(2)); 19 | Fmake_package(ARG(0), 3); 20 | } 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp447.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 Frename_package(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 | rename_package1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /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.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fpackage_used_by_list(CL_FORM *base) 8 | { 9 | coerce_to_package(ARG(0)); 10 | Ppackage_used_by_list(ARG(0)); 11 | } 12 | -------------------------------------------------------------------------------- /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/lisp451.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 Flist_all_packages(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 28), ARG(0)); /* LIST */ 10 | COPY(SYMVAL(Slisp, 389), ARG(1)); /* *PACKAGE-ARRAY* */ 11 | Fconcatenate(ARG(0), 2); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp459.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 Fshadowing_import(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 | shadowing_import1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp46.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 nsubst_if_not1(CL_FORM *base) 8 | { 9 | COPY(ARG(1), ARG(4)); 10 | Fcomplement(ARG(4)); 11 | COPY(ARG(4), ARG(1)); 12 | nsubst_if1(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /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/lisp473.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_check_array(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(3)); 10 | Farrayp(ARG(3)); 11 | if(CL_TRUEP(ARG(3))) 12 | { 13 | check_array_internal(ARG(0)); 14 | } 15 | else 16 | { 17 | LOAD_NIL(ARG(0)); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp474.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_check_simple_array(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(3)); 10 | Fsimple_array_p(ARG(3)); 11 | if(CL_TRUEP(ARG(3))) 12 | { 13 | check_array_internal(ARG(0)); 14 | } 15 | else 16 | { 17 | LOAD_NIL(ARG(0)); 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /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.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void Fset_hash_table_rehash_size(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(2), 2, ARG(2)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(3)); /* HASH-TABLE */ 11 | rt_set_struct_ref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp484.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_threshold(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 3, ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(2)); /* HASH-TABLE */ 11 | rt_struct_ref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp485.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_rehash_threshold(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(2), 3, ARG(2)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(3)); /* HASH-TABLE */ 11 | rt_set_struct_ref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp486.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_test(CL_FORM *base) 8 | { 9 | LOAD_FIXNUM(ARG(1), 4, ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(2)); /* HASH-TABLE */ 11 | rt_struct_ref(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /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.4 [obrep 1] */ 2 | #define __OBREP 1 3 | #include 4 | #include "sys.h" 5 | #include "lisp.h" 6 | 7 | void hash_table_array(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(2)); /* HASH-TABLE */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 5 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 399), ARG(3)); /* HASH-TABLE */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp509.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 readtable_syntax(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 420), ARG(2)); /* READTABLE */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 0 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 420), ARG(3)); /* READTABLE */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /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/lisp514.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_macro_character(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 2: 12 | LOAD_NIL(ARG(2)); 13 | case 3: 14 | COPY(SYMVAL(Slisp, 454), ARG(3)); /* *READTABLE* */ 15 | case 4: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | set_macro_character1(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/lisp516.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_dispatch_macro_character(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | COPY(SYMVAL(Slisp, 454), ARG(2)); /* *READTABLE* */ 15 | case 3: 16 | break; 17 | default: 18 | Labort(TOO_MANY_ARGS); 19 | } 20 | make_dispatch_macro_character1(ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp517.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_dispatch_macro_character(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 3: 12 | COPY(SYMVAL(Slisp, 454), ARG(3)); /* *READTABLE* */ 13 | case 4: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | set_dispatch_macro_character1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp518.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_dispatch_macro_character(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 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | get_dispatch_macro_character1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp523.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(Csemicolon_reader, semicolon_reader, 2); 8 | 9 | void semicolon_reader(CL_FORM *base) 10 | { 11 | COPY(ARG(0), ARG(2)); 12 | LOAD_NIL(ARG(3)); 13 | LOAD_NIL(ARG(4)); 14 | LOAD_NIL(ARG(5)); 15 | read_line1(ARG(2)); 16 | mv_count = 1; 17 | LOAD_NIL(ARG(0)); 18 | mv_count = 0; 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp541.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_preserving_whitespace(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 0: 12 | COPY(SYMVAL(Slisp, 60), ARG(0)); /* *STANDARD-INPUT* */ 13 | case 1: 14 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(1)); /* T */ 15 | case 2: 16 | LOAD_NIL(ARG(2)); 17 | case 3: 18 | LOAD_NIL(ARG(3)); 19 | case 4: 20 | break; 21 | default: 22 | Labort(TOO_MANY_ARGS); 23 | } 24 | read_preserving_whitespace1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /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/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/lisp580.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_sequence(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[1]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 155), /* INITIAL-ELEMENT */ 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 | LOAD_NIL(ARG(3)); 19 | } 20 | else 21 | { 22 | LOAD_T(ARG(3)); 23 | } 24 | make_sequence1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /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/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/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/lisp771.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 Fstring_capitalize(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[2]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 231), /* START */ 13 | SYMBOL(Slisp, 232), /* END */ 14 | }; 15 | keysort(ARG(1), nargs - 1, 2, keylist, supl_flags, FALSE); 16 | if(NOT(supl_flags[0])) 17 | { 18 | LOAD_FIXNUM(ARG(3), 0, ARG(1)); 19 | } 20 | if(NOT(supl_flags[1])) 21 | { 22 | LOAD_NIL(ARG(2)); 23 | } 24 | string_capitalize1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp772.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 Fnstring_upcase(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[2]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 231), /* START */ 13 | SYMBOL(Slisp, 232), /* END */ 14 | }; 15 | keysort(ARG(1), nargs - 1, 2, keylist, supl_flags, FALSE); 16 | if(NOT(supl_flags[0])) 17 | { 18 | LOAD_FIXNUM(ARG(3), 0, ARG(1)); 19 | } 20 | if(NOT(supl_flags[1])) 21 | { 22 | LOAD_NIL(ARG(2)); 23 | } 24 | nstring_upcase1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp773.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 Fnstring_downcase(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[2]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 231), /* START */ 13 | SYMBOL(Slisp, 232), /* END */ 14 | }; 15 | keysort(ARG(1), nargs - 1, 2, keylist, supl_flags, FALSE); 16 | if(NOT(supl_flags[0])) 17 | { 18 | LOAD_FIXNUM(ARG(3), 0, ARG(1)); 19 | } 20 | if(NOT(supl_flags[1])) 21 | { 22 | LOAD_NIL(ARG(2)); 23 | } 24 | nstring_downcase1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp774.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 Fnstring_capitalize(CL_FORM *base, int nargs) 8 | { 9 | BOOL supl_flags[2]; 10 | static CL_FORM * keylist[] = 11 | { 12 | SYMBOL(Slisp, 231), /* START */ 13 | SYMBOL(Slisp, 232), /* END */ 14 | }; 15 | keysort(ARG(1), nargs - 1, 2, keylist, supl_flags, FALSE); 16 | if(NOT(supl_flags[0])) 17 | { 18 | LOAD_FIXNUM(ARG(3), 0, ARG(1)); 19 | } 20 | if(NOT(supl_flags[1])) 21 | { 22 | LOAD_NIL(ARG(2)); 23 | } 24 | nstring_capitalize1(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp794.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_symbol_plist(CL_FORM *base) 8 | { 9 | if(CL_SYMBOLP(ARG(1))) 10 | { 11 | COPY(ARG(0), SYM_PLIST(ARG(1))); 12 | } 13 | else 14 | { 15 | if(CL_TRUEP(ARG(1))) 16 | { 17 | COPY(SYMVAL(Slisp, 676), ARG(0)); /* SYM_EXPECTED */ 18 | Ferror(ARG(0), 2); 19 | } 20 | else 21 | { 22 | COPY(ARG(0), SYMVAL(Slisp, 678)); /* *NIL-PLIST* */ 23 | } 24 | } 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp796.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 Fsymbol_package(CL_FORM *base) 8 | { 9 | if(CL_SYMBOLP(ARG(0))) 10 | { 11 | COPY(SYM_PACKAGE(ARG(0)), ARG(0)); 12 | } 13 | else 14 | { 15 | if(CL_TRUEP(ARG(0))) 16 | { 17 | COPY(SYMVAL(Slisp, 676), ARG(1)); /* SYM_EXPECTED */ 18 | COPY(ARG(0), ARG(2)); 19 | Ferror(ARG(1), 2); 20 | } 21 | else 22 | { 23 | COPY(SYMVAL(Slisp, 679), ARG(0)); /* *NIL-PACKAGE* */ 24 | } 25 | } 26 | } 27 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp797.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 set_symbol_package(CL_FORM *base) 8 | { 9 | if(CL_SYMBOLP(ARG(0))) 10 | { 11 | COPY(ARG(1), SYM_PACKAGE(ARG(0))); 12 | COPY(ARG(1), ARG(0)); 13 | } 14 | else 15 | { 16 | if(CL_TRUEP(ARG(0))) 17 | { 18 | LOAD_NIL(ARG(0)); 19 | } 20 | else 21 | { 22 | COPY(ARG(1), SYMVAL(Slisp, 679)); /* *NIL-PACKAGE* */ 23 | COPY(SYMVAL(Slisp, 679), ARG(0)); /* *NIL-PACKAGE* */ 24 | } 25 | } 26 | } 27 | -------------------------------------------------------------------------------- /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/lisp814.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 FFI_make_c_string(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | Fstringp(ARG(1)); 11 | if(CL_TRUEP(ARG(1))) 12 | { 13 | rt_internal_make_c_string(ARG(0)); 14 | } 15 | else 16 | { 17 | LOAD_SMSTR((CL_FORM *)&KClisp[18], ARG(1)); /* MAKE-C-STRING */ 18 | LOAD_SMSTR((CL_FORM *)&KClisp[16], ARG(2)); /* The evaluated value ~S is not of type string. */ 19 | COPY(ARG(0), ARG(3)); 20 | error_in(ARG(1), 3); 21 | } 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp815.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 FFI_copy_c_string(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | FFI_c_string_p(ARG(1)); 11 | if(CL_TRUEP(ARG(1))) 12 | { 13 | rt_internal_copy_c_string(ARG(0)); 14 | } 15 | else 16 | { 17 | LOAD_SMSTR((CL_FORM *)&KClisp[14], ARG(1)); /* MAKE-C-STRING */ 18 | LOAD_SMSTR((CL_FORM *)&KClisp[12], ARG(2)); /* The evaluated value ~S is not of type c-string. */ 19 | COPY(ARG(0), ARG(3)); 20 | error_in(ARG(1), 3); 21 | } 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp818.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 FFI_lisp_float(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | FFI_c_long_double_p(ARG(1)); 11 | if(CL_TRUEP(ARG(1))) 12 | { 13 | rt_make_lisp_float(ARG(0)); 14 | } 15 | else 16 | { 17 | LOAD_SMSTR((CL_FORM *)&KClisp[226], ARG(1)); /* LISP-FLOAT */ 18 | LOAD_SMSTR((CL_FORM *)&KClisp[224], ARG(2)); /* The evaluated value ~S is not of type c-. */ 19 | COPY(ARG(0), ARG(3)); 20 | error_in(ARG(1), 3); 21 | } 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/lisp819.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 FFI_make_lisp_string(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | FFI_c_string_p(ARG(1)); 11 | if(CL_TRUEP(ARG(1))) 12 | { 13 | rt_internal_make_lisp_string(ARG(0)); 14 | } 15 | else 16 | { 17 | LOAD_SMSTR((CL_FORM *)&KClisp[222], ARG(1)); /* MAKE-LISP-STRING */ 18 | LOAD_SMSTR((CL_FORM *)&KClisp[220], ARG(2)); /* The evaluated value ~S is not of type c-string. */ 19 | COPY(ARG(0), ARG(3)); 20 | error_in(ARG(1), 3); 21 | } 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/log1.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 log1(CL_FORM *base) 8 | { 9 | rt_log(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/make_stream1.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 make_stream1(CL_FORM *base) 8 | { 9 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(10)); /* STREAM */ 10 | COPY(ARG(0), ARG(11)); 11 | COPY(ARG(1), ARG(12)); 12 | COPY(ARG(2), ARG(13)); 13 | COPY(ARG(3), ARG(14)); 14 | COPY(ARG(4), ARG(15)); 15 | COPY(ARG(5), ARG(16)); 16 | COPY(ARG(6), ARG(17)); 17 | COPY(ARG(7), ARG(18)); 18 | COPY(ARG(8), ARG(19)); 19 | COPY(ARG(9), ARG(20)); 20 | rt_make_struct(ARG(10), 11); 21 | COPY(ARG(10), ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/nil_fun.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(Cnil_fun, nil_fun, 0); 8 | 9 | void nil_fun(CL_FORM *base) 10 | { 11 | LOAD_NIL(ARG(0)); 12 | } 13 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/octal_reader.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(Coctal_reader, octal_reader, 3); 8 | 9 | void octal_reader(CL_FORM *base) 10 | { 11 | if(CL_TRUEP(ARG(2))) 12 | { 13 | LOAD_SMSTR((CL_FORM *)&KClisp[230], ARG(3)); /* extra argument for #~S */ 14 | COPY(ARG(1), ARG(4)); 15 | Ferror(ARG(3), 2); 16 | } 17 | LOAD_FIXNUM(ARG(2), 8, ARG(2)); 18 | radix_reader(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/pattern_p.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(Cpattern_p, pattern_p, 1); 8 | 9 | void pattern_p(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 250), ARG(1)); /* PATTERN */ 12 | rt_struct_typep(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/princ1.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 princ1(CL_FORM *base) 8 | { 9 | LOAD_NIL(ARG(2)); 10 | BIND_SPECIAL(SYMBOL(Slisp, 474), ARG(2)); /* *PRINT-ESCAPE* */ 11 | if(CL_TRUEP(ARG(1))) 12 | { 13 | if(CL_SYMBOLP(ARG(1)) && GET_SYMBOL(ARG(1)) == SYMBOL(Slisp, 48)) /* T */ 14 | { 15 | COPY(SYMVAL(Slisp, 59), ARG(1)); /* *TERMINAL-IO* */ 16 | } 17 | } 18 | else 19 | { 20 | COPY(SYMVAL(Slisp, 61), ARG(1)); /* *STANDARD-OUTPUT* */ 21 | } 22 | write2(ARG(0)); 23 | RESTORE_SPECIAL; 24 | } 25 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/quote_reader.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(Cquote_reader, quote_reader, 2); 8 | 9 | void quote_reader(CL_FORM *base) 10 | { 11 | LOAD_SYMBOL(SYMBOL(Slisp, 455), ARG(2)); /* QUOTE */ 12 | COPY(ARG(0), ARG(3)); 13 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(4)); /* T */ 14 | LOAD_NIL(ARG(5)); 15 | LOAD_SYMBOL(SYMBOL(Slisp, 48), ARG(6)); /* T */ 16 | internal_read(ARG(3)); 17 | Flist(ARG(2), 2); 18 | COPY(ARG(2), ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/round1.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 round1(CL_FORM *base) 8 | { 9 | rt_round(ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_charG.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_charG(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Fchar_code(ARG(2)); 11 | COPY(ARG(1), ARG(3)); 12 | Fchar_code(ARG(3)); 13 | Fgt(ARG(2), 2); 14 | COPY(ARG(2), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_charGE.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_charGE(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Fchar_code(ARG(2)); 11 | COPY(ARG(1), ARG(3)); 12 | Fchar_code(ARG(3)); 13 | Fge(ARG(2), 2); 14 | COPY(ARG(2), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_charL.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_charL(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Fchar_code(ARG(2)); 11 | COPY(ARG(1), ARG(3)); 12 | Fchar_code(ARG(3)); 13 | Flt(ARG(2), 2); 14 | COPY(ARG(2), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_charLE.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_charLE(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Fchar_code(ARG(2)); 11 | COPY(ARG(1), ARG(3)); 12 | Fchar_code(ARG(3)); 13 | Fle(ARG(2), 2); 14 | COPY(ARG(2), ARG(0)); 15 | } 16 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_char_equal.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_equal(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 | Fnumeql(ARG(2), 2); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_char_lessp.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_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 | Flt(ARG(2), 2); 16 | COPY(ARG(2), ARG(0)); 17 | } 18 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_file_name.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_file_name(CL_FORM *base, int nargs) 8 | { 9 | switch(nargs) 10 | { 11 | case 1: 12 | LOAD_NIL(ARG(1)); 13 | case 2: 14 | break; 15 | default: 16 | Labort(TOO_MANY_ARGS); 17 | } 18 | file_name1(ARG(0)); 19 | } 20 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_fixnump.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 "inline.h" 6 | 7 | void rt_fixnump(CL_FORM *base) 8 | { 9 | LOAD_BOOL(CL_FIXNUMP(ARG(0)), ARG(0)); 10 | } 11 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_startup.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 | static void Z162_lambda(CL_FORM *base); 8 | GEN_STATIC_GLOBAL_FUNARG(CZ162_lambda, Z162_lambda, 0); 9 | 10 | void rt_startup(CL_FORM *base) 11 | { 12 | LOAD_SYMBOL(SYMBOL(Slisp, 508), ARG(0)); /* ERROR-CATCHER */ 13 | LOAD_GLOBFUN(&CZ162_lambda, ARG(1)); 14 | rt_catch(ARG(0)); 15 | } 16 | 17 | static void Z162_lambda(CL_FORM *base) 18 | { 19 | Imain(ARG(0)); 20 | LOAD_FIXNUM(ARG(0), 0, ARG(0)); 21 | } 22 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_struct_ref.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_ref(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(3)); 10 | COPY(ARG(2), ARG(4)); 11 | rt_struct_typep(ARG(3)); 12 | if(CL_TRUEP(ARG(3))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), GET_FIXNUM(ARG(1)) + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(3)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(4)); 20 | COPY(ARG(2), ARG(5)); 21 | Ferror(ARG(3), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/rt_vref.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_vref(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(2)); 10 | Fvectorp(ARG(2)); 11 | if(CL_TRUEP(ARG(2))) 12 | { 13 | } 14 | else 15 | { 16 | COPY(SYMVAL(Slisp, 58), ARG(2)); /* WRONG_TYPE */ 17 | COPY(ARG(0), ARG(3)); 18 | LOAD_SYMBOL(SYMBOL(Slisp, 47), ARG(4)); /* VECTOR */ 19 | Ferror(ARG(2), 3); 20 | } 21 | Frow_major_aref(ARG(0)); 22 | } 23 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/sort1.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 sort1(CL_FORM *base) 8 | { 9 | if(CL_LISTP(ARG(0))) 10 | { 11 | list_merge_sort(ARG(0)); 12 | } 13 | else 14 | { 15 | COPY(ARG(0), ARG(3)); 16 | LOAD_FIXNUM(ARG(4), 0, ARG(4)); 17 | COPY(ARG(0), ARG(5)); 18 | Flength(ARG(5)); 19 | COPY(ARG(1), ARG(6)); 20 | COPY(ARG(2), ARG(7)); 21 | quick_sort(ARG(3)); 22 | COPY(ARG(3), ARG(0)); 23 | } 24 | } 25 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/stream_column.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 stream_column(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(2)); /* STREAM */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 5 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(3)); /* STREAM */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/stream_extra.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 stream_extra(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(2)); /* STREAM */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 1 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(3)); /* STREAM */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/stream_length.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 stream_length(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(2)); /* STREAM */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 8 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(3)); /* STREAM */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/stream_readc.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 stream_readc(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(2)); /* STREAM */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 2 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(3)); /* STREAM */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/stream_seek.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 stream_seek(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(2)); /* STREAM */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 7 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(3)); /* STREAM */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/stream_tell.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 stream_tell(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(2)); /* STREAM */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 6 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(3)); /* STREAM */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/stream_type.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 stream_type(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(2)); /* STREAM */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 0 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(3)); /* STREAM */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/stream_writec.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 stream_writec(CL_FORM *base) 8 | { 9 | COPY(ARG(0), ARG(1)); 10 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(2)); /* STREAM */ 11 | rt_struct_typep(ARG(1)); 12 | if(CL_TRUEP(ARG(1))) 13 | { 14 | COPY(OFFSET(AR_BASE(GET_FORM(ARG(0))), 4 + 1), ARG(0)); 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 352), ARG(1)); /* NO_STRUCT */ 19 | COPY(ARG(0), ARG(2)); 20 | LOAD_SYMBOL(SYMBOL(Slisp, 64), ARG(3)); /* STREAM */ 21 | Ferror(ARG(1), 3); 22 | } 23 | } 24 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/subst_if_not1.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 subst_if_not1(CL_FORM *base) 8 | { 9 | COPY(ARG(1), ARG(4)); 10 | Fcomplement(ARG(4)); 11 | COPY(ARG(4), ARG(1)); 12 | subst_if1(ARG(0)); 13 | } 14 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/terpri1.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 terpri1(CL_FORM *base) 8 | { 9 | if(CL_TRUEP(ARG(0))) 10 | { 11 | if(CL_SYMBOLP(ARG(0)) && GET_SYMBOL(ARG(0)) == SYMBOL(Slisp, 48)) /* T */ 12 | { 13 | COPY(SYMVAL(Slisp, 59), ARG(0)); /* *TERMINAL-IO* */ 14 | } 15 | } 16 | else 17 | { 18 | COPY(SYMVAL(Slisp, 61), ARG(0)); /* *STANDARD-OUTPUT* */ 19 | } 20 | LOAD_CHAR(ARG(1), '\n', ARG(1)); 21 | COPY(ARG(0), ARG(2)); 22 | write_char1(ARG(1)); 23 | mv_count = 1; 24 | LOAD_NIL(ARG(0)); 25 | } 26 | -------------------------------------------------------------------------------- /src/runtime/lisp2c/truncate1.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 truncate1(CL_FORM *base) 8 | { 9 | rt_truncate(ARG(0)); 10 | } 11 | --------------------------------------------------------------------------------