#(#! (lisp::in-package :pcl) #(1 lisp::nil pcl::std-instance pcl::*funcallable-instance-marker* pcl::*slot-unbound* lisp::nil 2 lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil pcl::cache lisp::nil "my cache got freed somehow" lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::list lisp::cons lisp::quote pcl::emit-checking-or-caching-macro pcl::checking-or-caching-list pcl::checking-or-caching-function-list (lisp::cdr (lisp::assoc (lisp::list pcl::cached-emf-p pcl::return-value-p pcl::metatypes pcl::applyp) pcl::checking-or-caching-function-list :test (lisp::function lisp::equal))) pcl::not-in-cache :reader lisp::nil lisp::nil lisp::nil lisp::nil :writer lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil pcl::emit-checking-or-caching-function-preliminary lisp::nil pcl::invoke-emf pcl::wrapper-of pcl::check-wrapper-validity pcl::probe-cache pcl::cclosure-env-nthcdr pcl::%cclosure-env-nthcdr (system::%init . #((system::setvv 50 (system::mc lisp::nil 24)) (system::setvv 48 (system::mc lisp::nil 23)) (system::setvv 47 (system::mc lisp::nil 22)) (system::setvv 46 (system::mc lisp::nil 21)) (system::setvv 45 (system::mc lisp::nil 20)) (system::setvv 44 (system::mc lisp::nil 19)) (system::setvv 43 (system::mc lisp::nil 18)) (system::setvv 42 (system::mc lisp::nil 17)) (system::setvv 41 (system::mc lisp::nil 16)) (system::setvv 40 (system::mc lisp::nil 15)) (system::setvv 39 (system::mc lisp::nil 14)) (system::setvv 38 (system::mc lisp::nil 13)) (system::setvv 37 (system::mc lisp::nil 12)) (system::setvv 35 (system::mc lisp::nil 11)) (system::setvv 34 (system::mc lisp::nil 10)) (system::setvv 33 (system::mc lisp::nil 9)) (system::setvv 32 (system::mc lisp::nil 8)) (system::setvv 1 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 5 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 7 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 8 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 9 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 10 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 11 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 12 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::emit-reader/writer-function) 0) (system::setvv 14 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 16 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 17 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 18 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 19 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 20 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 21 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::setvv 22 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote pcl::emit-one-or-n-index-reader/writer-function) 1) (system::*make-special (lisp::quote pcl::checking-or-caching-list)) (lisp::setq pcl::checking-or-caching-list (lisp::quote lisp::nil)) (system::mm (lisp::quote pcl::make-checking-or-caching-function-list) 2) (system::*make-special (lisp::quote pcl::checking-or-caching-function-list)) (system::mfsfun (lisp::quote pcl::initialize-checking-or-caching-function-list) 3 0) (pcl::initialize-checking-or-caching-function-list) (system::mm (lisp::quote pcl::emit-checking-or-caching-function-precompiled) 4) (system::mf (lisp::quote pcl::emit-checking-or-caching-function) 5) (system::*make-special (lisp::quote pcl::not-in-cache)) (lisp::or (lisp::boundp (lisp::quote pcl::not-in-cache)) (lisp::setq pcl::not-in-cache (lisp::make-symbol "not in cache"))) (system::mfsfun (lisp::quote pcl::emit-checking-or-caching-function-preliminary) 6 4) (system::mf (lisp::quote pcl::emit-default-only-function) 7) (system::debug (lisp::quote pcl::emit-reader/writer-function) (lisp::quote (pcl::reader/writer pcl::1-or-2-class pcl::class-slot-p))) (system::debug (lisp::quote pcl::emit-one-or-n-index-reader/writer-function) (lisp::quote (pcl::reader/writer pcl::cached-index-p pcl::class-slot-p))) (system::debug (lisp::quote pcl::emit-checking-or-caching-function) (lisp::quote (pcl::cached-emf-p pcl::return-value-p pcl::metatypes pcl::applyp))) (system::debug (lisp::quote pcl::emit-checking-or-caching-function-preliminary) (lisp::quote (pcl::metatypes pcl::return-value-p)))))) )