#(#! 
(lisp::in-package (lisp::quote user::compiler))
#(#\- #\_ #\/ #\. #\! #\E #\* #\A #\$ "code" #p".lsp" :host :device :directory :name :version "gcl_" 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::*vcs-used* 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* "LC" compiler::fun compiler::*reservations* compiler::*next-vv* 2147483647 ")," ")" compiler::proclaimed-closure "" "" compiler::eval-at-compile :defaults compiler::*eval-when-defaults* lisp::compi
 le 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* "~d()" "LI" :element-type lisp::string-char :fill-pointer :adjustable "~d(" "LI" "#~d)" "#~d," compiler::*next-c
 var* 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" "L" 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 " "LI" "LI
 " 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 " "" "LI" lisp::string "object" "," "," "object,..." "LI" 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 " "L" "~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 " "L" "CMPmake_fixnum" "make_fixnum" "code_char" "make_longfloat" "make_shortfloat" "" "LI" "fix" "char_code
 " "lf" "sf" "" "long " "GEN " "unsigned char " "float " "dou!
 ble " "o
bject " lisp::defmacro "The macro name ~s is not a symbol." (lisp::quote system::function-documentation) (lisp::quote system::pretty-print-format) "L" system::mm "L" compiler::contains-setjmp " VOL " "" "macro definition for " "L" "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 " "L" "L" 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" "L" "function definition for " "L" 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::dash-to-underscore-int compiler::init-name compiler::dash-to-underscore lisp::write-to-string system::string-concatenate 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::c-function-name compiler::push-data-incf compiler::wt-data-file compiler::rep-type compiler::declarati
 on-type compiler::cmp-eval compiler::too-few-args lisp::load!
  :load-t
