1.0.31.9: some PCL micro-optimizations
commit1ca4f69009204caee2484161e6eb89fa6c5fd3f6
authorNikodemus Siivola <nikodemus@random-state.net>
Tue, 15 Sep 2009 11:07:38 +0000 (15 11:07 +0000)
committerNikodemus Siivola <nikodemus@random-state.net>
Tue, 15 Sep 2009 11:07:38 +0000 (15 11:07 +0000)
treed16d7baa2502fcdba061db7fc8db95a3c00c4cfa
parent3bb8f5292debbe26d0e62685e6d5af81d6e4fb98
1.0.31.9: some PCL micro-optimizations

 * Make *BOOT-STATE* a global variable and rename it **BOOT-STATE**.

 * Make various *S?-FOO-INDEX* variables constants, and rename them
   +S?-FOO-INDEX+.

 * Special love for SAFE-METHOD-FOO functions: store standard method
   class list in a global variable, use EQ for membership testing, and
   use STD-INSTANCE-SLOTS instead of GET-SLOTS (if the method has one
   of the standard classes, we know it is a standard instance.)

 Low-lying Nutrient Poor Fruit 'R Us.
16 files changed:
src/pcl/boot.lisp
src/pcl/braid.lisp
src/pcl/combin.lisp
src/pcl/defclass.lisp
src/pcl/defs.lisp
src/pcl/dfun.lisp
src/pcl/fixup.lisp
src/pcl/init.lisp
src/pcl/low.lisp
src/pcl/macros.lisp
src/pcl/methods.lisp
src/pcl/slots-boot.lisp
src/pcl/std-class.lisp
src/pcl/vector.lisp
src/pcl/wrapper.lisp
version.lisp-expr