* Type-punning warning fixes;* small_fixnum overflow fixes;* off by one fix in cerror;* Fix compiler error which had not recognized defpackage as a package operation;* Fix tkl.lisp call to open-named-socket;* Make values-list and nreconc signal errors when they should on dotted lists.; * Avoid use of windows.h types as macros.; * New config.{sub,guess} - gcl.git - GNU Common Lisp

diff --git a/gcl/cmpnew/cmptop.data b/gcl/cmpnew/cmptop.data
index 59a4fffe9..22d91058f 100755
--- a/gcl/cmpnew/cmptop.data
+++ b/gcl/cmpnew/cmptop.data

@@ -3,5 +3,5 @@

(lisp::in-package (lisp::quote user::compiler))

#(compiler::*current-form* compiler::*first-error* lisp::nil system::|#,| "Sharp-comma-macro is in a bad place." compiler::package-operation compiler::*non-package-operation* "The package operation ~s was in a bad place." compiler::t1 compiler::*compile-print* compiler::top-level-macro compiler::c1 "~s is illegal function." "" "void" "long " "object " compiler::*function-links* compiler::*c-vars* " VOL " compiler::*volatile* compiler::*vaddress-list* compiler::*vind* compiler::*inits* compiler::*top-level-forms* compiler::*compiler-output1* compiler::t2 compiler::t3 compiler::*local-funs* compiler::*global-entries* compiler::*closures* compiler::*compiler-output2* compiler::fun compiler::*reservations* compiler::*next-vv* ")," ")" compiler::proclaimed-closure "" "" compiler::eval-at-compile :defaults compiler::*eval-when-defaults* lisp::compile lisp::eval-when "The EVAL-WHEN situation ~s is illegal." lisp::progn (lisp::quote lisp::compile) compiler::*compile-ordinaries* lisp::&aux compiler::*setjmps* lisp::defun compiler::*sharp-commas* "The function name ~s is not a symbol." compiler::*local-functions* compiler::*vars* compiler::*funs* compiler::*blocks* compiler::*tags* compiler::*special-binding* compiler::ufun compiler::*next-cfun* compiler::info compiler::fixed-args lisp::function :initial-element compiler::proclaimed-function compiler::proclaimed-arg-types lisp::* compiler::var compiler::lexical lisp::special compiler::clb (lisp::fixnum lisp::character lisp::long-float lisp::short-float) lisp::object compiler::*c-gc* "Calls to ~a will be VERY SLOW. Recommend not to proclaim. ~%;;The arg caused the problem. ~a" compiler::proclaimed-return-type compiler::*inline-functions* compiler::*global-funs* "LI~d()" :element-type lisp::string-char :fill-pointer :adjustable "LI~d(" "#~d)" "#~d," compiler::*next-cvar* lisp::fixnum system::mfsfun lisp::quote "LI" "~a needs ~a args. ~a supplied." "~%;; ~a Number of proclaimed args was ~a. ~

~%;;Its definition had ~a." " ~a is proclaimed but not in *inline-functions* ~

