/[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.4 by camm, Tue Sep 23 21:48:26 2003 UTC revision 1.5 by camm, Fri Oct 3 16:03:15 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::nil pcl::load-precompiled-iis-entry #8=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)2198| lisp::nil #9=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2198| lisp::nil #10=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2198| lisp::nil #11=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2198| 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 'compile2305|) 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 'compile2416|) 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 'compile2579|) 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 'compile2806|) 7 0) (#15#) (system::mfsfun (lisp::quote #16=#:|progn 'compile2810|) 8 0) (#16#))))  #((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)2203| lisp::nil #9=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2203| lisp::nil #10=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2203| lisp::nil #11=#:|(PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2203| 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 'compile2310|) 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 'compile2421|) 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 'compile2584|) 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 'compile2811|) 7 0) (#15#) (system::mfsfun (lisp::quote #16=#:|progn 'compile2815|) 8 0) (#16#))))
5  )  )

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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