#(#! (lisp::in-package (lisp::quote user::compiler))#! (lisp::import (lisp::quote sloop::sloop)) #(compiler::fn lisp::values compiler::single-value compiler::*funs* compiler::*current-fn* compiler::*all-fns* compiler::*other-form* :name compiler::other-form compiler::*call-table* compiler::*record-call-info* lisp::* lisp::fixnum compiler::*current-form* (lisp::defun lisp::defmacro) :def :sloop-map-declares :test lisp::equal compiler::var (lisp::&optional lisp::&rest lisp::&key lisp::nil lisp::&allow-other-keys) compiler::*called-from* compiler::*depth* "unknown fun value ~a" compiler::return-type compiler::proclaimed-return-type compiler::wt-loc lisp::type compiler::*2 lisp::*standard-output* lisp::*print-length* lisp::*print-level* lisp::in-package lisp::*package* lisp::defun lisp::proclaim lisp::quote lisp::ftype lisp::function system::call-test compiler::proclaimed-function lisp::string system::*system-directory* "../lsp/sys-proclaim.lisp" "sys-proclaim.lisp" :direction :output lisp::*standard-input* "OTHER-FORM-" compiler::*file-table* "~% Warn ~a redefined in ~a. Originally in ~a." "fn-data.lsp" "COMPILER" "(in-package 'compiler)(init-fn)~%(~s '(" compiler::add-fn-data "))" compiler::record-call-info compiler::*value-to-go* compiler::fun-val compiler::unknown-values compiler::*top-data* compiler::inline-always compiler::inline-unsafe lisp::eq :size (lisp::defun lisp::defmacro) compiler::*compiler-in-use* :return-type :arg-types "sys-package.lisp" system::*print-package* compiler::establish lisp::export lisp::shadow "~2%" ("SLOOP" "COMPILER" "SYSTEM" "KEYWORD" "LISP" "USER") "~2%;;; Definitions for package ~a of type ~a" :use :nicknames lisp::import "LISP" lisp::shadowing-import :inherited "~%~s" :value-type :fun-values :callees :no-emit :macros compiler::current-fn compiler::make-fn lisp::inline compiler::inline-fixnum compiler::fixnum-value compiler::type-or compiler::get-var-types compiler::get-value-type1 compiler::get-value-type lisp::nil lisp::concatenate lisp::load compiler::no-make-proclaims-hack compiler::setup-sys-proclaims compiler::write-sys-proclaims lisp::open compiler::make-proclaims system::fp-input-stream compiler::add-callee lisp::return compiler::add-value-type compiler::result-type-from-loc compiler::return-fixnum compiler::return-object compiler::top compiler::get-packages system::package-size lisp::package-shadowing-symbols (system::%init . #((system::setvv 98 (system::mc lisp::nil 28)) (system::define-structure (lisp::quote compiler::fn) (lisp::quote compiler::fn-) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote ((compiler::name lisp::nil lisp::t lisp::nil 0) (compiler::def lisp::nil lisp::t lisp::nil 1) (compiler::value-type lisp::nil lisp::t lisp::nil 2) (compiler::fun-values lisp::nil lisp::t lisp::nil 3) (compiler::callees lisp::nil lisp::t lisp::nil 4) (compiler::return-type lisp::nil lisp::t lisp::nil 5) (compiler::arg-types lisp::nil lisp::t lisp::nil 6) (compiler::no-emit lisp::nil lisp::t lisp::nil 7) (compiler::macros lisp::nil lisp::t lisp::nil 8))) (lisp::quote compiler::copy-fn) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote lisp::nil) (lisp::quote (compiler::make-fn)) (lisp::quote 9) (lisp::quote compiler::fn-p) (lisp::quote lisp::nil)) (system::mf (lisp::quote compiler::make-fn) 0) (system::*make-special (lisp::quote compiler::*other-form*)) (lisp::or (lisp::boundp (lisp::quote compiler::*other-form*)) (lisp::setq compiler::*other-form* (compiler::make-fn))) (system::*make-special (lisp::quote compiler::*all-fns*)) (lisp::or (lisp::boundp (lisp::quote compiler::*all-fns*)) (lisp::setq compiler::*all-fns* lisp::nil)) (system::*make-special (lisp::quote compiler::*call-table*)) (lisp::or (lisp::boundp (lisp::quote compiler::*call-table*)) (lisp::setq compiler::*call-table* (lisp::make-hash-table))) (system::*make-special (lisp::quote compiler::*current-fn*)) (lisp::or (lisp::boundp (lisp::quote compiler::*current-fn*)) (lisp::setq compiler::*current-fn* lisp::nil)) (system::mf (lisp::quote compiler::add-callee) 1) (system::mf (lisp::quote compiler::add-macro-callee) 2) (system::mf (lisp::quote compiler::clear-call-table) 3) (system::mf (lisp::quote compiler::emit-fn) 4) (system::mf (lisp::quote compiler::type-or) 5) (system::mf (lisp::quote compiler::current-fn) 6) (system::mf (lisp::quote compiler::who-calls) 7) (system::mf (lisp::quote compiler::add-value-type) 8) (system::mf (lisp::quote compiler::get-var-types) 9) (system::mf (lisp::quote compiler::record-arg-info) 10) (system::*make-special (lisp::quote compiler::*depth*)) (lisp::or (lisp::boundp (lisp::quote compiler::*depth*)) (lisp::setq compiler::*depth* 0)) (system::*make-special (lisp::quote compiler::*called-from*)) (lisp::or (lisp::boundp (lisp::quote compiler::*called-from*)) (lisp::setq compiler::*called-from* lisp::nil)) (system::mf (lisp::quote compiler::get-value-type) 11) (system::mf (lisp::quote compiler::get-value-type1) 12) (system::mf (lisp::quote compiler::result-type-from-loc) 13) (system::mf (lisp::quote compiler::small-all-t-p) 14) (system::mf (lisp::quote compiler::no-make-proclaims-hack) 15) (system::mf (lisp::quote compiler::make-proclaims) 16) (system::mf (lisp::quote compiler::setup-sys-proclaims) 17) (system::mf (lisp::quote compiler::make-all-proclaims) 18) (system::mf (lisp::quote compiler::write-sys-proclaims) 19) (system::*make-special (lisp::quote compiler::*file-table*)) (lisp::or (lisp::boundp (lisp::quote compiler::*file-table*)) (lisp::setq compiler::*file-table* (lisp::make-hash-table :test (lisp::quote lisp::eq)))) (system::mf (lisp::quote compiler::add-fn-data) 20) (system::mf (lisp::quote compiler::dump-fn-data) 21) (system::mf (lisp::quote compiler::record-call-info) 22) (system::mf (lisp::quote compiler::list-undefined-functions) 23) (lisp::block lisp::nil (lisp::let* ((#0=#:g1500 (lisp::quote (lisp::throw lisp::coerce compiler::single-value lisp::sort lisp::delete lisp::remove lisp::char-upcase system::fset lisp::typep))) (compiler::v (lisp::car #0#))) (lisp::tagbody #1=#:g1501 (lisp::if (lisp::endp #0#) (lisp::return (lisp::progn lisp::nil))) (lisp::tagbody (system::putprop compiler::v lisp::t (lisp::quote compiler::return-type))) (lisp::setq #0# (lisp::cdr #0#) compiler::v (lisp::car #0#)) (lisp::go #1#)))) (system::mf (lisp::quote compiler::init-fn) 24) (system::mf (lisp::quote compiler::list-uncalled-functions) 25) (system::mf (lisp::quote system::record-fn) 26) (system::mf (lisp::quote compiler::get-packages) 27) (system::debug (lisp::quote compiler::make-fn) (lisp::quote (compiler::name compiler::def compiler::value-type compiler::fun-values compiler::callees compiler::return-type compiler::arg-types compiler::no-emit compiler::macros))) (system::debug (lisp::quote compiler::add-callee) (lisp::quote (compiler::fname #:g1377 #:g1378))) (system::debug (lisp::quote compiler::add-macro-callee) (lisp::quote (compiler::fname #:g1388 #:g1389))) (system::debug (lisp::quote compiler::emit-fn) (lisp::quote (compiler::flag))) (system::debug (lisp::quote compiler::type-or) (lisp::quote (compiler::a compiler::b))) (system::debug (lisp::quote compiler::current-fn) (lisp::quote (#:g1393))) (system::debug (lisp::quote compiler::who-calls) (lisp::quote (compiler::f #:coll1396 #:poin1396))) (system::debug (lisp::quote compiler::add-value-type) (lisp::quote (compiler::x compiler::fn compiler::current-fn #:g1406))) (system::debug (lisp::quote compiler::get-var-types) (lisp::quote (compiler::lis #:g1415))) (system::debug (lisp::quote compiler::record-arg-info) (lisp::quote (compiler::lambda-list compiler::cf))) (system::debug (lisp::quote compiler::get-value-type) (lisp::quote (compiler::fname))) (system::debug (lisp::quote compiler::get-value-type1) (lisp::quote (compiler::fname compiler::*depth*))) (system::debug (lisp::quote compiler::result-type-from-loc) (lisp::quote (compiler::x))) (system::debug (lisp::quote compiler::small-all-t-p) (lisp::quote (compiler::args compiler::ret))) (system::debug (lisp::quote compiler::make-proclaims) (lisp::quote (compiler::st compiler::ht lisp::nil lisp::nil compiler::ret compiler::at))) (system::debug (lisp::quote compiler::make-all-proclaims) (lisp::quote (compiler::files compiler::v))) (system::debug (lisp::quote compiler::write-sys-proclaims) (lisp::quote (compiler::st))) (system::debug (lisp::quote compiler::add-fn-data) (lisp::quote (compiler::lis compiler::v #:g1474))) (system::debug (lisp::quote compiler::dump-fn-data) (lisp::quote (compiler::file lisp::nil lisp::nil lisp::nil compiler::st))) (system::debug (lisp::quote compiler::record-call-info) (lisp::quote (compiler::loc compiler::fname))) (system::debug (lisp::quote compiler::list-undefined-functions) (lisp::quote (compiler::undefs))) (system::debug (lisp::quote compiler::list-uncalled-functions) (lisp::quote (compiler::size compiler::called #:coll1502 #:poin1534))) (system::debug (lisp::quote system::record-fn) (lisp::quote (compiler::name compiler::def compiler::arg-types compiler::return-type))) (system::debug (lisp::quote compiler::get-packages) (lisp::quote (compiler::st compiler::pass lisp::nil lisp::nil compiler::st compiler::p lisp::nil #:g1564 compiler::v #:g1595)))))) )