- ~%T1defun could not assure suitability of args for C call" "VOL " "" "" compiler::*register-min* "register " "" compiler::no-global-entry system::putprop (lisp::quote system::function-documentation) system::mfvfun-key "LI" "&LI~akey" "" system::mfvfun "LI" system::mf "L" "" compiler::*space* compiler::debug-prop system::debug compiler::*downward-closures* "Old style inline" compiler::t3defun-local-entry compiler::return-fixnum compiler::return-character compiler::return-long-float compiler::return-short-float compiler::return-object compiler::t3defun-vararg compiler::t3defun-normal lisp::return compiler::*exit* compiler::*vs* compiler::*max-vs* compiler::*level* compiler::*ccb-vs* compiler::*clink* compiler::*unwind-exit* compiler::*value-to-go* compiler::*reservation-cmacro* compiler::*next-cmacro* compiler::*sup-used* compiler::*restore-avma* compiler::*base-used* compiler::*cs* lisp::character lisp::long-float lisp::short-float "local entry for function " compiler::*tail-recursion-info* compiler::*do-tail-recursion* compiler::t3defun compiler::*compiler-push-events* compiler::tail-recursion-mark compiler::bds-bind "object " compiler::*vararg-use-vs* compiler::*inline-blocks* compiler::cvar "local entry for function " "" lisp::string "object" "," "," "object,..." compiler::*safe-compile* compiler::*compiler-check-args* compiler::*last-label* "--" "" compiler::first-var-arg compiler::next-var-arg compiler::*rest-on-stack* :dynamic-extent compiler::location (compiler::vv compiler::fixnum-value) compiler::dummy compiler::vv compiler::fixnum-value "base " "Vcs " "function definition for " "~a has a duplicate definition in this file" compiler::*free-address-registers* compiler::*free-data-registers* (lisp::fixnum lisp::character lisp::short-float lisp::long-float) 100000 1000000 "global entry for the function " "CMPmake_fixnum" "make_fixnum" "code_char" "make_longfloat" "make_shortfloat" "" "fix" "char_code" "lf" "sf" "" "long " "GEN " "unsigned char " "float " "double " "object " lisp::defmacro "The macro name ~s is not a symbol." (lisp::quote system::function-documentation) (lisp::quote system::pretty-print-format) system::mm "L" compiler::contains-setjmp " VOL " "" "macro definition for " "progn 'compile" (lisp::nil lisp::t) compiler::ordinary lisp::setq lisp::lambda lisp::symbol-function compiler::sharp-comma system::setvv system::define-structure "The argument to CLINE, ~s, is not a string." lisp::clines lisp::defcfun "The first argument to defCfun ~s is not a string." "The second argument to defCfun ~s is not a number." "Special form ~s is not allowed in defCfun." "The defCfun body ~s is illegal." "The defCfun body ~s is illegal." "C function defined by " lisp::defentry "The function name ~s is not a symbol." (lisp::object lisp::char lisp::int lisp::float lisp::double lisp::string) "The C-type ~s is illegal." (lisp::void lisp::object lisp::char lisp::int lisp::float lisp::double lisp::string) "The C function specification ~s is illegal." "L" "function definition for " lisp::void (lisp::object lisp::char lisp::int lisp::float lisp::double) "The C variable name ~s is illegal." "The C variable specification ~s is illegal." "local dc function " "LC" "L" "," "" compiler::*initial-ccb-vs* compiler::t3local-dcfun compiler::dclosure "local function " "LC" "L" "LC" "L" compiler::t3local-fun " ,V~a" ";" " ~a V~a" lisp::integer "= 0,V~aalloc" ";" " object Vcs[~a];" compiler::cmperr compiler::cmpwarn compiler::maybe-eval compiler::wt-data-package-operation compiler::print-current-form compiler::cmp-macroexpand-1 compiler::t1expr compiler::t1ordinary compiler::cmp-expand-macro compiler::wt1 compiler::wt-global-entry compiler::wt-function-link compiler::wt-h1 compiler::push-data-incf compiler::wt-data-file compiler::rep-type compiler::declaration-type compiler::cmp-eval compiler::too-few-args lisp::load lisp::eval compiler::t1progn compiler::c1lambda-expr compiler::check-downward lisp::proclaim compiler::cmpfix-args compiler::type-and compiler::make-inline-string compiler::add-load-time-sharp-comma lisp::make-array system::structure-subtype-p lisp::subtypep compiler::f-type compiler::shift<< compiler::fast-link-proclaimed-type-p compiler::add-init compiler::add-address compiler::proclaimed-argd compiler::wt-if-proclaimed compiler::vararg-p compiler::maxargs compiler::volatile system::fixnump compiler::analyze-regs compiler::t3defun-aux compiler::wt-downward-closure-macro compiler::add-debug-info compiler::wt-comment compiler::wt-requireds compiler::assign-down-vars compiler::c2expr compiler::wt-v*-macros compiler::vs-push compiler::cvs-push lisp::concatenate compiler::set-up-var-cvs compiler::c2bind-loc compiler::c2bind-init compiler::cs-push compiler::inc-inline-blocks compiler::add-object compiler::baboon compiler::add-symbol compiler::c2bind compiler::wt-vs compiler::close-inline-blocks compiler::c2lambda-expr compiler::wt-cvars compiler::register lisp::warn compiler::analyze-regs1 lisp::remove-duplicates compiler::c1dm compiler::c2dm compiler::wfs-error compiler::parse-cvspecs lisp::char lisp::int lisp::float lisp::double compiler::c2var-kind compiler::wt-var-decl (system::%init . #((system::*make-special (lisp::quote compiler::*objects*)) (lisp::or (lisp::boundp (lisp::quote compiler::*objects*)) (lisp::setq compiler::*objects* lisp::nil)) (system::*make-special (lisp::quote compiler::*constants*)) (lisp::or (lisp::boundp (lisp::quote compiler::*constants*)) (lisp::setq compiler::*constants* lisp::nil)) (system::*make-special (lisp::quote compiler::*sharp-commas*)) (lisp::or (lisp::boundp (lisp::quote compiler::*sharp-commas*)) (lisp::setq compiler::*sharp-commas* lisp::nil)) (system::*make-special (lisp::quote compiler::*function-links*)) (lisp::or (lisp::boundp (lisp::quote compiler::*function-links*)) (lisp::setq compiler::*function-links* lisp::nil)) (system::*make-special (lisp::quote compiler::*c-gc*)) (lisp::or (lisp::boundp (lisp::quote compiler::*c-gc*)) (lisp::setq compiler::*c-gc* lisp::t)) (system::*make-special (lisp::quote compiler::*c-vars*)) (system::*make-special (lisp::quote compiler::*free-address-registers*)) (lisp::or (lisp::boundp (lisp::quote compiler::*free-address-registers*)) (lisp::setq compiler::*free-address-registers* 5)) (system::*make-special (lisp::quote compiler::*free-data-registers*)) (lisp::or (lisp::boundp (lisp::quote compiler::*free-data-registers*)) (lisp::setq compiler::*free-data-registers* 6)) (system::*make-special (lisp::quote compiler::*downward-closures*)) (lisp::or (lisp::boundp (lisp::quote compiler::*downward-closures*)) (lisp::setq compiler::*downward-closures* lisp::nil)) (system::*make-special (lisp::quote compiler::*volatile*)) (system::*make-special (lisp::quote compiler::*setjmps*)) (lisp::or (lisp::boundp (lisp::quote compiler::*setjmps*)) (lisp::setq compiler::*setjmps* 0)) (system::*make-special (lisp::quote compiler::*cs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*cs*)) (lisp::setq compiler::*cs* 0)) (system::*make-special (lisp::quote compiler::*local-functions*)) (lisp::or (lisp::boundp (lisp::quote compiler::*local-functions*)) (lisp::setq compiler::*local-functions* lisp::nil)) (system::*make-special (lisp::quote compiler::*global-funs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*global-funs*)) (lisp::setq compiler::*global-funs* lisp::nil)) (system::*make-special (lisp::quote compiler::*closures*)) (lisp::or (lisp::boundp (lisp::quote compiler::*closures*)) (lisp::setq compiler::*closures* lisp::nil)) (system::*make-special (lisp::quote compiler::*local-funs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*local-funs*)) (lisp::setq compiler::*local-funs* lisp::nil)) (system::*make-special (lisp::quote compiler::*top-level-forms*)) (lisp::or (lisp::boundp (lisp::quote compiler::*top-level-forms*)) (lisp::setq compiler::*top-level-forms* lisp::nil)) (system::*make-special (lisp::quote compiler::*non-package-operation*)) (lisp::or (lisp::boundp (lisp::quote compiler::*non-package-operation*)) (lisp::setq compiler::*non-package-operation* lisp::nil)) (system::*make-special (lisp::quote compiler::*reservations*)) (lisp::or (lisp::boundp (lisp::quote compiler::*reservations*)) (lisp::setq compiler::*reservations* lisp::nil)) (system::*make-special (lisp::quote compiler::*reservation-cmacro*)) (lisp::or (lisp::boundp (lisp::quote compiler::*reservation-cmacro*)) (lisp::setq compiler::*reservation-cmacro* lisp::nil)) (system::*make-special (lisp::quote compiler::*global-entries*)) (lisp::or (lisp::boundp (lisp::quote compiler::*global-entries*)) (lisp::setq compiler::*global-entries* lisp::nil)) (system::putprop (lisp::quote lisp::make-package) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::in-package) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::shadow) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::shadowing-import) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::export) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::unexport) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::use-package) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::unuse-package) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::import) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::provide) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::require) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::eval-when) (lisp::quote compiler::t1eval-when) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::progn) (lisp::quote compiler::t1progn) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defun) (lisp::quote compiler::t1defun) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defmacro) (lisp::quote compiler::t1defmacro) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::clines) (lisp::quote compiler::t1clines) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defcfun) (lisp::quote compiler::t1defcfun) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defentry) (lisp::quote compiler::t1defentry) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defla) (lisp::quote compiler::t1defla) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defconstant) lisp::t (lisp::quote compiler::top-level-macro)) (system::putprop (lisp::quote lisp::defparameter) lisp::t (lisp::quote compiler::top-level-macro)) (system::putprop (lisp::quote lisp::defstruct) lisp::t (lisp::quote compiler::top-level-macro)) (system::putprop (lisp::quote lisp::deftype) lisp::t (lisp::quote compiler::top-level-macro)) (system::putprop (lisp::quote lisp::defsetf) lisp::t (lisp::quote compiler::top-level-macro)) (system::putprop (lisp::quote lisp::defun) (lisp::quote compiler::t2defun) (lisp::quote compiler::t2)) (system::putprop (lisp::quote lisp::defmacro) (lisp::quote compiler::t2defmacro) (lisp::quote compiler::t2)) (system::putprop (lisp::quote compiler::ordinary) (lisp::quote compiler::t2ordinary) (lisp::quote compiler::t2)) (system::putprop (lisp::quote lisp::declare) (lisp::quote compiler::t2declare) (lisp::quote compiler::t2)) (system::putprop (lisp::quote compiler::sharp-comma) (lisp::quote compiler::t2sharp-comma) (lisp::quote compiler::t2)) (system::putprop (lisp::quote lisp::defentry) (lisp::quote compiler::t2defentry) (lisp::quote compiler::t2)) (system::putprop (lisp::quote system::putprop) (lisp::quote compiler::t2putprop) (lisp::quote compiler::t2)) (system::putprop (lisp::quote lisp::defun) (lisp::quote compiler::t3defun) (lisp::quote compiler::t3)) (system::putprop (lisp::quote lisp::defmacro) (lisp::quote compiler::t3defmacro) (lisp::quote compiler::t3)) (system::putprop (lisp::quote lisp::clines) (lisp::quote compiler::t3clines) (lisp::quote compiler::t3)) (system::putprop (lisp::quote lisp::defcfun) (lisp::quote compiler::t3defcfun) (lisp::quote compiler::t3)) (system::putprop (lisp::quote lisp::defentry) (lisp::quote compiler::t3defentry) (lisp::quote compiler::t3)) (system::setvv 2 compiler::*cmperr-tag*) (system::mf (lisp::quote compiler::t1expr) 0) (system::mf (lisp::quote compiler::declaration-type) 1) (system::*make-special (lisp::quote compiler::*vaddress-list*)) (system::*make-special (lisp::quote compiler::*vind*)) (system::*make-special (lisp::quote compiler::*inits*)) (system::mfsfun (lisp::quote compiler::ctop-write) 2 1) (system::*make-special (lisp::quote compiler::*eval-when-defaults*)) (lisp::or (lisp::boundp (lisp::quote compiler::*eval-when-defaults*)) (lisp::setq compiler::*eval-when-defaults* :defaults)) (system::mfsfun (lisp::quote compiler::maybe-eval) 3 2) (system::mf (lisp::quote compiler::t1eval-when) 4) (system::*make-special (lisp::quote compiler::*compile-ordinaries*)) (lisp::or (lisp::boundp (lisp::quote compiler::*compile-ordinaries*)) (lisp::setq compiler::*compile-ordinaries* lisp::nil)) (system::mfsfun (lisp::quote compiler::t1progn) 5 1) (system::mfsfun (lisp::quote compiler::cmpfix-args) 6 2) (system::mfsfun (lisp::quote compiler::t1defun) 7 1) (system::mfsfun (lisp::quote compiler::make-inline-string) 8 2) (system::mfvfun (lisp::quote compiler::cs-push) 9 256) (system::mfsfun (lisp::quote compiler::f-type) 10 257) (system::mfsfun (lisp::quote compiler::proclaimed-argd) 11 258) (system::mfsfun (lisp::quote compiler::wt-if-proclaimed) 12 3) (system::mfsfun (lisp::quote compiler::volatile) 13 1) (system::mfsfun (lisp::quote compiler::register) 14 1) (system::mfsfun (lisp::quote compiler::vararg-p) 15 1) (system::mfsfun (lisp::quote compiler::maxargs) 16 1) (system::mfsfun (lisp::quote compiler::add-address) 17 2) (system::mfsfun (lisp::quote compiler::t2defun) 18 5) (system::mfsfun (lisp::quote system::add-debug) 19 2) (system::mfsfun (lisp::quote compiler::t3defun) 20 5) (system::mf (lisp::quote compiler::t3defun-aux) 21) (system::mfsfun (lisp::quote compiler::t3defun-local-entry) 22 5) (system::*make-special (lisp::quote compiler::*vararg-use-vs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*vararg-use-vs*)) (lisp::setq compiler::*vararg-use-vs* lisp::nil)) (system::mfsfun (lisp::quote compiler::set-up-var-cvs) 23 1) (system::mfsfun (lisp::quote compiler::t3defun-vararg) 24 4) (system::mfsfun (lisp::quote compiler::t3defun-normal) 25 4) (system::mfsfun (lisp::quote compiler::wt-v*-macros) 26 2) (system::mfsfun (lisp::quote compiler::wt-requireds) 27 2) (system::mfsfun (lisp::quote compiler::add-debug-info) 28 2) (system::mfsfun (lisp::quote compiler::analyze-regs) 29 258) (system::mfsfun (lisp::quote compiler::analyze-regs1) 30 258) (system::mfsfun (lisp::quote compiler::wt-global-entry) 31 4) (system::mfsfun (lisp::quote compiler::rep-type) 32 1) (system::mfsfun (lisp::quote compiler::t1defmacro) 33 1) (system::mfsfun (lisp::quote compiler::t2defmacro) 34 6) (system::mfsfun (lisp::quote compiler::t3defmacro) 35 6) (system::mfsfun (lisp::quote compiler::t1ordinary) 36 1) (system::mfsfun (lisp::quote compiler::t2ordinary) 37 1) (system::mfsfun (lisp::quote compiler::add-load-time-sharp-comma) 38 0) (system::mfsfun (lisp::quote compiler::t2sharp-comma) 39 2) (system::mfsfun (lisp::quote compiler::t2declare) 40 1) (system::sputprop (lisp::quote system::*make-special) (lisp::quote compiler::eval-at-compile) lisp::t) (system::sputprop (lisp::quote system::*make-constant) (lisp::quote compiler::eval-at-compile) lisp::t) (system::sputprop (lisp::quote lisp::proclaim) (lisp::quote compiler::eval-at-compile) lisp::t) (system::sputprop (lisp::quote system::define-structure) (lisp::quote compiler::t1) (lisp::quote compiler::t1define-structure)) (system::mfsfun (lisp::quote compiler::t1define-structure) 41 1) (system::putprop (lisp::quote compiler::dbind) (lisp::quote compiler::set-dbind) (lisp::quote compiler::set-loc)) (system::mfsfun (lisp::quote compiler::set-dbind) 42 2) (system::mfsfun (lisp::quote compiler::t1clines) 43 1) (system::mfsfun (lisp::quote compiler::t3clines) 44 1) (system::mfsfun (lisp::quote compiler::t1defcfun) 45 1) (system::mfsfun (lisp::quote compiler::t3defcfun) 46 3) (system::mfsfun (lisp::quote compiler::t1defentry) 47 1) (system::mfsfun (lisp::quote compiler::t2defentry) 48 5) (system::mfsfun (lisp::quote compiler::t3defentry) 49 5) (system::mfsfun (lisp::quote compiler::t1defla) 50 1) (system::mfsfun (lisp::quote compiler::parse-cvspecs) 51 1) (system::mfsfun (lisp::quote compiler::t3local-dcfun) 52 5) (system::mfsfun (lisp::quote compiler::t3local-fun) 53 5) (system::mfsfun (lisp::quote compiler::wt-cvars) 54 0))))

