1.0.6.39: COMPUTE-DISCRIMINATING-FUNCTION micro-optimization
authorNikodemus Siivola <nikodemus@random-state.net>
Fri, 8 Jun 2007 21:24:53 +0000 (21:24 +0000)
committerNikodemus Siivola <nikodemus@random-state.net>
Fri, 8 Jun 2007 21:24:53 +0000 (21:24 +0000)
commit2c4f8db463028034cf6d10c45f35e3b9ecb7378c
treea885085d7fb7caaf6c78f421ae36bbbfbcf77c01
parent617d4fa1db5a4a11564e7c59bfb684c7eb25633d
1.0.6.39: COMPUTE-DISCRIMINATING-FUNCTION micro-optimization

 * Old versio used WITH-SLOTS to read DFUN-STATE twice per call,
   but (let ((dfun-state (slot-value gf 'dfun-state))) ...)
   is faster, as it avoids the second lookup.
src/pcl/methods.lisp
version.lisp-expr