931 ecl-build-for-ios64/lsp/defmacro.c
View file

Large diffs are not rendered by default.

6 ecl-build-for-ios64/lsp/defmacro.data
View file
@@ -0,0 +1,6 @@
static const char compiler_data_text[] =
"si::search-keyword si::check-keyword si::dm-too-many-arguments si::dm-too-few-ar"
"guments si::*dl* si::*arg-check* 'si::missing-keyword (t) si::find-documentation"
" si::remove-documentation si::find-declarations si::expand-defmacro destructurin"
"g-bind si::cmp-env-register-macrolet 0 0 0 0 0 0 0 0 0 0 ";
#define compiler_data_text_size 297
1,016 ecl-build-for-ios64/lsp/defpackage.c
View file

Large diffs are not rendered by default.

6 ecl-build-for-ios64/lsp/defpackage.data
View file
@@ -0,0 +1,6 @@
static const char compiler_data_text[] =
"(or symbol string character) (:documentation :size :nicknames :shadow :shadowing"
"-import-from :use :import-from :intern :export :export-from) (:size :documentati"
"on) :shadowing-import-from (eval compile load) si::dodefpackage defpackage (:ext"
"ernal) si::dodefpackage 0 0 0 ";
#define compiler_data_text_size 270
1,563 ecl-build-for-ios64/lsp/defstruct.c
View file

Large diffs are not rendered by default.

9 ecl-build-for-ios64/lsp/defstruct.data
View file
@@ -0,0 +1,9 @@
static const char compiler_data_text[] =
"si::structure-type-error (or list vector) si::structure-access si::typed-structu"
"re-name si::.structure-constructor-class. (vector t) :read-only :unknown (:metac"
"lass structure-class) si::obj (si::obj stream 0) (si::obj stream) si::defstruct-"
"form si::is-a-structure si::structure-include si::structure-type si::structure-n"
"amed si::structure-offset si::structure-constructors si::*keep-documentation* si"
"::define-structure 0 0 0 0 (vector symbol) (:compile-toplevel :load-toplevel) (:"
"execute) defstruct 0 si::closest-sequence-type 0 0 ";
#define compiler_data_text_size 531
1,625 ecl-build-for-ios64/lsp/evalmacros.c
View file

Large diffs are not rendered by default.

