| commit | a5b06b8996eb05df67077d14db7d6727372ae735 | |
| author | Nikodemus Siivola <nikodemus@random-state.net> | |
| Wed, 24 Sep 2008 22:35:01 +0000 (24 22:35 +0000) | ||
| committer | Nikodemus Siivola <nikodemus@random-state.net> | |
| Wed, 24 Sep 2008 22:35:01 +0000 (24 22:35 +0000) | ||
| tree | 2e4d4c62f4e807e40bd56de5c9d0344c72f9e5f5 | treesnapshot (tar.gz zip) |
| parent | fdbbe74c279db74e8855c58eaef02a30b2fa1917 | commitdiff |
1.0.20.30: micro-optimize FILL-POINTER a bit
* Since it's inlined, move the error call to a separate function
(without keyword arguments).
* Since ARRAY-HEADER-P and %ARRAY-HAS-FILL-POINTER-P will be true
only if the object is a vector with a fill pointer, the DECLARE is
pointless.
* Similarly for %SET-FILL-POINTER.
* Since it's inlined, move the error call to a separate function
(without keyword arguments).
* Since ARRAY-HEADER-P and %ARRAY-HAS-FILL-POINTER-P will be true
only if the object is a vector with a fill pointer, the DECLARE is
pointless.
* Similarly for %SET-FILL-POINTER.
| src/code/array.lisp | diffblobblamehistory | |
| version.lisp-expr | diffblobblamehistory |