+ ~%T1defun could not assure suitability of args for C call" "VOL " "" "" compiler::*register-min* "register " "" compiler::no-global-entry system::putprop (lisp::quote system::function-documentation) system::mfvfun-key "LI" "&LI~akey" "" system::mfvfun "LI" system::mf "L" "" compiler::*space* compiler::debug-prop system::debug compiler::*downward-closures* "Old style inline" compiler::t3defun-local-entry compiler::return-fixnum compiler::return-character compiler::return-long-float compiler::return-short-float compiler::return-object compiler::t3defun-vararg compiler::t3defun-normal lisp::return compiler::*exit* compiler::*vs* compiler::*max-vs* compiler::*level* compiler::*ccb-vs* compiler::*clink* compiler::*unwind-exit* compiler::*value-to-go* compiler::*reservation-cmacro* compiler::*next-cmacro* compiler::*sup-used* compiler::*restore-avma* compiler::*base-used* compiler::*cs* lisp::character lisp::long-float lisp::short-float "local entry for function " compiler::*tail-recursion-info* compiler::*do-tail-recursion* compiler::t3defun compiler::*compiler-push-events* compiler::tail-recursion-mark compiler::bds-bind "object " compiler::*vararg-use-vs* compiler::*inline-blocks* compiler::cvar "local entry for function " "" lisp::string "object" "," "," "object,..." compiler::*safe-compile* compiler::*compiler-check-args* compiler::*last-label* "--" "" compiler::first-var-arg compiler::next-var-arg compiler::*rest-on-stack* :dynamic-extent compiler::location (compiler::vv compiler::fixnum-value) compiler::dummy compiler::vv compiler::fixnum-value "base " "Vcs " "function definition for " "~a has a duplicate definition in this file" compiler::*free-address-registers* compiler::*free-data-registers* (lisp::fixnum lisp::character lisp::short-float lisp::long-float) 100000 1000000 "global entry for the function " "CMPmake_fixnum" "make_fixnum" "code_char" "make_longfloat" "make_shortfloat" "" "fix" "char_code" "lf" "sf" "" "long " "GEN " "unsigned char " "float " "double " "object " lisp::defmacro "The macro name ~s is not a symbol." (lisp::quote system::function-documentation) (lisp::quote system::pretty-print-format) system::mm "L" compiler::contains-setjmp " VOL " "" "macro definition for " "progn 'compile" (lisp::nil lisp::t) compiler::ordinary lisp::setq lisp::lambda lisp::symbol-function compiler::sharp-comma system::setvv system::define-structure "The argument to CLINE, ~s, is not a string." lisp::clines lisp::defcfun "The first argument to defCfun ~s is not a string." "The second argument to defCfun ~s is not a number." "Special form ~s is not allowed in defCfun." "The defCfun body ~s is illegal." "The defCfun body ~s is illegal." "C function defined by " lisp::defentry "The function name ~s is not a symbol." (lisp::object lisp::char lisp::int lisp::float lisp::double lisp::string) "The C-type ~s is illegal." (lisp::void lisp::object lisp::char lisp::int lisp::float lisp::double lisp::string) "The C function specification ~s is illegal." "L" "function definition for " lisp::void (lisp::object lisp::char lisp::int lisp::float lisp::double) "The C variable name ~s is illegal." "The C variable specification ~s is illegal." "local dc function " "LC" "L" "," "" compiler::*initial-ccb-vs* compiler::t3local-dcfun compiler::dclosure "local function " "LC" "L" "LC" "L" compiler::t3local-fun " ,V~a" ";" " ~a V~a" lisp::integer "= 0,V~aalloc" ";" " object Vcs[~a];" compiler::cmperr compiler::cmpwarn compiler::cmp-expand-macro compiler::maybe-eval compiler::wt-data-package-operation compiler::print-current-form compiler::cmp-macroexpand-1 compiler::t1expr compiler::t1ordinary compiler::wt1 compiler::wt-global-entry compiler::wt-function-link compiler::wt-h1 compiler::push-data-incf compiler::wt-data-file compiler::rep-type compiler::declaration-type compiler::cmp-eval compiler::too-few-args lisp::load lisp::eval compiler::t1progn compiler::c1lambda-expr compiler::check-downward lisp::proclaim compiler::cmpfix-args compiler::type-and compiler::make-inline-string compiler::add-load-time-sharp-comma lisp::make-array system::structure-subtype-p lisp::subtypep compiler::f-type compiler::shift<< compiler::fast-link-proclaimed-type-p compiler::add-init compiler::add-address compiler::proclaimed-argd compiler::wt-if-proclaimed compiler::vararg-p compiler::maxargs compiler::volatile system::fixnump compiler::analyze-regs compiler::t3defun-aux compiler::wt-downward-closure-macro compiler::add-debug-info compiler::wt-comment compiler::wt-requireds compiler::assign-down-vars compiler::c2expr compiler::wt-v*-macros compiler::vs-push compiler::cvs-push lisp::concatenate compiler::set-up-var-cvs compiler::c2bind-loc compiler::c2bind-init compiler::cs-push compiler::inc-inline-blocks compiler::add-object compiler::baboon compiler::add-symbol compiler::c2bind compiler::wt-vs compiler::close-inline-blocks compiler::c2lambda-expr compiler::wt-cvars compiler::register lisp::warn compiler::analyze-regs1 lisp::remove-duplicates compiler::c1dm compiler::c2dm compiler::wfs-error compiler::parse-cvspecs lisp::char lisp::int lisp::float lisp::double compiler::c2var-kind compiler::wt-var-decl (system::%init . #((system::*make-special (lisp::quote compiler::*objects*)) (lisp::or (lisp::boundp (lisp::quote compiler::*objects*)) (lisp::setq compiler::*objects* lisp::nil)) (system::*make-special (lisp::quote compiler::*constants*)) (lisp::or (lisp::boundp (lisp::quote compiler::*constants*)) (lisp::setq compiler::*constants* lisp::nil)) (system::*make-special (lisp::quote compiler::*sharp-commas*)) (lisp::or (lisp::boundp (lisp::quote compiler::*sharp-commas*)) (lisp::setq compiler::*sharp-commas* lisp::nil)) (system::*make-special (lisp::quote compiler::*function-links*)) (lisp::or (lisp::boundp (lisp::quote compiler::*function-links*)) (lisp::setq compiler::*function-links* lisp::nil)) (system::*make-special (lisp::quote compiler::*c-gc*)) (lisp::or (lisp::boundp (lisp::quote compiler::*c-gc*)) (lisp::setq compiler::*c-gc* lisp::t)) (system::*make-special (lisp::quote compiler::*c-vars*)) (system::*make-special (lisp::quote compiler::*free-address-registers*)) (lisp::or (lisp::boundp (lisp::quote compiler::*free-address-registers*)) (lisp::setq compiler::*free-address-registers* 5)) (system::*make-special (lisp::quote compiler::*free-data-registers*)) (lisp::or (lisp::boundp (lisp::quote compiler::*free-data-registers*)) (lisp::setq compiler::*free-data-registers* 6)) (system::*make-special (lisp::quote compiler::*downward-closures*)) (lisp::or (lisp::boundp (lisp::quote compiler::*downward-closures*)) (lisp::setq compiler::*downward-closures* lisp::nil)) (system::*make-special (lisp::quote compiler::*volatile*)) (system::*make-special (lisp::quote compiler::*setjmps*)) (lisp::or (lisp::boundp (lisp::quote compiler::*setjmps*)) (lisp::setq compiler::*setjmps* 0)) (system::*make-special (lisp::quote compiler::*cs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*cs*)) (lisp::setq compiler::*cs* 0)) (system::*make-special (lisp::quote compiler::*local-functions*)) (lisp::or (lisp::boundp (lisp::quote compiler::*local-functions*)) (lisp::setq compiler::*local-functions* lisp::nil)) (system::*make-special (lisp::quote compiler::*global-funs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*global-funs*)) (lisp::setq compiler::*global-funs* lisp::nil)) (system::*make-special (lisp::quote compiler::*closures*)) (lisp::or (lisp::boundp (lisp::quote compiler::*closures*)) (lisp::setq compiler::*closures* lisp::nil)) (system::*make-special (lisp::quote compiler::*local-funs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*local-funs*)) (lisp::setq compiler::*local-funs* lisp::nil)) (system::*make-special (lisp::quote compiler::*top-level-forms*)) (lisp::or (lisp::boundp (lisp::quote compiler::*top-level-forms*)) (lisp::setq compiler::*top-level-forms* lisp::nil)) (system::*make-special (lisp::quote compiler::*non-package-operation*)) (lisp::or (lisp::boundp (lisp::quote compiler::*non-package-operation*)) (lisp::setq compiler::*non-package-operation* lisp::nil)) (system::*make-special (lisp::quote compiler::*reservations*)) (lisp::or (lisp::boundp (lisp::quote compiler::*reservations*)) (lisp::setq compiler::*reservations* lisp::nil)) (system::*make-special (lisp::quote compiler::*reservation-cmacro*)) (lisp::or (lisp::boundp (lisp::quote compiler::*reservation-cmacro*)) (lisp::setq compiler::*reservation-cmacro* lisp::nil)) (system::*make-special (lisp::quote compiler::*global-entries*)) (lisp::or (lisp::boundp (lisp::quote compiler::*global-entries*)) (lisp::setq compiler::*global-entries* lisp::nil)) (system::putprop (lisp::quote lisp::make-package) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::in-package) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::shadow) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::shadowing-import) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::export) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::unexport) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::use-package) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::unuse-package) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::import) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::provide) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::require) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote defpackage::defpackage) lisp::t (lisp::quote compiler::package-operation)) (system::putprop (lisp::quote lisp::eval-when) (lisp::quote compiler::t1eval-when) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::progn) (lisp::quote compiler::t1progn) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defun) (lisp::quote compiler::t1defun) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defmacro) (lisp::quote compiler::t1defmacro) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::clines) (lisp::quote compiler::t1clines) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defcfun) (lisp::quote compiler::t1defcfun) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defentry) (lisp::quote compiler::t1defentry) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defla) (lisp::quote compiler::t1defla) (lisp::quote compiler::t1)) (system::putprop (lisp::quote lisp::defconstant) lisp::t (lisp::quote compiler::top-level-macro)) (system::putprop (lisp::quote lisp::defparameter) lisp::t (lisp::quote compiler::top-level-macro)) (system::putprop (lisp::quote lisp::defstruct) lisp::t (lisp::quote compiler::top-level-macro)) (system::putprop (lisp::quote lisp::deftype) lisp::t (lisp::quote compiler::top-level-macro)) (system::putprop (lisp::quote lisp::defsetf) lisp::t (lisp::quote compiler::top-level-macro)) (system::putprop (lisp::quote lisp::defun) (lisp::quote compiler::t2defun) (lisp::quote compiler::t2)) (system::putprop (lisp::quote lisp::defmacro) (lisp::quote compiler::t2defmacro) (lisp::quote compiler::t2)) (system::putprop (lisp::quote compiler::ordinary) (lisp::quote compiler::t2ordinary) (lisp::quote compiler::t2)) (system::putprop (lisp::quote lisp::declare) (lisp::quote compiler::t2declare) (lisp::quote compiler::t2)) (system::putprop (lisp::quote compiler::sharp-comma) (lisp::quote compiler::t2sharp-comma) (lisp::quote compiler::t2)) (system::putprop (lisp::quote lisp::defentry) (lisp::quote compiler::t2defentry) (lisp::quote compiler::t2)) (system::putprop (lisp::quote system::putprop) (lisp::quote compiler::t2putprop) (lisp::quote compiler::t2)) (system::putprop (lisp::quote lisp::defun) (lisp::quote compiler::t3defun) (lisp::quote compiler::t3)) (system::putprop (lisp::quote lisp::defmacro) (lisp::quote compiler::t3defmacro) (lisp::quote compiler::t3)) (system::putprop (lisp::quote lisp::clines) (lisp::quote compiler::t3clines) (lisp::quote compiler::t3)) (system::putprop (lisp::quote lisp::defcfun) (lisp::quote compiler::t3defcfun) (lisp::quote compiler::t3)) (system::putprop (lisp::quote lisp::defentry) (lisp::quote compiler::t3defentry) (lisp::quote compiler::t3)) (system::setvv 2 compiler::*cmperr-tag*) (system::mf (lisp::quote compiler::t1expr) 0) (system::mf (lisp::quote compiler::declaration-type) 1) (system::*make-special (lisp::quote compiler::*vaddress-list*)) (system::*make-special (lisp::quote compiler::*vind*)) (system::*make-special (lisp::quote compiler::*inits*)) (system::mfsfun (lisp::quote compiler::ctop-write) 2 1) (system::*make-special (lisp::quote compiler::*eval-when-defaults*)) (lisp::or (lisp::boundp (lisp::quote compiler::*eval-when-defaults*)) (lisp::setq compiler::*eval-when-defaults* :defaults)) (system::mfsfun (lisp::quote compiler::maybe-eval) 3 2) (system::mf (lisp::quote compiler::t1eval-when) 4) (system::*make-special (lisp::quote compiler::*compile-ordinaries*)) (lisp::or (lisp::boundp (lisp::quote compiler::*compile-ordinaries*)) (lisp::setq compiler::*compile-ordinaries* lisp::nil)) (system::mfsfun (lisp::quote compiler::t1progn) 5 1) (system::mfsfun (lisp::quote compiler::cmpfix-args) 6 2) (system::mfsfun (lisp::quote compiler::t1defun) 7 1) (system::mfsfun (lisp::quote compiler::make-inline-string) 8 2) (system::mfvfun (lisp::quote compiler::cs-push) 9 256) (system::mfsfun (lisp::quote compiler::f-type) 10 257) (system::mfsfun (lisp::quote compiler::proclaimed-argd) 11 258) (system::mfsfun (lisp::quote compiler::wt-if-proclaimed) 12 3) (system::mfsfun (lisp::quote compiler::volatile) 13 1) (system::mfsfun (lisp::quote compiler::register) 14 1) (system::mfsfun (lisp::quote compiler::vararg-p) 15 1) (system::mfsfun (lisp::quote compiler::maxargs) 16 1) (system::mfsfun (lisp::quote compiler::add-address) 17 2) (system::mfsfun (lisp::quote compiler::t2defun) 18 5) (system::mfsfun (lisp::quote system::add-debug) 19 2) (system::mfsfun (lisp::quote compiler::t3defun) 20 5) (system::mf (lisp::quote compiler::t3defun-aux) 21) (system::mfsfun (lisp::quote compiler::t3defun-local-entry) 22 5) (system::*make-special (lisp::quote compiler::*vararg-use-vs*)) (lisp::or (lisp::boundp (lisp::quote compiler::*vararg-use-vs*)) (lisp::setq compiler::*vararg-use-vs* lisp::nil)) (system::mfsfun (lisp::quote compiler::set-up-var-cvs) 23 1) (system::mfsfun (lisp::quote compiler::t3defun-vararg) 24 4) (system::mfsfun (lisp::quote compiler::t3defun-normal) 25 4) (system::mfsfun (lisp::quote compiler::wt-v*-macros) 26 2) (system::mfsfun (lisp::quote compiler::wt-requireds) 27 2) (system::mfsfun (lisp::quote compiler::add-debug-info) 28 2) (system::mfsfun (lisp::quote compiler::analyze-regs) 29 258) (system::mfsfun (lisp::quote compiler::analyze-regs1) 30 258) (system::mfsfun (lisp::quote compiler::wt-global-entry) 31 4) (system::mfsfun (lisp::quote compiler::rep-type) 32 1) (system::mfsfun (lisp::quote compiler::t1defmacro) 33 1) (system::mfsfun (lisp::quote compiler::t2defmacro) 34 6) (system::mfsfun (lisp::quote compiler::t3defmacro) 35 6) (system::mfsfun (lisp::quote compiler::t1ordinary) 36 1) (system::mfsfun (lisp::quote compiler::t2ordinary) 37 1) (system::mfsfun (lisp::quote compiler::add-load-time-sharp-comma) 38 0) (system::mfsfun (lisp::quote compiler::t2sharp-comma) 39 2) (system::mfsfun (lisp::quote compiler::t2declare) 40 1) (system::sputprop (lisp::quote system::*make-special) (lisp::quote compiler::eval-at-compile) lisp::t) (system::sputprop (lisp::quote system::*make-constant) (lisp::quote compiler::eval-at-compile) lisp::t) (system::sputprop (lisp::quote lisp::proclaim) (lisp::quote compiler::eval-at-compile) lisp::t) (system::sputprop (lisp::quote system::define-structure) (lisp::quote compiler::t1) (lisp::quote compiler::t1define-structure)) (system::mfsfun (lisp::quote compiler::t1define-structure) 41 1) (system::putprop (lisp::quote compiler::dbind) (lisp::quote compiler::set-dbind) (lisp::quote compiler::set-loc)) (system::mfsfun (lisp::quote compiler::set-dbind) 42 2) (system::mfsfun (lisp::quote compiler::t1clines) 43 1) (system::mfsfun (lisp::quote compiler::t3clines) 44 1) (system::mfsfun (lisp::quote compiler::t1defcfun) 45 1) (system::mfsfun (lisp::quote compiler::t3defcfun) 46 3) (system::mfsfun (lisp::quote compiler::t1defentry) 47 1) (system::mfsfun (lisp::quote compiler::t2defentry) 48 5) (system::mfsfun (lisp::quote compiler::t3defentry) 49 5) (system::mfsfun (lisp::quote compiler::t1defla) 50 1) (system::mfsfun (lisp::quote compiler::parse-cvspecs) 51 1) (system::mfsfun (lisp::quote compiler::t3local-dcfun) 52 5) (system::mfsfun (lisp::quote compiler::t3local-fun) 53 5) (system::mfsfun (lisp::quote compiler::wt-cvars) 54 0))))

)

