Share code between CASE expander and hash-based find/position
commitdef0be086fecdf0ad48a7ad09904a97758587992
authorDouglas Katzman <dougk@google.com>
Wed, 6 Mar 2024 19:16:05 +0000 (6 14:16 -0500)
committerDouglas Katzman <dougk@google.com>
Wed, 6 Mar 2024 19:23:21 +0000 (6 14:23 -0500)
treeaa3fe6e9cb52088d10fca91eec3a00dc57978422
parent3dbc812d2bb34563eda75d9fe40838c94afd7f5a
Share code between CASE expander and hash-based find/position

I want the FIND/POSITION to be able to handle FIXNUM and CHARACTER.
It still doesn't but it may now be a little more obvious why the transform
was written as it was, versus returning from a block if the ITEM was
determinde not to be of the desired type.

Also change some #+x86-64 to vop-exists-p
src/code/macros.lisp
src/code/stubs.lisp
src/compiler/seqtran.lisp