#(#! (lisp::in-package :pcl) #((lisp::or lisp::symbol lisp::fixnum) pcl::.constant. pcl::*fgens* :key :test lisp::lambda lisp::function walker::walk-form-expand-macros-p :eval lisp::progn pcl::precompile-function-generators (lisp::load) pcl::load-function-generator lisp::quote pcl::default-test-converter pcl::default-code-converter pcl::default-constant-converter pcl::get-function-generator pcl::compute-constants lisp::typep pcl::default-constantp pcl::lookup-fgen pcl::fgen-test pcl::fgen-generator pcl::fgen-system lisp::equal lisp::find lisp::make-array pcl::compute-test pcl::get-new-function-generator pcl::get-new-function-generator-internal pcl::compile-lambda pcl::make-fgen pcl::store-fgen pcl::compute-code walker::walk-form pcl::make-top-level-form pcl::fgen-gensyms pcl::fgen-generator-lambda (system::%init . #((system::mf (lisp::quote pcl::get-function) 0) (system::mf (lisp::quote pcl::get-function1) 1) (system::mfsfun (lisp::quote pcl::default-constantp) 2 1) (system::mfsfun (lisp::quote pcl::default-test-converter) 3 1) (system::mf (lisp::quote pcl::default-code-converter) 4) (system::mfsfun (lisp::quote pcl::default-constant-converter) 5 1) (system::*make-special (lisp::quote pcl::*fgens*)) (lisp::or (lisp::boundp (lisp::quote pcl::*fgens*)) (lisp::setq pcl::*fgens* lisp::nil)) (system::mfsfun (lisp::quote pcl::store-fgen) 6 1) (system::mfsfun (lisp::quote pcl::lookup-fgen) 7 1) (system::mfsfun (lisp::quote pcl::make-fgen) 8 5) (system::mfsfun (lisp::quote pcl::fgen-test) 9 1) (system::mfsfun (lisp::quote pcl::fgen-gensyms) 10 1) (system::mfsfun (lisp::quote pcl::fgen-generator) 11 1) (system::mfsfun (lisp::quote pcl::fgen-generator-lambda) 12 1) (system::mfsfun (lisp::quote pcl::fgen-system) 13 1) (system::mfsfun (lisp::quote pcl::get-function-generator) 14 3) (system::mfsfun (lisp::quote pcl::get-new-function-generator) 15 3) (system::mf (lisp::quote pcl::get-new-function-generator-internal) 16) (system::mf (lisp::quote pcl::compute-test) 17) (system::mf (lisp::quote pcl::compute-code) 18) (system::mfsfun (lisp::quote pcl::compute-constants) 19 2) (system::mm (lisp::quote pcl::precompile-function-generators) 20) (system::mfsfun (lisp::quote pcl::load-function-generator) 21 5) (system::debug (lisp::quote pcl::get-function) (lisp::quote (lisp::lambda pcl::test-converter pcl::code-converter pcl::constant-converter))) (system::debug (lisp::quote pcl::get-function1) (lisp::quote (lisp::lambda pcl::test-converter pcl::code-converter pcl::constant-converter))) (system::debug (lisp::quote pcl::default-code-converter) (lisp::quote (pcl::form))) (system::debug (lisp::quote pcl::get-function-generator) (lisp::quote (pcl::test pcl::fgen))) (system::debug (lisp::quote pcl::get-new-function-generator) (lisp::quote (pcl::generator pcl::fgen))) (system::debug (lisp::quote pcl::get-new-function-generator-internal) (lisp::quote (lisp::lambda pcl::code-converter))) (system::debug (lisp::quote pcl::compute-test) (lisp::quote (lisp::lambda pcl::test-converter))) (system::debug (lisp::quote pcl::compute-code) (lisp::quote (lisp::lambda pcl::code-converter lisp::nil pcl::gensyms))) (system::debug (lisp::quote pcl::compute-constants) (lisp::quote (pcl::constant-converter lisp::nil #:g2535)))))) )