diff --git a/gcl/cmpnew/cmptop.h b/gcl/cmpnew/cmptop.h
index c415138c3..b543fc25b 100755
--- a/gcl/cmpnew/cmptop.h
+++ b/gcl/cmpnew/cmptop.h

@@ -3,10 +3,10 @@ static void L1();

static void L2();

static void L5();

static void L22();

-#define VC1 object V12 ,V11 ,V10 ,V9 ,V7 ,V6 ,V5;

+#define VC1 object V14 ,V13 ,V12 ,V11 ,V9 ,V8 ,V7 ,V5;

#define VC2

static object LI3();

-#define VMB3 register object *base=vs_top; object V50 ,V49 ,V48 ,V47 ,V46 ,V38 ,V36 ,V31;

+#define VMB3 register object *base=vs_top; object V52 ,V51 ,V50 ,V49 ,V48 ,V40 ,V38 ,V33;

#define VMS3 register object *sup=vs_top+11;vs_top=sup;

#define VMV3 vs_reserve(11);

#define VMR3(VMT3) vs_top=base ; return(VMT3);

@@ -22,12 +22,12 @@ static object LI6();

#define VMV6 vs_reserve(2);

#define VMR6(VMT6) vs_top=base ; return(VMT6);

static object LI7();

-#define VMB7 register object *base=vs_top; object V84;