12 ecl-build-for-ios64/lsp/evalmacros.data
View file
@@ -0,0 +1,12 @@
static const char compiler_data_text[] =
"unless si::*dump-defun-definitions* (:compile-toplevel :load-toplevel :execute) "
"defmacro (:compile-toplevel) si::register-global defvar defparameter defconstant"
" si::*defun-inline-hook* (declare (si::c-global)) defun 'compiler-macro define-c"
"ompiler-macro compiler-macro-function loop lambda ext::lambda-block psetq cond p"
"rog prog* prog1 prog2 'list multiple-value-list multiple-value-setq multiple-val"
"ue-bind si::while si::until case return #'proclaim declaim si::c-declaim in-pack"
"age 'si::symbol-macro (si::form si::env) (declare (ignore si::form si::env)) def"
"ine-symbol-macro nth-value ext::maybe-unquote 0 0 ext::maybe-quote ext::truly-th"
"e ext::checked-value 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0"
" 0 0 0 ";
#define compiler_data_text_size 727
4 ecl-build-for-ios64/lsp/export.c
View file
@@ -447,7 +447,7 @@ static cl_object L7sharp___reader(cl_object v1stream, cl_object v2subchar, cl_ob
#ifdef __cplusplus
extern "C"
#endif
ECL_DLLEXPORT void _ecluw0h0bai4zfp9_n90cgE21(cl_object flag)
ECL_DLLEXPORT void _ecluw0h0bai4zfp9_f9M5hE21(cl_object flag)
{
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
@@ -468,7 +468,7 @@ ECL_DLLEXPORT void _ecluw0h0bai4zfp9_n90cgE21(cl_object flag)
#ifdef ECL_DYNAMIC_VV
VV = Cblock->cblock.data;
#endif
Cblock->cblock.data_text = "@EcLtAg:_ecluw0h0bai4zfp9_n90cgE21@";
Cblock->cblock.data_text = "@EcLtAg:_ecluw0h0bai4zfp9_f9M5hE21@";
VVtemp = Cblock->cblock.temp_data;
ECL_DEFINE_SETF_FUNCTIONS
si_select_package(_ecl_static_0);
3,426 ecl-build-for-ios64/lsp/ffi.c
View file

Large diffs are not rendered by default.

30 ecl-build-for-ios64/lsp/ffi.data
View file
@@ -0,0 +1,30 @@
static const char compiler_data_text[] =
"(:export) (:compile-toplevel :load-toplevel :execute) ffi::def-constant ffi::*ff"
"i-types* ffi::def-foreign-type (nil t) ffi::def-type ffi::%convert-to-ffi-type f"
"fi::%align-data ffi::size-of-foreign-type ffi::allocate-foreign-object ffi::free"
"-foreign-object :separator-string (:separator-string) ffi::def-enum ffi::def-str"
"uct ffi::slot-position ffi::get-slot-value (setf ffi::get-slot-value) ffi::get-s"
"lot-pointer ffi::def-array-pointer ffi::deref-array (setf ffi::deref-array) ffi:"
":%foreign-data-set ffi::%foreign-data-ref ffi::def-union ffi::pointer-address ff"
"i::deref-pointer (setf ffi::deref-pointer) ffi::make-null-pointer ffi::make-poin"
"ter ffi::null-char-p ffi::ensure-char-character ffi::ensure-char-integer ffi::en"
"sure-char-storable (* :unsigned-char) ffi::char-array-to-pointer ffi::convert-fr"
"om-cstring ffi::convert-to-cstring ffi::free-cstring ffi::with-cstring ffi::with"
"-cstrings ffi::foreign-string-length ffi::convert-from-foreign-string ffi::conve"
"rt-to-foreign-string ffi::allocate-foreign-string ffi::with-foreign-string ffi::"
"with-foreign-strings ffi::with-foreign-object ffi::with-foreign-objects ffi::wit"
"h-cast-pointer ffi::lisp-to-c-name ffi::%convert-to-arg-type ffi::%convert-to-re"
"turn-type :returning :module :call (:call :module :returning) ffi::c-fun (:point"
"er-void 0) ffi::def-lib-function (:call :returning :module) (:void . #1=(:cstrin"
"g)) #1# (:one-liner t :side-effects t) ffi::def-function (* . #2=(:array)) #2# ("
":side-effects t :one-liner t) 'ffi::ffi-foreign-var ffi::def-foreign-var (\"so\" \""
"a\") (nil) (pathname string list) ffi::find-foreign-library ffi::+loaded-librarie"
"s+ :dll ffi::do-load-foreign-library :supporting-libraries :force-load :system-l"
"ibrary (:system-library :force-load :supporting-libraries :module) (:compile-top"
"level) ffi::load-foreign-library ffi::defcallback ffi::callback ffi::clines ffi:"
":c-inline c::def-inline :always ffi::definline (:execute) ffi::defla (:one-liner"
" t) ffi::defcbody :no-interrupts (:no-interrupts) :one-liner ffi::defentry 0 0 0"
" 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 :length :nu"
"ll-terminated-p 0 (* :char) 0 :unsigned 0 0 0 0 0 0 0 0 0 0 0 0 :drive-letters :"
"types 0 0 0 0 0 0 0 0 0 0 ";
#define compiler_data_text_size 2186
17,412 ecl-build-for-ios64/lsp/format.c
View file

Large diffs are not rendered by default.

82 ecl-build-for-ios64/lsp/format.data
View file
@@ -0,0 +1,82 @@
static const char compiler_data_text[] =
":formatter si::*digits* si::flonum-to-string si::scale-exponent si::format-direc"
"tive si::copy-format-directive si::format-directive-p (8) si::make-format-direct"
"ive si::*format-directive-expanders* si::*format-directive-interpreters* si::*de"
"fault-format-error-control-string* si::*default-format-error-offset* si::*output"
"-layout-mode* :complaint 0 0 :arg :remaining :string :character :colonp :atsignp"
" :params si::*up-up-and-out-allowed* si::*logical-block-popper* si::*expander-ne"
"xt-arg-macro* si::expander-next-arg si::*only-simple-args* si::*orig-args-availa"
"ble* si::*simple-args* si::up-and-out (simple-string string) si::formatter-aux ("
"simple-string vector) formatter si::need-orig-args 'si::format-error (&rest si::"
"args) si::args (stream &rest si::orig-args) ((si::args si::orig-args)) (simple-s"
"tring si::format-directive) (pop si::args) si::expander-next-arg (null si::args)"
" ((pprint-pop) (pop si::args)) si::expander-pprint-next-arg si::%set-format-dire"
"ctive-expander si::format-princ #:g280 #:g281 #:g282 #:g283 (length si::args) 0 "
":arguments si::format-prin1 #:g352 #:g353 #:g354 #:g355 si::arg (if si::arg (pri"
"n1 si::arg stream) (princ \"()\" stream)) si::format-print-named-character si::for"
"mat-print-named-character ((*print-pretty* t)) ((*print-level* nil) (*print-leng"
"th* nil)) si::format-print-integer #:g468 #:g469 #:g470 #:g471 (:radix nil :esca"
"pe nil) si::expand-format-integer #:g670 #:g671 #:g672 #:g673 #:g674 si::format-"
"print-old-roman si::format-print-roman si::format-print-ordinal si::format-print"
"-cardinal si::cardinal-ones si::cardinal-tens si::cardinal-teens si::cardinal-pe"
"riods si::ordinal-ones si::ordinal-tens si::format-print-cardinal si::format-pri"
"nt-ordinal (#\\D #\\C #\\L #\\X #\\V #\\I) (500 100 50 10 5 1) si::format-print-old-ro"
"man (#\\C #\\X #\\X #\\I #\\I) (100 10 10 1 1 0) si::format-print-roman (eq si::orig-"
"args si::args) (do ((si::arg-ptr si::orig-args (cdr si::arg-ptr))) ((eq (cdr si:"
":arg-ptr) si::args) (car si::arg-ptr))) (\"y\" \"ies\") (write-char #\\s stream) #:g8"
"00 #:g801 #:g802 #:g803 #:g804 si::format-fixed si::format-fixed #:g899 #:g900 #"
":g901 #:g902 #:g903 #:g904 #:g905 si::format-exponential si::format-exponential "
"#:g1031 #:g1032 #:g1033 #:g1034 #:g1035 #:g1036 #:g1037 si::format-general si::f"
"ormat-general #:g1143 #:g1144 #:g1145 #:g1146 si::format-dollars si::format-doll"
"ars #:g1221 si::i (terpri stream) #:g1252 (fresh-line stream) #:g1283 (write-cha"
"r #\\Page stream) #:g1314 (write-char #\\~ stream) (write-char #\\Newline stream) ("
"#\\ #\\Newline #\\Tab) #:g1369 #:g1370 :section-relative :section #:g1384 #:g1385 "
"si::format-relative-tab #:g1399 #:g1400 si::format-absolute-tab \" "
" "
" \" :line-relative si::format-relative-tab si::format-absolute-tab :mandatory"
" :fill :miser :linear #:g1482 :current #:g1509 (length si::orig-args) si::orig-a"
"rgs #:g1516 ((si::cur-posn 0 (1+ si::cur-posn)) (si::arg-ptr si::orig-args (cdr "
"si::arg-ptr))) (eq si::arg-ptr si::args) si::new-posn si::cur-posn (<= 0 si::new"
"-posn (length si::orig-args)) (setf si::args (nthcdr si::new-posn si::orig-args)"
") (list si::new-posn (length si::orig-args)) #:g1523 (condition) (list condition"
") :print-banner (si::orig-args si::args) si::nstring-capitalize-first ((string ("
"make-array 10 :element-type 'character :fill-pointer 0 :adjustable t))) (stream "
"string) #:g1633 (si::prev-args si::args) (setf si::args si::prev-args) si::*outs"
"ide-args* #:g1709 #:g1710 #:g1711 (null si::outside-args) (return-from si::outsi"
"de-loop nil) (return) si::up-up-and-out :args (setf si::args (si::formatter-aux "
"stream si::inside-string si::orig-args si::args)) ((when (null si::args) (return"
"))) ((si::outside-args si::args) (si::args si::orig-args)) (declare (ignorable s"
"i::orig-args si::outside-args si::args)) si::outside-loop (si::args si::orig-arg"
"s) (declare (ignorable si::orig-args si::args)) #:g1771 si::inside-string si::*i"
"llegal-inside-justification* si::illegal-inside-justification-p #:g1872 #:g1873 "
"#:g1874 #:g1875 (si::segments nil) ((si::newline-segment nil) (si::extra-space 0"
") (si::line-len 72)) si::newline-segment (stream) #:g1903 #:g1904 (or 72) si::ex"
"tra-space si::line-len si::segments si::format-justification (si::newline-segmen"
"t si::extra-space si::line-len) (nil 0 0) si::format-justification ((setf si::ar"
"gs nil)) :per-line-prefix :prefix :suffix (si::args si::arg) ((si::orig-args si:"
":arg)) (si::orig-args) si::expand-format-logical-block :from-end 0 0 0 :string :"
"start :end :character :colonp :atsignp :params si::format-directive-end 0 si::fo"
"rmat-directive-character 0 0 0 0 0 si::format-directive-colonp si::format-direct"
"ive-atsignp si::format-directive-params 0 0 0 0 0 0 0 0 0 0 0 0 0 si::pretty-str"
"eam-p 0 si::format-directive-string 0 0 0 0 si::format-directive-start ((string "
"t :type simple-string) (si::start 0 :type #1=(and unsigned-byte fixnum)) (si::en"
"d 0 :type #2=(and unsigned-byte fixnum)) (character #\\ :type base-char) (si::co"
"lonp nil :type #3=(member t nil)) (si::atsignp nil :type #4=(member t nil)) (si:"
":params nil :type list)) ((si::typed-structure-name si::format-directive) (strin"
"g t simple-string nil 1 nil) (si::start 0 #1# nil 2 nil) (si::end 0 #2# nil 3 ni"
"l) (character #\\ base-char nil 4 nil) (si::colonp nil #3# nil 5 nil) (si::atsig"
"np nil #4# nil 6 nil) (si::params nil list nil 7 nil)) (si::make-format-directiv"
"e) (deftype si::format-directive nil 'vector) #A(t (10) (nil \"one\" \"two\" \"three\""
" \"four\" \"five\" \"six\" \"seven\" \"eight\" \"nine\")) #A(t (10) (nil nil \"twenty\" \"thirt"
"y\" \"forty\" \"fifty\" \"sixty\" \"seventy\" \"eighty\" \"ninety\")) #A(t (10) (\"ten\" \"eleve"
"n\" \"twelve\" \"thirteen\" \"fourteen\" \"fifteen\" \"sixteen\" \"seventeen\" \"eighteen\" \"ni"
"neteen\")) #A(t (22) (\"\" \" thousand\" \" million\" \" billion\" \" trillion\" \" quadrill"
"ion\" \" quintillion\" \" sextillion\" \" septillion\" \" octillion\" \" nonillion\" \" deci"
"llion\" \" undecillion\" \" duodecillion\" \" tredecillion\" \" quattuordecillion\" \" qui"
"ndecillion\" \" sexdecillion\" \" septendecillion\" \" octodecillion\" \" novemdecillion"
"\" \" vigintillion\")) #A(t (10) (nil \"first\" \"second\" \"third\" \"fourth\" \"fifth\" \"si"
"xth\" \"seventh\" \"eighth\" \"ninth\")) #A(t (10) (nil \"tenth\" \"twentieth\" \"thirtieth\""
" \"fortieth\" \"fiftieth\" \"sixtieth\" \"seventieth\" \"eightieth\" \"ninetieth\")) (\"~W\" \""
"~:W\" \"~@W\" \"~:@W\" \"~_\" \"~:_\" \"~@_\" \"~:@_\" \"~:>\" \"~:@>\" \"~I\" \"~:I\" \"~@I\" \"~:@I\" \""
"~:T\" \"~:@T\") ";
#define compiler_data_text_size 6333
625 ecl-build-for-ios64/lsp/helpfile.c
View file

Large diffs are not rendered by default.

8 ecl-build-for-ios64/lsp/helpfile.data
View file
@@ -0,0 +1,8 @@
static const char compiler_data_text[] =
"si::*keep-documentation* si::new-documentation-pool si::record-cons si::record-f"
"ield si::set-record-field si::rem-record-field ext::annotate ext::remove-annotat"
"ion :all ext::get-annotation si::dump-documentation si::setf-documentation si::g"
"et-documentation si::set-documentation si::expand-set-documentation si::make-dsp"
"ec ext::optional-annotation 'ext::location 0 0 0 ext::default-annotation-logic 0"
" 0 0 0 0 0 0 0 si::search-help-file 0 si::dump-help-file 0 0 0 0 0 0 ";
#define compiler_data_text_size 469
1,285 ecl-build-for-ios64/lsp/iolib.c
View file

Large diffs are not rendered by default.

12 ecl-build-for-ios64/lsp/iolib.data
View file
@@ -0,0 +1,12 @@
static const char compiler_data_text[] =
"with-open-stream :index (:end :start :index) with-input-from-string (:element-ty"
"pe) with-output-to-string (:abort t) with-open-file si::sharp-a-reader si::is-a-"
"structure si::structure-constructors si::sharp-s-reader si::*dribble-closure* dr"
"ibble ((#1=#:%progv-list si::+io-syntax-progv-list+)) (si::cons-car #1#) (si::co"
"ns-cdr #1#) with-standard-io-syntax ((#2=#:%progv-list si::+ecl-syntax-progv-lis"
"t+)) (si::cons-car #2#) (si::cons-cdr #2#) si::with-ecl-io-syntax :identity (:id"
"entity :type) si::.print-unreadable-object-body. #'si::.print-unreadable-object-"
"body. print-unreadable-object (unsigned-byte 16) ext::load-encoding ext::make-en"
"coding 0 0 0 :start :end :preserve-whitespace 0 0 0 0 0 0 0 0 0 (:utf-8 :ucs-2 :"
"ucs-2be :ucs-2le :ucs-4 :ucs-4be :iso-8859-1 :latin-1 :us-ascii :default) ";
#define compiler_data_text_size 794
929 ecl-build-for-ios64/lsp/listlib.c
View file

Large diffs are not rendered by default.

3 ecl-build-for-ios64/lsp/listlib.data
View file
@@ -0,0 +1,3 @@
static const char compiler_data_text[] =
":test :test-not :key ";
#define compiler_data_text_size 21
6,249 ecl-build-for-ios64/lsp/loop2.c
View file

Large diffs are not rendered by default.

114 ecl-build-for-ios64/lsp/loop2.data
View file
@@ -0,0 +1,114 @@
static const char compiler_data_text[] =
"(declare (ext::assume-right-type)) si::loop-unsafe si::loop-copylist* si::*loop-"
"real-data-type* (list nil) si::with-loop-list-collection-head 0 0 0 'nil 0 si::l"
"oop-collect-rplacd si::loop-collect-answer si::loop-minimax si::copy-loop-minima"
"x (6) si::make-loop-minimax-internal si::*loop-minimax-type-infinities-alist* :a"
"nswer-variable :temp-variable :flag-variable :operations :infinity-data si::with"
"-minimax-value (min max) si::loop-accumulate-minimax-value si::loop-store-table-"
"data si::loop-universe si::copy-loop-universe (8) si::make-loop-universe si::*lo"
"op-universe* 0 0 :extended 0 (member nil t :extended) si::ansi :keywords :for-ke"
"ywords :iteration-keywords :path-keywords :ansi :implicit-for-required :type-key"
"words :type-symbols si::*loop-destructuring-hooks* si::loop-really-desetq si::*l"
"oop-desetq-temporary* si::loop-really-desetq si::*loop-source-code* si::*loop-or"
"iginal-source-code* si::*loop-source-context* si::*loop-names* si::*loop-macro-e"
"nvironment* si::*loop-named-variables* si::*loop-variables* si::*loop-declaratio"
"ns* si::*loop-desetq-crocks* si::*loop-wrappers* si::*loop-bind-stack* si::*loop"
"-nodeclare* si::*loop-iteration-variables* si::*loop-prologue* si::*loop-before-"
"loop* si::*loop-body* si::*loop-after-body* si::*loop-emitted-body* si::*loop-ep"
"ilogue* si::*loop-after-epilogue* si::*loop-final-value-culprit* si::*loop-insid"
"e-conditional* si::*loop-when-it-variable* si::*loop-never-stepped-variable* si:"
":*loop-collection-cruft* si::loop-constantp si::*loop-duplicate-code* si::*loop-"
"iteration-flag-variable* 0 0 0 si::next-loop ((go si::next-loop)) si::end-loop s"
"i::loop-body si::*special-code-sizes* si::*estimate-code-size-punt* si::estimate"
"-code-size si::desetq 0 0 si::duplicatable-code-p si::simple-style-warning (go s"
"i::end-loop) loop-finish si::*ignores* si::subst-gensyms-for-nil si::loop-build-"
"destructuring-bindings (and si::else) si::loop-collector-name si::loop-disallow-"
"anonymous-collectors (si::always si::never si::thereis) si::loop-disallow-aggreg"
"ate-booleans (or float (complex float)) si::of-type si::loop-variable-p si::it :"
"and :else si::loop-do-if :initially si::loop-do-initially :finally si::loop-do-f"
"inally si::loop-do-do si::loop-do-named si::loop-do-return si::loop-collector si"
"::copy-loop-collector si::make-loop-collector si::into :class :history :dtype (l"
"ist nconc append) si::loop-list-collection si::sum si::loop-sum-collection si::m"
"axmin si::loop-maxmin-collection si::loop-do-always si::loop-do-thereis si::loop"
"-do-while :with := si::loop-do-with si::loop-do-for :repeat si::loop-do-repeat :"
"then (nil nil) si::loop-ansi-for-equals si::loop-for-across :by #'si::cons-cdr s"
"i::loop-for-on si::loop-for-in si::loop-path si::copy-loop-path (5) si::make-loo"
"p-path :names :user-data :preposition-groups :inclusive-permitted (:each :the) ("
":its :each :his :her) :in :inclusive 0 0 si::loop-for-being si::using :of 0 0 :f"
"rom 0 :downfrom 0 :upfrom 0 :down (:upto :to :downto :above :below) :upto :to :d"
"ownto :above :below 0 0 ((:from :upfrom :downfrom) (:to :upto :downto :above :be"
"low) (:by)) si::loop-for-arithmetic si::hash-key 0 si::hash-value 0 (member si::"
"hash-key si::hash-value) si::which 0 0 si::loop-hash-table-iteration-path si::lo"
"op-package-symbols-iteration-path (si::named (si::loop-do-named)) (si::initially"
" (si::loop-do-initially)) (si::finally (si::loop-do-finally)) (do (si::loop-do-d"
"o)) (si::doing (si::loop-do-do)) (return (si::loop-do-return)) (si::collect (si:"
":loop-list-collection list)) (si::collecting (si::loop-list-collection list)) (a"
"ppend (si::loop-list-collection append)) (si::appending (si::loop-list-collectio"
"n append)) (nconc (si::loop-list-collection nconc)) (si::nconcing (si::loop-list"
"-collection nconc)) si::counting ((si::sum (si::loop-sum-collection si::sum numb"
"er number)) (si::summing (si::loop-sum-collection si::sum number number)) (si::m"
"aximize (si::loop-maxmin-collection max)) (si::minimize (si::loop-maxmin-collect"
"ion min)) (si::maximizing (si::loop-maxmin-collection max)) (si::minimizing (si:"
":loop-maxmin-collection min)) (si::always (si::loop-do-always t nil)) (si::never"
" (si::loop-do-always t t)) (si::thereis (si::loop-do-thereis t)) (si::while (si:"
":loop-do-while nil :while)) (si::until (si::loop-do-while t :until)) (when (si::"
"loop-do-if when nil)) (if (si::loop-do-if if nil)) (unless (si::loop-do-if unles"
"s t)) (si::with (si::loop-do-with)) (si::repeat (si::loop-do-repeat))) ((= (si::"
"loop-ansi-for-equals)) (si::across (si::loop-for-across)) (si::in (si::loop-for-"
"in)) (si::on (si::loop-for-on)) (si::from (si::loop-for-arithmetic :from)) (si::"
"downfrom (si::loop-for-arithmetic :downfrom)) (si::upfrom (si::loop-for-arithmet"
"ic :upfrom)) (si::below (si::loop-for-arithmetic :below)) (si::above (si::loop-f"
"or-arithmetic :above)) (si::to (si::loop-for-arithmetic :to)) (si::upto (si::loo"
"p-for-arithmetic :upto)) (si::downto (si::loop-for-arithmetic :downto)) (si::by "
"(si::loop-for-arithmetic :by)) (si::being (si::loop-for-being))) ((si::for (si::"
"loop-do-for)) (si::as (si::loop-do-for))) (array atom bignum bit bit-vector char"
"acter compiled-function complex cons double-float fixnum float function hash-tab"
"le integer keyword list long-float nil null number package pathname random-state"
" ratio rational readtable sequence short-float simple-array simple-bit-vector si"
"mple-string simple-vector single-float standard-char stream string base-char sym"
"bol t vector) (si::hash-key si::hash-keys) ((:of :in)) (:which si::hash-key) (si"
"::hash-value si::hash-values) (:which si::hash-value) (symbol si::symbols) (:sym"
"bol-types (:internal :external :inherited)) (si::external-symbol si::external-sy"
"mbols) (:symbol-types (:external)) (si::present-symbol si::present-symbols) (:sy"
"mbol-types (:internal :external)) si::*loop-ansi-universe* loop 0 0 0 0 0 0 :ans"
"wer-variable :type :temp-variable :flag-variable :operations :infinity-data si::"
"loop-minimax-operations si::loop-minimax-flag-variable 0 si::loop-minimax-type s"
"i::loop-minimax-infinity-data si::loop-minimax-answer-variable si::loop-minimax-"
"temp-variable 0 0 0 :keywords :iteration-keywords :for-keywords :path-keywords :"
"type-symbols :type-keywords :ansi :implicit-for-required :keywords :for-keywords"
" :iteration-keywords :path-keywords :type-keywords :type-symbols :ansi 0 0 0 0 0"
" 0 si::loop-universe-keywords si::loop-universe-iteration-keywords 0 0 si::loop-"
"universe-type-symbols si::loop-universe-type-keywords 0 0 0 0 0 0 0 0 :name :cla"
"ss :history :tempvars :dtype :data si::loop-universe-ansi si::loop-collector-cla"
"ss si::loop-collector-history si::loop-collector-dtype 0 si::loop-collector-temp"
"vars 0 0 si::loop-collector-data 0 0 0 0 si::loop-universe-implicit-for-required"
" 0 si::loop-universe-for-keywords 0 0 0 0 0 0 :names :preposition-groups :inclus"
"ive-permitted :function :user-data :preposition-groups :inclusive-permitted :use"
"r-data si::loop-universe-path-keywords 0 si::loop-path-inclusive-permitted si::l"
"oop-path-function si::loop-path-preposition-groups si::loop-path-user-data 0 0 :"
"which 0 :symbol-types 0 (si::answer-variable type si::temp-variable si::flag-var"
"iable si::operations si::infinity-data) ((si::answer-variable nil t nil 0 nil) ("
"type nil t nil 1 nil) (si::temp-variable nil t nil 2 nil) (si::flag-variable nil"
" t nil 3 nil) (si::operations nil t nil 4 nil) (si::infinity-data nil t nil 5 ni"
"l)) (si::make-loop-minimax-internal) ((fixnum most-positive-fixnum most-negative"
"-fixnum)) (si::keywords si::iteration-keywords si::for-keywords si::path-keyword"
"s si::type-symbols si::type-keywords si::ansi si::implicit-for-required) ((si::k"
"eywords nil t nil 0 nil) (si::iteration-keywords nil t nil 1 nil) (si::for-keywo"
"rds nil t nil 2 nil) (si::path-keywords nil t nil 3 nil) (si::type-symbols nil t"
" nil 4 nil) (si::type-keywords nil t nil 5 nil) (si::ansi nil t nil 6 nil) (si::"
"implicit-for-required nil t nil 7 nil)) (si::make-loop-universe) ((return 0) (pr"
"ogn 0) (null 1) (not 1) (eq 1) (car 1) (cdr 1) (when 1) (unless 1) (if 1) (caar "
"2) (cadr 2) (cdar 2) (cddr 2) (caaar 3) (caadr 3) (cadar 3) (caddr 3) (cdaar 3) "
"(cdadr 3) (cddar 3) (cdddr 3) (caaaar 4) (caaadr 4) (caadar 4) (caaddr 4) (cadaa"
"r 4) (cadadr 4) (caddar 4) (cadddr 4) (cdaaar 4) (cdaadr 4) (cdadar 4) (cdaddr 4"
") (cddaar 4) (cddadr 4) (cdddar 4) (cddddr 4)) (block do do* dolist flet labels "
"lambda let let* locally macrolet multiple-value-bind prog prog* symbol-macrolet "
"tagbody unwind-protect with-open-file) (si::name class (si::history nil) (si::te"
"mpvars nil) si::dtype (si::data nil)) ((si::name nil t nil 0 nil) (class nil t n"
"il 1 nil) (si::history nil t nil 2 nil) (si::tempvars nil t nil 3 nil) (si::dtyp"
"e nil t nil 4 nil) (si::data nil t nil 5 nil)) (si::make-loop-collector) (si::na"
"mes si::preposition-groups si::inclusive-permitted function si::user-data) ((si:"
":names nil t nil 0 nil) (si::preposition-groups nil t nil 1 nil) (si::inclusive-"
"permitted nil t nil 2 nil) (function nil t nil 3 nil) (si::user-data nil t nil 4"
" nil)) (si::make-loop-path) ";
#define compiler_data_text_size 8908
867 ecl-build-for-ios64/lsp/mislib.c
View file

Large diffs are not rendered by default.

5 ecl-build-for-ios64/lsp/mislib.data
View file
@@ -0,0 +1,5 @@
static const char compiler_data_text[] =
"si::*do-time-level* si::do-time time si::month-startdays 'funcall with-hash-tabl"
"e-iterator si::sharp-!-reader 0 0 :verbose :mode 0 0 #A(t (13) (0 31 59 90 120 1"
"51 181 212 243 273 304 334 365)) ";
#define compiler_data_text_size 193
264 ecl-build-for-ios64/lsp/module.c
View file
@@ -0,0 +1,264 @@
/* Compiler: ECL 12.12.1 */
/* Source: SRC:LSP;MODULE.LSP */
#include <ecl/ecl-cmp.h>
#include "lsp/module.eclh"
/* function definition for PROVIDE */
/* optimize speed 1, debug 1, space 1, safety 2 */
cl_object cl_provide(cl_object v1module_name)
{
cl_object T0, T1, T2;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
ecl_cs_check(cl_env_copy,value0);
{
TTL:
T0 = cl_string(v1module_name);
T1 = ecl_symbol_value(ECL_SYM("*MODULES*",41));
T2 = (ECL_SYM("STRING=",822)->symbol.gfdef);
cl_set(ECL_SYM("*MODULES*",41),cl_adjoin(4, T0, T1, ECL_SYM("TEST",1316), T2));
value0 = ECL_T;
cl_env_copy->nvalues = 1;
return value0;
}
}
/* function definition for REQUIRE-ERROR */
/* optimize speed 1, debug 1, space 1, safety 2 */
static cl_object L1require_error(cl_narg narg, cl_object v1control, ...)
{
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
ecl_cs_check(cl_env_copy,value0);
if (ecl_unlikely(narg<1)) FEwrong_num_arguments_anonym();
{
cl_object v2arguments;
ecl_va_list args; ecl_va_start(args,v1control,narg,1);
v2arguments = cl_grab_rest_args(args);
ecl_va_end(args);
value0 = cl_error(3, _ecl_static_1, v1control, v2arguments);
return value0;
}
}
/* function definition for REQUIRE */
/* optimize speed 1, debug 1, space 1, safety 2 */
cl_object cl_require(cl_narg narg, cl_object v1module_name, ...)
{
cl_object T0;
cl_object env0;
cl_object CLV0
;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
ecl_cs_check(cl_env_copy,value0);
if (ecl_unlikely(narg<1)) FEwrong_num_arguments_anonym();
if (ecl_unlikely(narg>2)) FEwrong_num_arguments_anonym();
{
cl_object v2pathnames;
va_list args; va_start(args,v1module_name);
env0 = ECL_NIL;
CLV0 = env0 = CONS(v1module_name,env0); /* MODULE-NAME */
{
int i = 1;
if (i >= narg) {
v2pathnames = ECL_NIL;
} else {
i++;
v2pathnames = va_arg(args,cl_object);
}
}
va_end(args);
{
cl_object v3name;
v3name = cl_string(ECL_CONS_CAR(CLV0));
{
cl_object v4;
v4 = ecl_symbol_value(VV[0]);
goto L8;
L7:;
{
cl_object v5;
cl_object v6;
if (ecl_unlikely(ECL_ATOM(v4))) FEtype_error_cons(v4);
v5 = v4;
v6 = ECL_CONS_CAR(v5);
if (Null(cl_stringE(2, v3name, v6))) { goto L10; }
if (Null(v5)) { goto L3; }
goto L4;
}
L10:;
v4 = ECL_CONS_CDR(v4);
L8:;
if (v4==ECL_NIL) { goto L17; }
goto L7;
L17:;
goto L3;
}
L4:;
L1require_error(3, _ecl_static_2, ECL_SYM("REQUIRE",718), ECL_CONS_CAR(CLV0));
L3:;
{
cl_object v4;
cl_object v5;
v4 = cl_copy_list(ecl_symbol_value(ECL_SYM("*MODULES*",41)));
v5 = CONS(v3name,ecl_symbol_value(VV[0]));
ecl_bds_bind(cl_env_copy,VV[0],v5); /* *REQUIRING* */
{
cl_object v6;
v6 = ecl_symbol_value(ECL_SYM("*MODULES*",41));
goto L26;
L25:;
{
cl_object v7;
cl_object v8;
if (ecl_unlikely(ECL_ATOM(v6))) FEtype_error_cons(v6);
v7 = v6;
v8 = ECL_CONS_CAR(v7);
if (Null(cl_stringE(2, v3name, v8))) { goto L28; }
if ((v7)!=ECL_NIL) { goto L21; }
goto L22;
}
L28:;
v6 = ECL_CONS_CDR(v6);
L26:;
if (v6==ECL_NIL) { goto L35; }
goto L25;
L35:;
}
L22:;
if (Null(v2pathnames)) { goto L37; }
if (ECL_LISTP(v2pathnames)) { goto L39; }
v2pathnames = ecl_list1(v2pathnames);
L39:;
{
cl_object v6;
v6 = v2pathnames;
goto L45;
L44:;
{
cl_object v7ele;
v7ele = ecl_car(v6);
cl_load(1, v7ele);
}
v6 = ecl_cdr(v6);
L45:;
if (Null(v6)) { goto L52; }
goto L44;
L52:;
goto L21;
}
L37:;
{cl_object v7;
v7 = ECL_NIL;
v7 = ecl_make_cclosure_va((cl_objectfn)LC2__g17,env0,Cblock);
T0 = v7;
}
if ((cl_some(2, T0, ecl_symbol_value(ECL_SYM("*MODULE-PROVIDER-FUNCTIONS*",42))))!=ECL_NIL) { goto L21; }
L1require_error(3, _ecl_static_3, ECL_SYM("REQUIRE",718), ECL_CONS_CAR(CLV0));
L21:;
value0 = cl_set_difference(2, ecl_symbol_value(ECL_SYM("*MODULES*",41)), v4);
ecl_bds_unwind1(cl_env_copy);
return value0;
}
}
}
}
/* closure G17 */
/* optimize speed 1, debug 1, space 1, safety 2 */
static cl_object LC2__g17(cl_narg narg, cl_object v1p, ...)
{
cl_object CLV0
;
const cl_env_ptr cl_env_copy = ecl_process_env();cl_object env0 = cl_env_copy->function->cclosure.env;
cl_object value0;
ecl_cs_check(cl_env_copy,value0);
/* Scanning closure data ... */
CLV0 = env0; /* MODULE-NAME */
{ /* ... closure scanning finished */
if (ecl_unlikely(narg!=1)) FEwrong_num_arguments_anonym();
{
TTL:
value0 = ecl_function_dispatch(cl_env_copy,v1p)(1, ECL_CONS_CAR(CLV0));
return value0;
}
}
}
/* local function G19 */
/* optimize speed 1, debug 1, space 1, safety 2 */
static cl_object LC3__g19(cl_object v1module)
{
cl_object T0;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
ecl_cs_check(cl_env_copy,value0);
{
TTL:
{
cl_object v2module;
v2module = cl_string(v1module);
{
cl_object v3path;
v3path = cl_make_pathname(4, ECL_SYM("NAME",1273), v2module, ECL_SYM("DEFAULTS",1216), _ecl_static_4);
value0 = cl_load(3, v3path, ECL_SYM("IF-DOES-NOT-EXIST",1244), ECL_NIL);
}
if ((value0)!=ECL_NIL) { goto L3; }
{
cl_object v3path;
T0 = cl_string_downcase(1, v2module);
v3path = cl_make_pathname(4, ECL_SYM("NAME",1273), T0, ECL_SYM("DEFAULTS",1216), _ecl_static_4);
value0 = cl_load(3, v3path, ECL_SYM("IF-DOES-NOT-EXIST",1244), ECL_NIL);
return value0;
}
L3:;
cl_env_copy->nvalues = 1;
return value0;
}
}
}

#include "lsp/module.data"
#ifdef __cplusplus
extern "C"
#endif
ECL_DLLEXPORT void _ecltwS0ObbvOHvl9_7QP5hE21(cl_object flag)
{
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
cl_object *VVtemp;
if (flag != OBJNULL){
Cblock = flag;
#ifndef ECL_DYNAMIC_VV
flag->cblock.data = VV;
#endif
flag->cblock.data_size = VM;
flag->cblock.temp_data_size = VMtemp;
flag->cblock.data_text = compiler_data_text;
flag->cblock.data_text_size = compiler_data_text_size;
flag->cblock.cfuns_size = compiler_cfuns_size;
flag->cblock.cfuns = compiler_cfuns;
flag->cblock.source = make_constant_base_string("SRC:LSP;MODULE.LSP.NEWEST");
return;}
#ifdef ECL_DYNAMIC_VV
VV = Cblock->cblock.data;
#endif
Cblock->cblock.data_text = "@EcLtAg:_ecltwS0ObbvOHvl9_7QP5hE21@";
VVtemp = Cblock->cblock.temp_data;
ECL_DEFINE_SETF_FUNCTIONS
si_select_package(_ecl_static_0);
si_Xmake_special(ECL_SYM("*MODULES*",41));
cl_set(ECL_SYM("*MODULES*",41),ECL_NIL);
si_Xmake_special(ECL_SYM("*MODULE-PROVIDER-FUNCTIONS*",42));
cl_set(ECL_SYM("*MODULE-PROVIDER-FUNCTIONS*",42),ECL_NIL);
(void)0; /* No entry created for PROVIDE */
si_Xmake_special(VV[0]);
cl_set(VV[0],ECL_NIL);
ecl_cmp_defun(VV[2]); /* REQUIRE-ERROR */
(void)0; /* No entry created for REQUIRE */
{
cl_object T0;
{cl_object v1;
v1 = ECL_NIL;
v1 = ecl_make_cfun((cl_objectfn_fixed)LC3__g19,ECL_NIL,Cblock,1);
T0 = v1;
}
cl_set(ECL_SYM("*MODULE-PROVIDER-FUNCTIONS*",42),cl_adjoin(2, T0, ecl_symbol_value(ECL_SYM("*MODULE-PROVIDER-FUNCTIONS*",42))));
}
}
3 ecl-build-for-ios64/lsp/module.data
View file
@@ -0,0 +1,3 @@
static const char compiler_data_text[] =
"si::*requiring* si::require-error 0 ";
#define compiler_data_text_size 36
191 ecl-build-for-ios64/lsp/mp.c
View file
@@ -0,0 +1,191 @@
/* Compiler: ECL 12.12.1 */
/* Source: SRC:LSP;MP.LSP */
#include <ecl/ecl-cmp.h>
#include "lsp/mp.eclh"
/* local function WITHOUT-INTERRUPTS */
/* optimize speed 1, debug 1, space 1, safety 2 */
static cl_object LC1without_interrupts(cl_object v1, cl_object v2)
{
cl_object T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, T15, T16, T17, T18, T19, T20, T21, T22, T23, T24, T25, T26;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
ecl_cs_check(cl_env_copy,value0);
{
TTL:
{
cl_object v3;
v3 = ecl_cdr(v1);
{
cl_object v4outer_allow_with_interrupts;
cl_object v5outer_interrupts_enabled;
v4outer_allow_with_interrupts = cl_gensym(1, _ecl_static_1);
v5outer_interrupts_enabled = cl_gensym(1, _ecl_static_2);
T0 = cl_list(2, ECL_SYM("QUOTE",679), v4outer_allow_with_interrupts);
T1 = cl_list(3, ECL_SYM("LIST",481), VV[2], T0);
T2 = cl_list(2, ECL_SYM("LIST",481), T1);
T3 = cl_list(4, ECL_SYM("LIST*",482), VV[1], T2, VV[3]);
T4 = cl_list(3, ECL_SYM("ALLOW-WITH-INTERRUPTS",1736), VV[0], T3);
T5 = cl_list(2, ECL_SYM("QUOTE",679), v5outer_interrupts_enabled);
T6 = cl_list(3, ECL_SYM("LIST",481), VV[6], T5);
T7 = cl_list(2, ECL_SYM("LIST",481), T6);
T8 = cl_list(4, ECL_SYM("LIST*",482), VV[1], T7, VV[7]);
T9 = cl_list(3, VV[4], VV[5], T8);
T10 = cl_list(2, ECL_SYM("QUOTE",679), v4outer_allow_with_interrupts);
T11 = cl_list(3, ECL_SYM("LIST",481), VV[2], T10);
T12 = cl_list(2, ECL_SYM("QUOTE",679), v4outer_allow_with_interrupts);
T13 = cl_list(3, ECL_SYM("LIST",481), VV[6], T12);
T14 = cl_list(3, ECL_SYM("LIST",481), T11, T13);
T15 = cl_list(2, ECL_SYM("QUOTE",679), v4outer_allow_with_interrupts);
T16 = cl_list(4, ECL_SYM("LIST",481), VV[9], T15, VV[10]);
T17 = cl_list(5, ECL_SYM("LIST",481), VV[8], T14, T16, VV[11]);
T18 = cl_list(3, ECL_SYM("WITH-LOCAL-INTERRUPTS",1735), VV[5], T17);
T19 = cl_list(3, T4, T9, T18);
T20 = cl_list(2, v5outer_interrupts_enabled, ECL_SYM("*INTERRUPTS-ENABLED*",1023));
T21 = cl_list(2, v4outer_allow_with_interrupts, ECL_SYM("*ALLOW-WITH-INTERRUPTS*",1730));
T22 = cl_list(4, T20, VV[12], T21, VV[13]);
T23 = cl_list(3, ECL_SYM("IGNORABLE",427), v4outer_allow_with_interrupts, v5outer_interrupts_enabled);
T24 = cl_list(2, ECL_SYM("DECLARE",274), T23);
T25 = cl_listX(4, ECL_SYM("LET*",478), T22, T24, v3);
T26 = cl_list(3, ECL_SYM("MACROLET",521), T19, T25);
value0 = cl_list(3, ECL_SYM("MULTIPLE-VALUE-PROG1",575), T26, VV[14]);
return value0;
}
}
}
}
/* local function WITH-INTERRUPTS */
/* optimize speed 1, debug 1, space 1, safety 2 */
static cl_object LC2with_interrupts(cl_object v1, cl_object v2)
{
cl_object T0, T1, T2, T3, T4, T5, T6, T7, T8;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
ecl_cs_check(cl_env_copy,value0);
{
TTL:
{
cl_object v3;
v3 = ecl_cdr(v1);
{
cl_object v4allowp;
cl_object v5enablep;
v4allowp = cl_gensym(1, _ecl_static_3);
v5enablep = cl_gensym(1, _ecl_static_4);
T0 = cl_list(2, v4allowp, ECL_SYM("*ALLOW-WITH-INTERRUPTS*",1730));
T1 = cl_list(2, v5enablep, ECL_SYM("*INTERRUPTS-ENABLED*",1023));
T2 = cl_list(3, ECL_SYM("OR",614), v5enablep, v4allowp);
T3 = cl_list(2, ECL_SYM("*INTERRUPTS-ENABLED*",1023), T2);
T4 = cl_list(3, T0, T1, T3);
T5 = cl_list(2, ECL_SYM("NOT",584), v5enablep);
T6 = cl_list(3, ECL_SYM("AND",87), v4allowp, T5);
T7 = cl_list(3, ECL_SYM("WHEN",905), T6, VV[16]);
T8 = CONS(ECL_SYM("LOCALLY",490),v3);
value0 = cl_list(4, ECL_SYM("LET*",478), T4, T7, T8);
return value0;
}
}
}
}
/* local function WITH-LOCK */
/* optimize speed 1, debug 1, space 1, safety 2 */
static cl_object LC3with_lock(cl_object v1, cl_object v2)
{
cl_object T0, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, T14, T15, T16, T17, T18, T19, T20;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
ecl_cs_check(cl_env_copy,value0);
{
TTL:
{
cl_object v3;
cl_object v4;
cl_object v5;
cl_object v6lock_form;
v3 = ecl_cdr(v1);
if (!(v3==ECL_NIL)) { goto L3; }
si_dm_too_few_arguments(v1);
L3:;
{
cl_object v7;
v7 = ecl_car(v3);
v3 = ecl_cdr(v3);
v4 = v7;
}
v5 = v4;
if (!(v5==ECL_NIL)) { goto L10; }
si_dm_too_few_arguments(v1);
L10:;
{
cl_object v7;
v7 = ecl_car(v5);
v5 = ecl_cdr(v5);
v6lock_form = v7;
}
{
cl_object v7lock;
cl_object v8owner;
cl_object v9count;
v7lock = cl_gensym(1, _ecl_static_5);
v8owner = cl_gensym(1, _ecl_static_6);
v9count = cl_gensym(1, _ecl_static_7);
T0 = cl_list(2, v7lock, v6lock_form);
T1 = cl_list(2, ECL_SYM("LOCK-OWNER",1415), v7lock);
T2 = cl_list(2, v8owner, T1);
T3 = cl_list(2, ECL_SYM("LOCK-COUNT",1416), v7lock);
T4 = cl_list(2, v9count, T3);
T5 = cl_list(3, T0, T2, T4);
T6 = cl_list(2, ECL_SYM("GET-LOCK",1417), v7lock);
T7 = CONS(ECL_SYM("LOCALLY",490),v3);
T8 = cl_list(3, VV[4], T6, T7);
T9 = cl_list(2, ECL_SYM("LOCK-OWNER",1415), v7lock);
T10 = cl_list(3, ECL_SYM("EQ",333), ECL_SYM("*CURRENT-PROCESS*",1398), T9);
T11 = cl_list(3, ECL_SYM("EQ",333), v8owner, ECL_SYM("*CURRENT-PROCESS*",1398));
T12 = cl_list(2, ECL_SYM("NOT",584), T11);
T13 = cl_list(2, ECL_SYM("LOCK-COUNT",1416), v7lock);
T14 = cl_list(3, ECL_SYM(">",75), T13, v9count);
T15 = cl_list(3, ECL_SYM("OR",614), T12, T14);
T16 = cl_list(3, ECL_SYM("AND",87), T10, T15);
T17 = cl_list(2, ECL_SYM("GIVEUP-LOCK",1418), v7lock);
T18 = cl_list(3, ECL_SYM("WHEN",905), T16, T17);
T19 = cl_list(3, ECL_SYM("UNWIND-PROTECT",888), T8, T18);
T20 = cl_list(2, VV[15], T19);
value0 = cl_list(3, ECL_SYM("LET*",478), T5, T20);
return value0;
}
}
}
}

#include "lsp/mp.data"
#ifdef __cplusplus
extern "C"
#endif
ECL_DLLEXPORT void _eclJejZo6rSrTpp9_IMP5hE21(cl_object flag)
{
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
cl_object *VVtemp;
if (flag != OBJNULL){
Cblock = flag;
#ifndef ECL_DYNAMIC_VV
flag->cblock.data = VV;
#endif
flag->cblock.data_size = VM;
flag->cblock.temp_data_size = VMtemp;
flag->cblock.data_text = compiler_data_text;
flag->cblock.data_text_size = compiler_data_text_size;
flag->cblock.cfuns_size = compiler_cfuns_size;
flag->cblock.cfuns = compiler_cfuns;
flag->cblock.source = make_constant_base_string("SRC:LSP;MP.LSP.NEWEST");
return;}
#ifdef ECL_DYNAMIC_VV
VV = Cblock->cblock.data;
#endif
Cblock->cblock.data_text = "@EcLtAg:_eclJejZo6rSrTpp9_IMP5hE21@";
VVtemp = Cblock->cblock.temp_data;
ECL_DEFINE_SETF_FUNCTIONS
si_select_package(_ecl_static_0);
ecl_cmp_defmacro(VV[19]); /* WITHOUT-INTERRUPTS */
ecl_cmp_defmacro(VV[20]); /* WITH-INTERRUPTS */
ecl_cmp_defmacro(VV[21]); /* WITH-LOCK */
}
8 ecl-build-for-ios64/lsp/mp.data
View file
@@ -0,0 +1,8 @@
static const char compiler_data_text[] =
"(&body mp::allow-forms) 'let 'si::*allow-with-interrupts* mp::allow-forms mp::wi"
"th-restored-interrupts (&body mp::with-forms) 'ext::*interrupts-enabled* mp::wit"
"h-forms 'let* 'when '(si::check-pending-interrupts) (list* 'locally mp::with-for"
"ms) (ext::*interrupts-enabled* nil) (si::*allow-with-interrupts* nil) (when ext:"
":*interrupts-enabled* (si::check-pending-interrupts)) mp::without-interrupts (si"
"::check-pending-interrupts) mp::with-interrupts mp::with-lock 0 0 0 ";
#define compiler_data_text_size 468
857 ecl-build-for-ios64/lsp/numlib.c
View file

Large diffs are not rendered by default.

3 ecl-build-for-ios64/lsp/numlib.data
View file
@@ -0,0 +1,3 @@
static const char compiler_data_text[] =
"si::imag-one ";
#define compiler_data_text_size 13
1,305 ecl-build-for-ios64/lsp/packlib.c
View file

Large diffs are not rendered by default.

6 ecl-build-for-ios64/lsp/packlib.data
View file
@@ -0,0 +1,6 @@
static const char compiler_data_text[] =
"si::packages-iterator (:external :internal :inherited) 'funcall with-package-ite"
"rator (nil) (:inherited :internal :external) do-symbols (:external) do-external-"
"symbols (list-all-packages) (:internal :external) do-all-symbols si::print-symbo"
"l-apropos 0 0 0 0 0 0 :recurse ";
#define compiler_data_text_size 271
4,245 ecl-build-for-ios64/lsp/predlib.c
View file

Large diffs are not rendered by default.

105 ecl-build-for-ios64/lsp/predlib.data
View file
@@ -0,0 +1,105 @@
static const char compiler_data_text[] =
"ext::constantly-t ext::constantly-nil 0 0 si::*subtypep-cache* si::*upgraded-arr"
"ay-element-type-cache* si::subtypep-clear-cache si::create-type-name si::deftype"
"-form si::deftype-definition (&optional &key) (&optional &rest &key &allow-other"
"-keys &aux &whole &environment &body) #1='* (:compile-toplevel :load-toplevel :e"
"xecute) deftype si::index #2=(or rational float) #3=(integer * *) #4=(integer 0 "
"*) si::proper-list #5=(or (array base-char (*)) (array character (*))) #6=(array"
" base-char (*)) #7=(array character (*)) #8=(array bit (*)) #9=(simple-array t ("
"*)) #10=(or (simple-array base-char (*)) (simple-array character (*))) #11=(simp"
"le-array base-char (*)) #12=(simple-array bit (*)) si::simple-array-p si::comple"
"x-array-p si::+known-typep-predicates+ si::type-predicate si::+upgraded-array-el"
"ement-types+ (integer 0 127) #13=(nil base-char character bit ext::byte8 ext::in"
"teger8 ext::byte16 ext::integer16 ext::byte32 ext::integer32 ext::byte64 ext::in"
"teger64 single-float double-float t) 0 0 0 0 0 si::normalize-type si::expand-def"
"type si::error-coerce c::type-specifier 0 0 (vector simple-vector simple-base-st"
"ring simple-string base-string string bit-vector simple-bit-vector) (single-floa"
"t short-float double-float long-float float) si::*save-types-database* si::*high"
"est-type-tag* si::*member-types* si::*intervals-mask* si::*elementary-types* si:"
":update-types si::register-member-type si::number-member-type si::+canonical-typ"
"e-failure+ (* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * "
"* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) si::array-type-<= ("
"ext::complex-array . #14=(simple-array)) #14# si::array-type-p si::bounds-<= si:"
":bounds-< (complex real) si::register-cons-type si::+built-in-types+ (integer si"
"ngle-float double-float ratio long-float) 0 0 0 si::function-type-p si::values-t"
"ype-p si::canonical-type si::safe-canonical-type si::type= 0 0 0 0 0 0 0 0 clos:"
":classp 0 0 0 0 0 0 0 0 0 0 0 si::register-function-type si::register-values-typ"
"e 0 0 (deftype boolean nil '#15=(member nil t)) #15# (deftype si::index nil '#16"
"=(integer 0 2305843009213693951)) #16# (deftype fixnum nil '#17=(integer -230584"
"3009213693952 2305843009213693951)) #17# (deftype bignum nil '#18=(or (integer *"
" (-2305843009213693952)) (integer (2305843009213693951) *))) #18# (deftype ext::"
"byte8 nil '#19=(integer 0 255)) #19# (deftype ext::integer8 nil '#20=(integer -1"
"28 127)) #20# (deftype ext::byte16 nil '#21=(integer 0 65535)) #21# (deftype ext"
"::integer16 nil '#22=(integer -32768 32767)) #22# (deftype ext::byte32 nil '#23="
"(integer 0 4294967295)) #23# (deftype ext::integer32 nil '#24=(integer -21474836"
"48 2147483647)) #24# (deftype ext::byte64 nil '#25=(integer 0 184467440737095516"
"15)) #25# (deftype ext::integer64 nil '#26=(integer -9223372036854775808 9223372"
"036854775807)) #26# (deftype ext::cl-fixnum nil '#27=(signed-byte 64)) #27# (def"
"type ext::cl-index nil '#28=(unsigned-byte 64)) #28# (deftype real (&optional (s"
"i::start '* si::start-p) (si::end '*)) (if si::start-p (let (si::rat-start si::r"
"eal-start si::rat-end si::real-end) (cond ((consp si::start) (setf si::start (fi"
"rst si::start) si::rat-start (list (rational si::start)) si::real-start (list (f"
"loat si::start)))) ((numberp si::start) (setf si::rat-start (rational si::start)"
" si::real-start (float si::start))) (t (setf si::rat-start si::start si::real-st"
"art si::start))) (cond ((consp si::end) (setf si::end (first si::end) si::rat-en"
"d (list (rational si::end)) si::real-end (list (float si::end)))) ((numberp si::"
"end) (setf si::rat-end (rational si::end) si::real-end (float si::end))) (t (set"
"f si::rat-end si::end si::real-end si::end))) `(or (rational ,si::rat-start ,si:"
":rat-end) (float ,si::real-start ,si::real-end))) '#2#)) (deftype short-float (&"
"rest si::args) (if si::args `(single-float ,@si::args) 'single-float)) (deftype "
"bit nil '#29=(integer 0 1)) #29# (deftype mod (si::n) `(integer 0 ,(1- si::n))) "
"(deftype signed-byte (&optional (si::s #1#)) (if (or (null si::s) (eq si::s '*))"
" '#3# `(integer ,(- (expt 2 (1- si::s))) ,(1- (expt 2 (1- si::s)))))) (deftype u"
"nsigned-byte (&optional (si::s #1#)) (if (or (null si::s) (eq si::s '*)) '#4# `("
"integer 0 ,(1- (expt 2 si::s))))) (deftype null nil '#30=(member nil)) #30# (def"
"type sequence nil '#31=(or cons null (array * (*)))) #31# (deftype list nil '#32"
"=(or cons null)) #32# (deftype si::proper-list nil '#33=(or (cons t si::proper-l"
"ist) null)) #33# (deftype si::property-list nil '#34=(or (cons t (cons t si::pro"
"perty-list)) null)) #34# (deftype atom nil '#35=(not cons)) #35# (deftype vector"
" (&optional (si::element-type '*) (si::size '*)) `(array ,si::element-type (,si:"
":size))) (deftype extended-char nil '#36=(and character (not base-char))) #36# ("
"deftype string (&optional (si::size #1#)) (if (eq si::size '*) '#5# `(or (array "
"base-char (,si::size)) (array character (,si::size))))) (deftype base-string (&o"
"ptional (si::size '*)) (if (eq si::size '*) '#6# `(array base-char (,si::size)))"
") (deftype ext::extended-string (&optional (si::size '*)) (if (eq si::size '*) '"
"#7# `(array character (,si::size)))) (deftype bit-vector (&optional (si::size '*"
")) (if (eq si::size '*) '#8# `(array bit (,si::size)))) (deftype simple-vector ("
"&optional (si::size '*)) (if (eq si::size '*) '#9# `(simple-array t (,si::size))"
")) (deftype simple-string (&optional (si::size #1#)) (if si::size `(or (simple-a"
"rray base-char (,si::size)) (simple-array character (,si::size))) '#10#)) (defty"
"pe simple-base-string (&optional (si::size #1#)) (if si::size `(simple-array bas"
"e-char (,si::size)) '#11#)) (deftype simple-bit-vector (&optional (si::size #1#)"
") (if si::size `(simple-array bit (,si::size)) '#12#)) (deftype ext::array-index"
" nil '#37=(integer 0 2305843009213693950)) #37# ((array . arrayp) (atom . atom) "
"(base-char . si::base-char-p) (base-string . si::base-string-p) (bit-vector . bi"
"t-vector-p) (character . characterp) (compiled-function . compiled-function-p) ("
"complex . complexp) (ext::complex-array . si::complex-array-p) (cons . consp) (f"
"loat . floatp) (si::foreign-data . si::foreign-data-p) (function . functionp) (h"
"ash-table . hash-table-p) (integer . integerp) (fixnum . ext::fixnump) (keyword "
". keywordp) (list . listp) (logical-pathname . si::logical-pathname-p) (nil . ex"
"t::constantly-nil) (null . null) (number . numberp) (package . packagep) (random"
"-state . random-state-p) (rational . rationalp) (pathname . pathnamep) (readtabl"
"e . readtablep) (real . realp) (simple-array . si::simple-array-p) (simple-strin"
"g . simple-string-p) (simple-vector . simple-vector-p) (stream . streamp) (strin"
"g . stringp) (structure . si::structurep) (symbol . symbolp) (t . ext::constantl"
"y-t) (vector . vectorp)) #13# ((symbol) (keyword nil symbol) (package) (compiled"
"-function) #'(or compiled-function generic-function) (integer (integer * *)) (si"
"ngle-float (single-float * *)) (double-float (double-float * *)) (long-float (lo"
"ng-float * *)) (ratio (ratio * *)) (rational (or integer ratio)) (float (or sing"
"le-float double-float long-float)) (real (or integer single-float double-float l"
"ong-float ratio)) (complex (complex real)) (number (or real complex)) (character"
") (base-char nil character) (standard-char nil base-char) (cons) (null (member n"
"il)) (list (or cons (member nil))) (array (array * *)) (simple-array (simple-arr"
"ay * *)) (simple-vector (simple-array t (*))) (simple-bit-vector (simple-array b"
"it (*))) (vector (array * (*))) (string (array character (*))) (base-string (arr"
"ay base-char (*))) (simple-string (simple-array character (*))) (simple-base-str"
"ing (simple-array base-char (*))) (bit-vector (array bit (*))) (sequence (or con"
"s (member nil) (array * (*)))) (hash-table) (pathname) (logical-pathname nil pat"
"hname) (broadcast-stream) (concatenated-stream) (echo-stream) (file-stream) (str"
"ing-stream) (synonym-stream) (two-way-stream) (ext::sequence-stream) (ext::ansi-"
"stream (or broadcast-stream concatenated-stream echo-stream file-stream string-s"
"tream synonym-stream two-way-stream ext::sequence-stream gray::fundamental-strea"
"m)) (stream ext::ansi-stream) (readtable) (mp::process) (mp::lock) (mp::rwlock) "
"(mp::condition-variable) (mp::semaphore) (mp::barrier) (mp::mailbox) (si::foreig"
"n-data) (si::code-block)) ";
#define compiler_data_text_size 8186
1,309 ecl-build-for-ios64/lsp/seq.c
View file

Large diffs are not rendered by default.

14 ecl-build-for-ios64/lsp/seq.data
View file
@@ -0,0 +1,14 @@
static const char compiler_data_text[] =
"0 0 0 0 0 0 0 0 0 0 0 ((nil) (list . list) (string . character) ((vector nil)) ("
"(vector base-char) . base-char) ((vector character) . character) ((vector bit) ."
" bit) ((vector ext::byte8) . ext::byte8) ((vector ext::integer8) . ext::integer8"
") ((vector ext::byte16) . ext::byte16) ((vector ext::integer16) . ext::integer16"
") ((vector ext::byte32) . ext::byte32) ((vector ext::integer32) . ext::integer32"
") ((vector ext::byte64) . ext::byte64) ((vector ext::integer64) . ext::integer64"
") ((vector single-float) . single-float) ((vector double-float) . double-float) "
"((vector t) . t)) si::closest-sequence-type si::make-seq-iterator si::seq-iterat"
"or-ref si::seq-iterator-set si::seq-iterator-next si::seq-iterator-list-pop si::"
"coerce-to-list si::index `(vector ,si::elt-type (,length)) si::output si::coerce"
"-to-vector :initial-value si::every* 0 :initial-element 0 0 0 0 0 0 0 si::simple"
"-array-p 0 ";
#define compiler_data_text_size 891
3,954 ecl-build-for-ios64/lsp/seqlib.c
View file

Large diffs are not rendered by default.

8 ecl-build-for-ios64/lsp/seqlib.data
View file
@@ -0,0 +1,8 @@
static const char compiler_data_text[] =
"si::sequence-count si::unsafe-funcall1 si::filter-vector si::remove-list :from-e"
"nd si::delete-list si::remove-duplicates-list si::delete-duplicates-list si::fil"
"ter-duplicates-vector complement 0 0 :from-end :start :end :key :initial-value :"
"start1 :end1 :start2 :end2 0 0 :test :test-not :start :end :from-end :count :key"
" 0 :test :test-not :from-end :start :end :key :test :test-not :start :end :from-"
"end :key 0 0 0 :from-end :test :test-not :key :start1 :start2 :end1 :end2 0 ";
#define compiler_data_text_size 476
3,402 ecl-build-for-ios64/lsp/setf.c
View file

Large diffs are not rendered by default.

15 ecl-build-for-ios64/lsp/setf.data
View file
@@ -0,0 +1,15 @@
static const char compiler_data_text[] =
"(compile load eval) defsetf define-setf-expander get-setf-expansion 'compiler-ma"
"cro 0 0 :read-only setf (nil) psetf shiftf rotatef si::env si::%reference (decla"
"re (notinline mapcar)) (si::vars si::vals si::stores si::setter si::getter) (get"
"-setf-expansion si::%reference si::env) si::all-vars #'(lambda (si::v) (list (ge"
"nsym) si::v)) (symbolp si::getter) (si::getter (mapcar #'car si::all-vars)) ((ca"
"r si::stores) `(let* ,si::all-vars (declare (:read-only ,@(mapcar #'first si::al"
"l-vars))) ,si::setter)) ((si::d si::vars (cdr si::d)) (si::v si::vals (cdr si::v"
")) (si::let-list nil (cons (list (car si::d) (car si::v)) si::let-list))) (null "
"si::d) si::let-list (car si::stores) (and (listp si::%reference) (eq (car si::%r"
"eference) 'the)) 'the (cadr si::%reference) si::getter (append si::all-vars si::"
"let-list) `(let* ,(nreverse si::let-list) (declare (:read-only ,@(mapcar #'first"
" si::all-vars) ,@si::vars)) ,si::setter) define-modify-macro si::flag remf incf "
"decf push pushnew pop 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ";
#define compiler_data_text_size 1010
1,052 ecl-build-for-ios64/lsp/trace.c
View file

Large diffs are not rendered by default.

30 ecl-build-for-ios64/lsp/trace.data
View file
@@ -0,0 +1,30 @@
static const char compiler_data_text[] =
"si::*trace-level* si::*trace-max-indent* si::trace* trace si::trace* si::untrace"
"* untrace si::untrace* si::*inside-trace* :break :break-after :step :cond :cond-"
"before :cond-after :print-after (&rest si::args) (values (si::*trace-level* (1+ "
"si::*trace-level*))) si::args ((si::*inside-trace* t)) si::trace-print 'si::ente"
"r (si::*inside-trace*) 'ext::exit (values-list values) si::trace-one si::enter s"
"i::trace-print si::traced-old-definition si::delete-from-trace-list si::add-to-t"
"race-list si::untrace-one si::*step-form* si::*step-tag* si::*step-functions* si"
"::step-commands si::step* step si::step* si::steppable-function si::*tpl-level* "
":quiet :commands si::break-commands si::*tpl-commands* :broken-at :prompt-hook s"
"i::stepper si::step-next si::step-skip si::step-print si::step-quit 0 0 0 0 0 0 "
"0 0 0 0 0 0 0 0 si::tpl 0 0 0 0 (\"Stepper commands\" ((:newline) (si::step-next) "
":constant \"newline\t\tAdvance to the next form\" \"newline\t\t\t\t\t\t[Stepper command]~@\n"
"\t~@\n\tStep to next form.~%\") ((:s :skip) si::step-skip nil \":s(kip)\t\tSkip current"
" form or until function\" \":skip &optional arg\t\t\t\t[Stepper command]~@\n\t:s &option"
"al arg\t\t\t\t[Abbreviation]~@\n\t~@\n\tContinue evaluation without stepping. Without a"
"rgument, resume\n\tstepping after the current form. With numeric argument (n),\n\tr"
"esume stepping at the n-th level above. With function name, resume\n\twhen given "
"function is called.~%\") ((:pr :print) (si::step-print) :constant \":pr(int)\tPrett"
"y print current form\" \":print\t\t\t\t\t\t[Stepper command]~@\n\t:p\t\t\t\t\t\t[Abbreviation]~@"
"\n\t~@\n\tPretty print current form.~%\") ((:form) si::*step-form* :constant \":form\t\t"
"Current form\" \":form\t\t\t\t\t\t[Stepper command]~@\n\t~@\n\tReturn the current form. Not"
"hing is done, but the current form~@\n\tis returned as the value of this command. "
" As a consequence,~@\n\tit is printed by the top level in the usual way and saved "
"in~@\n\tthe variable *. The main purpose of this command is to allow~@\n\tthe curre"
"nt form to be examined further by accessing *.~%\") ((:x :exit) (si::step-quit) :"
"constant \":x or :exit\tFinish evaluation and exit stepper\" \":exit\t\t\t\t\t\t[Stepper c"
"ommand]~@\n :x\t\t\t\t\t\t[Abbreviation]~@\n ~@\n Finish evaluation wit"
"hout stepping.~%\")) ";
#define compiler_data_text_size 2180
BIN +0 Bytes (100%) ecl-build-for-ios64/tmp/__.SYMDEF SORTED
View file
Binary file not shown.
6 ecl/src/c/apply.d
View file
@@ -1,5 +1,7 @@
/* -*- mode: c; c-basic-offset: 4 -*- */
#include <ecl/ecl.h>
typedef cl_object (*t_f5_fuck)(cl_narg,...);

typedef cl_object (*t_f0)(cl_narg);
typedef cl_object (*t_f1)(cl_narg,cl_object);
typedef cl_object (*t_f2)(cl_narg,cl_object,cl_object);
@@ -70,13 +72,15 @@ typedef cl_object (*t_f64)(cl_narg,cl_object,cl_object,cl_object,cl_object,cl_ob
cl_object
APPLY(cl_narg n, cl_objectfn fn, cl_object *x)
{
nlogd(">>apply n(%ld)", n);
switch (n) {
case 0: return (*((t_f0)(fn)))(n);
case 1: return (*((t_f1)(fn)))(n,x[0]);
case 2: return (*((t_f2)(fn)))(n,x[0],x[1]);
case 3: return (*((t_f3)(fn)))(n,x[0],x[1],x[2]);
case 4: return (*((t_f4)(fn)))(n,x[0],x[1],x[2],x[3]);
case 5: return (*((t_f5)(fn)))(n,x[0],x[1],x[2],x[3],x[4]);
//case 5: return (*((t_f5)(fn)))(n,x[0],x[1],x[2],x[3],x[4]);
case 5: return (*((t_f5_fuck)(fn)))(n,x[0],x[1],x[2],x[3],x[4]);
case 6: return (*((t_f6)(fn)))(n,x[0],x[1],x[2],x[3],x[4],x[5]);
case 7: return (*((t_f7)(fn)))(n,x[0],x[1],x[2],x[3],x[4],x[5],x[6]);
case 8: return (*((t_f8)(fn)))(n,x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7]);
11 ecl/src/c/gbc.d
View file
@@ -77,12 +77,17 @@ ecl_register_root(cl_object *p)
cl_object
si_gc(cl_object area)
{
if (!GC_enabled())
nlogd(">>gc");
if (!GC_enabled()) {
ecl_internal_error("GC is not enabled");
if (Null(area))
}
if (Null(area)) {
nlogd(">>gc1");
ecl_gc(t_cons);
else
} else {
nlogd(">>gc2");
ecl_gc(t_contiguous);
}
@(return)
}

2 ecl/src/c/interpreter.d
View file
@@ -268,6 +268,7 @@ unknown_keyword(register cl_object bytecodes, register cl_object frame)
cl_object
ecl_interpret(cl_object frame, cl_object env, cl_object bytecodes)
{
nlogd(">>interpret");
ECL_OFFSET_TABLE
const cl_env_ptr the_env = frame->frame.env;
volatile cl_index frame_index = 0;
@@ -494,6 +495,7 @@ ecl_interpret(cl_object frame, cl_object env, cl_object bytecodes)
frame_aux.base);
break;
case t_cfun:
nlogd(">>t_cfun narg(%d)", narg);
reg0 = APPLY(narg, reg0->cfun.entry, frame_aux.base);
break;
case t_cclosure:
12 ecl/src/c/nsub.d
View file

This file was deleted.

2 ecl/src/c/nsub.h
View file

This file was deleted.

4 ecl/src/c/numbers/plus.d
View file
@@ -30,9 +30,13 @@
cl_object
ecl_plus(cl_object x, cl_object y)
{
nlogd(">fix plus1");
MATH_DISPATCH2_BEGIN(x,y)
{
nlogd(">fix plus2");

CASE_FIXNUM_FIXNUM {
nlogd(">fix plus");
return ecl_make_integer(ecl_fixnum(x) + ecl_fixnum(y));
}
CASE_FIXNUM_BIGNUM {