Camm Maguire <[EMAIL PROTECTED]> writes:
| Greetings! Yes, if you could please post the output from the
| compilation of gcl_cmptop.lsp, that would be great! Or simply the
| whole thing.
OK.
soliton[10:01]% file gcl_cmptop.o ~/build/gcl-2.6.7/cmpnew
gcl_cmptop.o: ASCII English text, with very long lines
Content of the file attached to this message.
-- Gaby
#(#!
(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))))))
)
_______________________________________________
Axiom-developer mailing list
Axiom-developer@nongnu.org
http://lists.nongnu.org/mailman/listinfo/axiom-developer