+#define VMB7 register object *base=vs_top; object V86;

#define VMS7 register object *sup=vs_top+3;vs_top=sup;

#define VMV7 vs_reserve(3);

#define VMR7(VMT7) vs_top=base ; return(VMT7);

static object LI8();

-#define VMB8 register object *base=vs_top; object V128 ,V125 ,V123 ,V122 ,V121 ,V119 ,V118 ,V116 ,V114 ,V113 ,V112 ,V111 ,V109 ,V108 ,V107 ,V100 ,V99 ,V97 ,V91 ,V90;

+#define VMB8 register object *base=vs_top; object V130 ,V127 ,V125 ,V124 ,V123 ,V121 ,V120 ,V118 ,V116 ,V115 ,V114 ,V113 ,V111 ,V110 ,V109 ,V102 ,V101 ,V99 ,V93 ,V92;

#define VMS8 register object *sup=vs_top+9;vs_top=sup;

#define VMV8 vs_reserve(9);

#define VMR8(VMT8) vs_top=base ; return(VMT8);

@@ -47,12 +47,12 @@ static object LI11();

#define VMV11 vs_reserve(2);

#define VMR11(VMT11) vs_top=base ; return(VMT11);

static object LI12();

-#define VMB12 object V156;

+#define VMB12 object V158;