oplevel :compile-toplevel lisp::eval :execute compiler::t1progn compiler::c1lambda-expr compiler::check-downward lisp::proclaim compiler::cmpfix-args compiler::type-and compiler::bsearchleq 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::ad
 d-symbol compiler::c2bind compiler::wt-vs compiler::close-inline-blocks compiler::c2lambda-expr compiler::wt-cvars compiler::register lisp::warn compiler::analyze-regs1 compiler::make-info compiler::push-array 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 (lis
 p::quote compiler::*function-links*)) (lisp::setq compiler::!
 *functio
n-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::s
 etq 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)) (syste!
 m::*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::q
 uote 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 com!
 piler::t
3defun) (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::mfsfun (lisp::quote compiler::dash-to-underscore-int) 0 81923) (system::mfsfun (lisp::quote compiler::dash-to-underscore) 1 1) (system::mfvfun (lisp::quote compiler::init-name) 2 1281) (system::mfsfun (lisp::quote compiler::c-function-name) 3 16387) (system::setvv 19 compiler::*cmperr-tag*) (system::mf (lisp::quote compiler::t1expr) 4) (system::mfsfun (lisp::quote compiler::declaration-type) 5 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) 6 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) 7 2) (system::mf (lisp::quote compiler::t1eval-when) 8) (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) 9 1) (system::mfsfun (lisp::quote compiler::cmpfix-args) 10 2) (system::mfsfun (lisp::quote compiler::t1defun) 11 1) (system::mfsfun (lisp::quote compiler::make-inline-string) 12 3) (system::mfvfun (lisp::quote compiler::cs-push) 13 256) (system::mfsfun (lisp::quote compiler::f-type) 14 257) (system::mfsfun (lisp::quote compiler
 ::proclaimed-argd) 15 258) (system::mfsfun (lisp::quote comp!
 iler::wt
-if-proclaimed) 16 3) (system::mfsfun (lisp::quote compiler::volatile) 17 1) (system::mfsfun (lisp::quote compiler::register) 18 1) (system::mfsfun (lisp::quote compiler::vararg-p) 19 1) (system::mfsfun (lisp::quote compiler::maxargs) 20 1) (system::mfsfun (lisp::quote compiler::add-address) 21 1) (system::mfsfun (lisp::quote compiler::t2defun) 22 5) (system::mfsfun (lisp::quote system::add-debug) 23 2) (system::mfsfun (lisp::quote compiler::t3defun) 24 5) (system::mf (lisp::quote compiler::t3defun-aux) 25) (system::mfsfun (lisp::quote compiler::t3defun-local-entry) 26 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) 27 1) (system::mfsfun (lisp::quote compiler::t3defun-vararg) 28 4) (system::mfsfun (lisp::quote compiler::t3defun-normal) 29 4) (system::mfsfun (lisp::quote compiler::wt-v*-macr
 os) 30 2) (system::mfsfun (lisp::quote compiler::wt-requireds) 31 2) (system::mfsfun (lisp::quote compiler::add-debug-info) 32 2) (system::mfsfun (lisp::quote compiler::analyze-regs) 33 258) (system::mfsfun (lisp::quote compiler::analyze-regs1) 34 258) (system::mfsfun (lisp::quote compiler::wt-global-entry) 35 4) (system::mfsfun (lisp::quote compiler::rep-type) 36 1) (system::mfsfun (lisp::quote compiler::t1defmacro) 37 1) (system::mfsfun (lisp::quote compiler::t2defmacro) 38 6) (system::mfsfun (lisp::quote compiler::t3defmacro) 39 6) (system::mfsfun (lisp::quote compiler::t1ordinary) 40 1) (system::mfsfun (lisp::quote compiler::t2ordinary) 41 1) (system::mfsfun (lisp::quote compiler::add-load-time-sharp-comma) 42 0) (system::mfsfun (lisp::quote compiler::t2sharp-comma) 43 2) (system::mfsfun (lisp::quote compiler::t2declare) 44 1) (system::sputprop (lisp::quote system::*make-special) (lisp::quote compiler::eval-at-compile) lisp::t) (system::sputprop (lisp::quote system::*mak
 e-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) 45 1) (system::putprop (lisp::quote compiler::dbind) (lisp::quote compiler::set-dbind) (lisp::quote compiler::set-loc)) (system::mfsfun (lisp::quote compiler::set-dbind) 46 2) (system::mfsfun (lisp::quote compiler::t1clines) 47 1) (system::mfsfun (lisp::quote compiler::t3clines) 48 1) (system::mfsfun (lisp::quote compiler::t1defcfun) 49 1) (system::mfsfun (lisp::quote compiler::t3defcfun) 50 3) (system::mfsfun (lisp::quote compiler::t1defentry) 51 1) (system::mfsfun (lisp::quote compiler::t2defentry) 52 5) (system::mfsfun (lisp::quote compiler::t3defentry) 53 5) (system::mfsfun (lisp::quote compiler::t1defla) 54 1) (system::mfsfun (lisp::quote compiler::parse-cvspecs) 55 1) (system::mfvfun (lisp::quote co
 mpiler::t3local-dcfun) 56 1541) (system::mfvfun (lisp::quote compiler::t3local-fun) 57 1541) (system::mfsfun (lisp::quote compiler::wt-cvars) 58 0) (system::debug (lisp::quote compiler::init-name) (lisp::quote (compiler::p compiler::sp compiler::gp compiler::dc compiler::nt))) (system::debug (lisp::quote compiler::t1expr) (lisp::quote (compiler::form))) (system::debug (lisp::quote compiler::ctop-write) (lisp::quote (compiler::*function-links* lisp::nil lisp::nil compiler::*vaddress-list* compiler::*vind* lisp::nil lisp::nil lisp::nil compiler::x))) (system::debug (lisp::quote compiler::t1eval-when) (lisp::quote (compiler::args #:g6384 compiler::situation))) (system::debug (lisp::quote compiler::t1progn) (lisp::quote (compiler::form))) (system::debug (lisp::quote compiler::cmpfix-args) (lisp::quote (compiler::lam compiler::v #:g6899))) (system::debug (lisp::quote compiler::t1defun) (lisp::quote (lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil compiler::*special-binding* #:g
 8579))) (system::debug (lisp::quote compiler::cs-push) (lisp!
 ::quote 
(lisp::type))) (system::debug (lisp::quote compiler::add-address) (lisp::quote (#:g10098))) (system::debug (lisp::quote compiler::t3defun) (lisp::quote (lisp::nil lisp::nil lisp::nil compiler::v))) (system::debug (lisp::quote compiler::t3defun-aux) (lisp::quote (compiler::f compiler::*exit* compiler::lis))) (system::debug (lisp::quote compiler::t3defun-local-entry) (lisp::quote (compiler::requireds #:g11702 compiler::*unwind-exit* compiler::v))) (system::debug (lisp::quote compiler::t3defun-vararg) (lisp::quote (compiler::*vararg-use-vs* compiler::block-p lisp::nil compiler::ll compiler::is-var-arg compiler::*tail-recursion-info* compiler::*unwind-exit* #:g17015 compiler::opt lisp::nil #:g16325 compiler::opt #:g16378))) (system::debug (lisp::quote compiler::t3defun-normal) (lisp::quote (#:g21099))) (system::debug (lisp::quote compiler::wt-v*-macros) (lisp::quote (#:g21204))) (system::debug (lisp::quote compiler::add-debug-info) (lisp::quote (#:g22567 #:g22914 #:g22916))) (sys
 tem::debug (lisp::quote compiler::analyze-regs) (lisp::quote (#:g23268))) (system::debug (lisp::quote compiler::analyze-regs1) (lisp::quote (#:g23570))) (system::debug (lisp::quote compiler::t1defmacro) (lisp::quote (lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil compiler::*special-binding* #:g24956))) (system::debug (lisp::quote compiler::t3defmacro) (lisp::quote (compiler::*volatile* compiler::*exit* lisp::nil lisp::nil compiler::*max-vs* lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil compiler::*reservation-cmacro* lisp::nil lisp::nil lisp::nil lisp::nil #:g25863))) (system::debug (lisp::quote compiler::t1ordinary) (lisp::quote (#:g26077 lisp::nil lisp::nil lisp::nil lisp::nil #:g26610))) (system::debug (lisp::quote compiler::add-load-time-sharp-comma) (lisp::quote (#:g26801 compiler::vv #:g26876))) (system::debug (lisp::quote compiler::t1clines) (lisp::quote (compiler::s))) (system::debug (lisp::quote compiler::t3clines) (lisp::quote (compiler::s))) (system::debug (
 lisp::quote compiler::t1defcfun) (lisp::quote (#:g27668 comp!
 iler::s 
#:g27831))) (system::debug (lisp::quote compiler::t3defcfun) (lisp::quote (compiler::s #:g28903 compiler::arg))) (system::debug (lisp::quote compiler::t1defentry) (lisp::quote (lisp::cfun #:g30439 compiler::x))) (system::debug (lisp::quote compiler::parse-cvspecs) (lisp::quote (compiler::cvs #:g32112 compiler::name #:g32304))) (system::debug (lisp::quote compiler::t3local-dcfun) (lisp::quote (compiler::closure-p compiler::clink compiler::ccb-vs compiler::fun compiler::lambda-expr compiler::initial-ccb-vs lisp::nil lisp::nil compiler::*max-vs* lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil compiler::*reservation-cmacro* compiler::*sup-used* lisp::nil compiler::*base-used*))) (system::debug (lisp::quote compiler::t3local-fun) (lisp::quote (compiler::closure-p compiler::clink compiler::ccb-vs compiler::fun compiler::lambda-expr compiler::initial-ccb-vs compiler::*max-vs* lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil compiler::*reservation-cmacro* lisp::nil lisp::nil lisp:
 :nil lisp::nil #:g34427))) (system::debug (lisp::quote compiler::wt-cvars) (lisp::quote (compiler::v))))))
)