/[gcl]/gcl/clcs/clcs_precom.data
ViewVC logotype

Diff of /gcl/clcs/clcs_precom.data

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Wed Feb 26 22:21:34 2003 UTC revision 1.2 by camm, Thu Feb 27 18:32:10 2003 UTC
# Line 1  Line 1 
1                
2  #(#!  #(#!
3  (lisp::in-package "CONDITIONS" :use (lisp::quote ("LISP" "PCL")))  (lisp::in-package "CONDITIONS" :use (lisp::quote ("LISP" "PCL")))
4  #((lisp::lambda #0=(pcl::pv-cell pcl::cvector) (lisp::declare (lisp::type (lisp::simple-vector 2) pcl::cvector)) (lisp::function (lisp::lambda #1=(pcl::instance pcl::initargs) #2=(lisp::declare (lisp::optimize (lisp::speed 3) (lisp::safety 0))) (pcl::iis-body #3=(lisp::setq pcl::initargs-tail pcl::initargs) (lisp::setq pcl::initargs-tail (lisp::cdr . #4=(pcl::initargs-tail))) #5=(lisp::setq pcl::value (lisp::pop pcl::initargs-tail)) (lisp::setf (pcl::%instance-ref pcl::slots 1) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 0) pcl::value)) pcl::initargs))) lisp::nil pcl::std-instance pcl::*funcallable-instance-marker* conditions::clcs ((pcl::combined-initialize-function lisp::simple-warning . #6=((:format-string :format-arguments) lisp::nil))) (lisp::lambda #0# (lisp::declare (lisp::type (lisp::simple-vector 2) pcl::cvector)) (lisp::function (lisp::lambda #1# #2# (pcl::iis-body (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 1) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 0) pcl::value)) pcl::initargs))) lisp::nil ((pcl::shared-initialize-t-function lisp::simple-warning . #6#)) (lisp::lambda #0# (lisp::declare (lisp::type (lisp::simple-vector 6) pcl::cvector)) (lisp::function (lisp::lambda #1# #2# (pcl::iis-body #3# (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 8) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 0) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 3) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 4) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 5) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 6) pcl::value)) pcl::initargs))) lisp::nil ((pcl::combined-initialize-function pcl::standard-direct-slot-definition . #7=((:class :name :readers :writers :initargs :type) lisp::nil))) (lisp::lambda #0# (lisp::declare (lisp::type (lisp::simple-vector 11) pcl::cvector)) (lisp::function (lisp::lambda #1# #2# (pcl::iis-body (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 8) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 0) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 3) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 4) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 5) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 6) pcl::value) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 1) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 1) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 2) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 2) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 7) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::svref pcl::cvector 9)) (lisp::setf (pcl::%instance-ref pcl::slots 7) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 9) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote :instance)) (lisp::setf (pcl::%instance-ref pcl::slots 9) pcl::value))) pcl::initargs))) lisp::nil pcl::..slot-unbound.. :instance ((pcl::shared-initialize-t-function pcl::standard-direct-slot-definition . #7#)) (lisp::lambda #8=(pcl::pv-cell pcl::cvector) (lisp::declare (lisp::type (lisp::simple-vector 17) pcl::cvector)) (lisp::function (lisp::lambda #9=(pcl::instance pcl::initargs) #10=(lisp::declare (lisp::optimize (lisp::speed 3) (lisp::safety 0))) (pcl::iis-body (lisp::setq pcl::initargs-tail (lisp::nthcdr 5 . #11=(pcl::initargs-tail))) #12=(lisp::setq pcl::value (lisp::pop pcl::initargs-tail)) (lisp::setf (pcl::%instance-ref pcl::slots 1) pcl::value) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 0) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 0) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 2) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 2) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 3) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 3) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 4) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 4) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 5) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 5) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 6) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 6) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 7) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::funcall (lisp::the lisp::function (lisp::svref pcl::cvector 8)))) (lisp::setf (pcl::%instance-ref pcl::slots 7) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 8) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 8) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 10) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 10) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 11) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 11) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 12) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 12) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 13) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 13) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 14) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 14) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 15) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 15) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 16) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 16) pcl::value))) pcl::initargs))) lisp::nil ((pcl::shared-initialize-t-function lisp::standard-class . #13=((:direct-superclasses :direct-slots :definition-source) lisp::nil))) (lisp::lambda #8# (lisp::declare (lisp::type (lisp::simple-vector 1) pcl::cvector)) (lisp::function (lisp::lambda #9# #10# (pcl::iis-body (lisp::setq pcl::initargs-tail (lisp::nthcdr 5 . #11#)) #12# (lisp::setf (pcl::%instance-ref pcl::slots 1) pcl::value)) pcl::initargs))) lisp::nil ((pcl::shared-initialize-nil-function lisp::standard-class . #13#)) lisp::nil pcl::load-precompiled-iis-entry #14=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)1788| lisp::nil #15=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)1788| lisp::nil #16=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)1788| lisp::nil #17=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)1788| lisp::nil #18=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 4)1788| lisp::nil #19=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 5)1788| pcl::compile-iis-functions pcl::cclosure-env-nthcdr pcl::wrapper-of (system::%init . #((system::setvv 34 (system::mc lisp::nil 18)) (system::setvv 32 (system::mc lisp::nil 17)) (system::setvv 30 (system::mc lisp::nil 16)) (system::setvv 28 (system::mc lisp::nil 15)) (system::setvv 26 (system::mc lisp::nil 14)) (system::setvv 23 (system::mc lisp::nil 13)) (system::setvv 1 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote #14#) 0) (system::mfsfun (lisp::quote #20=#:|progn 'compile1791|) 1 0) (#20#) (system::setvv 7 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote #15#) 2) (system::mfsfun (lisp::quote #21=#:|progn 'compile1794|) 3 0) (#21#) (system::setvv 10 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote #16#) 4) (system::mfsfun (lisp::quote #22=#:|progn 'compile1801|) 5 0) (#22#) (system::setvv 13 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote #17#) 6) (system::mfsfun (lisp::quote #23=#:|progn 'compile1808|) 7 0) (#23#) (system::setvv 18 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote #18#) 8) (system::mfsfun (lisp::quote #24=#:|progn 'compile1810|) 9 0) (#24#) (system::setvv 21 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote #19#) 10) (system::mfsfun (lisp::quote #25=#:|progn 'compile1812|) 11 0) (#25#) (system::mfsfun (lisp::quote #26=#:|progn 'compile1812|) 12 0) (#26#))))  #((lisp::lambda #0=(pcl::pv-cell pcl::cvector) (lisp::declare (lisp::type (lisp::simple-vector 2) pcl::cvector)) (lisp::function (lisp::lambda #1=(pcl::instance pcl::initargs) #2=(lisp::declare (lisp::optimize (lisp::speed 3) (lisp::safety 0))) (pcl::iis-body #3=(lisp::setq pcl::initargs-tail pcl::initargs) (lisp::setq pcl::initargs-tail (lisp::cdr . #4=(pcl::initargs-tail))) #5=(lisp::setq pcl::value (lisp::pop pcl::initargs-tail)) (lisp::setf (pcl::%instance-ref pcl::slots 1) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 0) pcl::value)) pcl::initargs))) lisp::nil pcl::std-instance pcl::*funcallable-instance-marker* conditions::clcs ((pcl::combined-initialize-function lisp::simple-warning . #6=((:format-string :format-arguments) lisp::nil))) (lisp::lambda #0# (lisp::declare (lisp::type (lisp::simple-vector 2) pcl::cvector)) (lisp::function (lisp::lambda #1# #2# (pcl::iis-body (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 1) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 0) pcl::value)) pcl::initargs))) lisp::nil ((pcl::shared-initialize-t-function lisp::simple-warning . #6#)) (lisp::lambda #0# (lisp::declare (lisp::type (lisp::simple-vector 6) pcl::cvector)) (lisp::function (lisp::lambda #1# #2# (pcl::iis-body #3# (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 8) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 0) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 3) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 4) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 5) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 6) pcl::value)) pcl::initargs))) lisp::nil ((pcl::combined-initialize-function pcl::standard-direct-slot-definition . #7=((:class :name :readers :writers :initargs :type) lisp::nil))) (lisp::lambda #0# (lisp::declare (lisp::type (lisp::simple-vector 11) pcl::cvector)) (lisp::function (lisp::lambda #1# #2# (pcl::iis-body (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 8) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 0) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 3) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 4) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 5) pcl::value) (lisp::setq pcl::initargs-tail (lisp::cdr . #4#)) #5# (lisp::setf (pcl::%instance-ref pcl::slots 6) pcl::value) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 1) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 1) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 2) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote lisp::nil)) (lisp::setf (pcl::%instance-ref pcl::slots 2) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 7) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::svref pcl::cvector 9)) (lisp::setf (pcl::%instance-ref pcl::slots 7) pcl::value)) (lisp::unless (lisp::not (lisp::eq (pcl::%instance-ref pcl::slots 9) (lisp::quote pcl::..slot-unbound..))) (lisp::setq pcl::value (lisp::quote :instance)) (lisp::setf (pcl::%instance-ref pcl::slots 9) pcl::value))) pcl::initargs))) lisp::nil pcl::..slot-unbound.. :instance ((pcl::shared-initialize-t-function pcl::standard-direct-slot-definition . #7#)) lisp::nil pcl::load-precompiled-iis-entry #8=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)2193| lisp::nil #9=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2193| lisp::nil #10=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2193| lisp::nil #11=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2193| pcl::compile-iis-functions pcl::cclosure-env-nthcdr pcl::wrapper-of (system::%init . #((system::setvv 24 (system::mc lisp::nil 12)) (system::setvv 22 (system::mc lisp::nil 11)) (system::setvv 20 (system::mc lisp::nil 10)) (system::setvv 17 (system::mc lisp::nil 9)) (system::setvv 1 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote #8#) 0) (system::mfsfun (lisp::quote #12=#:|progn 'compile2300|) 1 0) (#12#) (system::setvv 7 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote #9#) 2) (system::mfsfun (lisp::quote #13=#:|progn 'compile2411|) 3 0) (#13#) (system::setvv 10 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote #10#) 4) (system::mfsfun (lisp::quote #14=#:|progn 'compile2574|) 5 0) (#14#) (system::setvv 13 (compiler::name-to-sd (lisp::quote pcl::std-instance))) (system::mf (lisp::quote #11#) 6) (system::mfsfun (lisp::quote #15=#:|progn 'compile2801|) 7 0) (#15#) (system::mfsfun (lisp::quote #16=#:|progn 'compile2805|) 8 0) (#16#))))
5  )  )

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26