#define VMS12

#define VMV12

#define VMR12(VMT12) return(VMT12);

static object LI13();

-#define VMB13 register object *base=vs_top; object V181 ,V180 ,V179 ,V177 ,V175 ,V170 ,V169 ,V168 ,V167 ,V166 ,V165;

+#define VMB13 register object *base=vs_top; object V183 ,V182 ,V181 ,V179 ,V177 ,V172 ,V171 ,V170 ,V169 ,V168 ,V167;

#define VMS13 register object *sup=vs_top+1;vs_top=sup;

#define VMV13 vs_reserve(1);

#define VMR13(VMT13) vs_top=base ; return(VMT13);

@@ -67,12 +67,12 @@ static object LI15();

#define VMV15

#define VMR15(VMT15) return(VMT15);

static object LI16();

-#define VMB16 object V195;

+#define VMB16 object V197;

#define VMS16

#define VMV16

#define VMR16(VMT16) return(VMT16);

static object LI17();

-#define VMB17 register object *base=vs_top; object V204;

+#define VMB17 register object *base=vs_top; object V206;

#define VMS17 register object *sup=vs_top+3;vs_top=sup;

#define VMV17 vs_reserve(3);

#define VMR17(VMT17) vs_top=base ; return(VMT17);

@@ -82,7 +82,7 @@ static object LI18();

#define VMV18 vs_reserve(1);

#define VMR18(VMT18) vs_top=base ; return(VMT18);

static object LI19();

-#define VMB19 register object *base=vs_top; object V244 ,V243 ,V242 ,V241 ,V240 ,V239 ,V238 ,V237 ,V236 ,V235 ,V234 ,V233 ,V232 ,V231 ,V230 ,V229 ,V228 ,V227 ,V224;

+#define VMB19 register object *base=vs_top; object V246 ,V245 ,V244 ,V243 ,V242 ,V241 ,V240 ,V239 ,V238 ,V237 ,V236 ,V235 ,V234 ,V233 ,V232 ,V231 ,V230 ,V229 ,V226;

#define VMS19 register object *sup=vs_top+3;vs_top=sup;

#define VMV19 vs_reserve(3);

#define VMR19(VMT19) vs_top=base ; return(VMT19);

@@ -92,28 +92,28 @@ static object LI20();

#define VMV20

#define VMR20(VMT20) return(VMT20);

static object LI21();

-#define VMB21 register object *base=vs_top; object V270 ,V269 ,V267;

+#define VMB21 register object *base=vs_top; object V272 ,V271 ,V269;

#define VMS21 register object *sup=vs_top+10;vs_top=sup;

#define VMV21 vs_reserve(10);

#define VMR21(VMT21) vs_top=base ; return(VMT21);

#define VC22

static object LI23();

-#define VMB23 register object *base=vs_top; object V306 ,V304 ,V300 ,V298 ,V297 ,V296 ,V294 ,V293 ,V292 ,V291 ,V289;

+#define VMB23 register object *base=vs_top; object V308 ,V306 ,V302 ,V300 ,V299 ,V298 ,V296 ,V295 ,V294 ,V293 ,V291;

#define VMS23 register object *sup=vs_top+4;vs_top=sup;

#define VMV23 vs_reserve(4);

#define VMR23(VMT23) vs_top=base ; return(VMT23);

static object LI24();

-#define VMB24 object V312 ,V310;

+#define VMB24 object V314 ,V312;

#define VMS24

#define VMV24

#define VMR24(VMT24) return(VMT24);

static object LI25();

-#define VMB25 register object *base=vs_top; object V412 ,V410 ,V409 ,V408 ,V407 ,V405 ,V402 ,V401 ,V400 ,V398 ,V397 ,V396 ,V393 ,V390 ,V380 ,V377 ,V376 ,V375 ,V374 ,V373 ,V367 ,V366 ,V365 ,V360 ,V349 ,V342 ,V341 ,V340;

+#define VMB25 register object *base=vs_top; object V414 ,V412 ,V411 ,V410 ,V409 ,V407 ,V404 ,V403 ,V402 ,V400 ,V399 ,V398 ,V395 ,V392 ,V382 ,V379 ,V378 ,V377 ,V376 ,V375 ,V369 ,V368 ,V367 ,V362 ,V351 ,V344 ,V343 ,V342;

#define VMS25 register object *sup=vs_top+13;vs_top=sup;

#define VMV25 vs_reserve(13);

#define VMR25(VMT25) vs_top=base ; return(VMT25);

static object LI27();

-#define VMB26 register object *base=vs_top; object V422;

+#define VMB26 register object *base=vs_top; object V424;

#define VMS26 vs_top += 1;

#define VMV26 vs_reserve(1);

#define VMR26(VMT26) vs_top=base ; return(VMT26);

@@ -123,17 +123,17 @@ static object LI28();

#define VMV27 vs_reserve(1);

#define VMR27(VMT27) vs_top=base ; return(VMT27);

static object LI29();

-#define VMB28 object V444 ,V443 ,V442;

+#define VMB28 object V446 ,V445 ,V444;

#define VMS28

#define VMV28

#define VMR28(VMT28) return(VMT28);

static object LI30();

-#define VMB29 register object *base=vs_top; object V471 ,V470 ,V468 ,V464 ,V463 ,V459 ,V458 ,V457;

+#define VMB29 register object *base=vs_top; object V473 ,V472 ,V470 ,V466 ,V465 ,V461 ,V460 ,V459;

#define VMS29 register object *sup=vs_top+4;vs_top=sup;

#define VMV29 vs_reserve(4);

#define VMR29(VMT29) vs_top=base ; return(VMT29);

static object LI31();

-#define VMB30 register object *base=vs_top; object V486 ,V479;

+#define VMB30 register object *base=vs_top; object V488 ,V481;

#define VMS30 vs_top += 1;

#define VMV30 vs_reserve(1);

#define VMR30(VMT30) vs_top=base ; return(VMT30);

@@ -143,7 +143,7 @@ static object LI32();

#define VMV31 vs_reserve(1);

#define VMR31(VMT31) vs_top=base ; return(VMT31);

static object LI33();

-#define VMB32 object V525 ,V523 ,V519 ,V518;

+#define VMB32 object V527 ,V525 ,V521 ,V520;

#define VMS32

#define VMV32

#define VMR32(VMT32) return(VMT32);

@@ -153,22 +153,22 @@ static object LI34();

#define VMV33

#define VMR33(VMT33) return(VMT33);

static object LI35();

-#define VMB34 register object *base=vs_top; object V539 ,V538;

+#define VMB34 register object *base=vs_top; object V541 ,V540;

#define VMS34 vs_top += 7;

#define VMV34 vs_reserve(7);

#define VMR34(VMT34) vs_top=base ; return(VMT34);

static object LI36();

-#define VMB35 object V560 ,V559 ,V558 ,V557 ,V556;

+#define VMB35 object V562 ,V561 ,V560 ,V559 ,V558;

#define VMS35

#define VMV35

#define VMR35(VMT35) return(VMT35);

static object LI37();

-#define VMB36 register object *base=vs_top; object V574;

+#define VMB36 register object *base=vs_top; object V576;

#define VMS36 register object *sup=vs_top+19;vs_top=sup;

#define VMV36 vs_reserve(19);

#define VMR36(VMT36) vs_top=base ; return(VMT36);

static object LI38();

-#define VMB37 register object *base=vs_top; object V591 ,V590 ,V589 ,V585 ,V581;

+#define VMB37 register object *base=vs_top; object V593 ,V592 ,V591 ,V587 ,V583;

#define VMS37 register object *sup=vs_top+6;vs_top=sup;

#define VMV37 vs_reserve(6);

#define VMR37(VMT37) vs_top=base ; return(VMT37);

@@ -183,7 +183,7 @@ static object LI40();

#define VMV39 vs_reserve(3);

#define VMR39(VMT39) vs_top=base ; return(VMT39);

static object LI41();

-#define VMB40 object V610;

+#define VMB40 object V612;

#define VMS40

#define VMV40

#define VMR40(VMT40) return(VMT40);

@@ -193,7 +193,7 @@ static object LI42();

#define VMV41

#define VMR41(VMT41) return(VMT41);

static object LI43();

-#define VMB42 object V621 ,V620 ,V619 ,V618 ,V617;

+#define VMB42 object V623 ,V622 ,V621 ,V620 ,V619;

#define VMS42

#define VMV42

#define VMR42(VMT42) return(VMT42);

@@ -213,27 +213,27 @@ static object LI46();

#define VMV45 vs_reserve(1);

#define VMR45(VMT45) vs_top=base ; return(VMT45);

static object LI47();

-#define VMB46 register object *base=vs_top; object V659 ,V658 ,V656 ,V655 ,V654 ,V653 ,V652 ,V650 ,V649 ,V648 ,V642;

+#define VMB46 register object *base=vs_top; object V661 ,V660 ,V658 ,V657 ,V656 ,V655 ,V654 ,V652 ,V651 ,V650 ,V644;

#define VMS46 register object *sup=vs_top+3;vs_top=sup;

#define VMV46 vs_reserve(3);

#define VMR46(VMT46) vs_top=base ; return(VMT46);

static object LI48();

-#define VMB47 register object *base=vs_top; object V685 ,V681 ,V679 ,V678 ,V677 ,V676 ,V671;

+#define VMB47 register object *base=vs_top; object V687 ,V683 ,V681 ,V680 ,V679 ,V678 ,V673;

#define VMS47 register object *sup=vs_top+4;vs_top=sup;

#define VMV47 vs_reserve(4);

#define VMR47(VMT47) vs_top=base ; return(VMT47);

static object LI49();

-#define VMB48 register object *base=vs_top; object V693;

+#define VMB48 register object *base=vs_top; object V695;

#define VMS48 register object *sup=vs_top+3;vs_top=sup;

#define VMV48 vs_reserve(3);

#define VMR48(VMT48) vs_top=base ; return(VMT48);

static object LI50();

-#define VMB49 object V712 ,V711;

+#define VMB49 object V714 ,V713;

#define VMS49

#define VMV49

#define VMR49(VMT49) return(VMT49);

static object LI51();

-#define VMB50 register object *base=vs_top; object V732 ,V731 ,V730 ,V726 ,V725;

+#define VMB50 register object *base=vs_top; object V734 ,V733 ,V732 ,V728 ,V727;

#define VMS50 register object *sup=vs_top+1;vs_top=sup;

#define VMV50 vs_reserve(1);

#define VMR50(VMT50) vs_top=base ; return(VMT50);

@@ -243,17 +243,17 @@ static object LI52();

#define VMV51

#define VMR51(VMT51) return(VMT51);

static object LI53();

-#define VMB52 register object *base=vs_top; object V752 ,V751 ,V745;

+#define VMB52 register object *base=vs_top; object V754 ,V753 ,V747;

#define VMS52 register object *sup=vs_top+5;vs_top=sup;

#define VMV52 vs_reserve(5);

#define VMR52(VMT52) vs_top=base ; return(VMT52);

static object LI54();

-#define VMB53 register object *base=vs_top; object V773 ,V772 ,V771 ,V770 ,V769 ,V768 ,V767 ,V766;

+#define VMB53 register object *base=vs_top; object V775 ,V774 ,V773 ,V772 ,V771 ,V770 ,V769 ,V768;

#define VMS53 register object *sup=vs_top+20;vs_top=sup;

#define VMV53 vs_reserve(20);

#define VMR53(VMT53) vs_top=base ; return(VMT53);

static object LI55();

-#define VMB54 register object *base=vs_top; object V808 ,V807 ,V805 ,V804 ,V803 ,V802 ,V801 ,V800 ,V799 ,V796 ,V795 ,V794 ,V791 ,V790 ,V789 ,V788 ,V787;

+#define VMB54 register object *base=vs_top; object V810 ,V809 ,V807 ,V806 ,V805 ,V804 ,V803 ,V802 ,V801 ,V798 ,V797 ,V796 ,V793 ,V792 ,V791 ,V790 ,V789;

#define VMS54 vs_top += 18;

#define VMV54 vs_reserve(18);

#define VMR54(VMT54) vs_top=base ; return(VMT54);

@@ -263,7 +263,7 @@ static object LI56();

#define VMV55 vs_reserve(5);

#define VMR55(VMT55) vs_top=base ; return(VMT55);

static void L26();

-#define VC56 object V818;

+#define VC56 object V820;

#define VM56 2

#define VM55 5

#define VM54 18

@@ -519,14 +519,14 @@ static object LnkTLI274(object,...);

static object (*LnkLI274)() = (object (*)()) LnkTLI274;

static object LnkTLI273(object,...);

static object (*LnkLI273)() = (object (*)()) LnkTLI273;

-static object LnkTLI272(object,...);

-static object (*LnkLI272)() = (object (*)()) LnkTLI272;

-static void LnkT271();

-static void (*Lnk271)() = LnkT271;

-static object LnkTLI270(object,...);

-static object (*LnkLI270)() = (object (*)()) LnkTLI270;

-static object LnkTLI269();

-static object (*LnkLI269)() = LnkTLI269;

+static void LnkT272();

+static void (*Lnk272)() = LnkT272;

+static object LnkTLI271(object,...);

+static object (*LnkLI271)() = (object (*)()) LnkTLI271;

+static object LnkTLI270();

+static object (*LnkLI270)() = LnkTLI270;

+static object LnkTLI269(object,...);

+static object (*LnkLI269)() = (object (*)()) LnkTLI269;

static object LnkTLI268(object,...);

static object (*LnkLI268)() = (object (*)()) LnkTLI268;

static object LnkTLI267(object,...);