Compile time error on improper call to FIND with :TEST #'CHAR-EQUAL
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Fix Released
|
Undecided
|
Unassigned |
Bug Description
(compile nil '(lambda (c) (find nil c :test #'char-equal)))
==>
The value
NIL
is not of type
CHARACTER
when binding CHAR
[Condition of type TYPE-ERROR]
Restarts:
0: [RETRY] Retry SLIME REPL evaluation request.
1: [*ABORT] Return to SLIME's top level.
2: [ABORT] abort thread (#<THREAD tid=11579 "repl-thread" RUNNING {1000F10003}>)
Backtrace:
0: (BOTH-CASE-P NIL) [external]
1: (SB-C::
2: (SB-C::
3: ((SB-C:DEFTRANSFORM FIND) #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME FIND :TYPE #1=#<SB-
4: (SB-C::
5: (SB-C::IR1-OPTIMIZE #<SB-C:COMPONENT :NAME "<unknown>" {100186FBD3}> NIL)
6: (SB-C::
7: (SB-C::
8: (SB-C::IR1-PHASES #<SB-C:COMPONENT :NAME "<unknown>" {100186FBD3}>)
9: (SB-C::
[...]
x86-64, "2.4.3.
Changed in sbcl: | |
status: | New → Fix Released |
Similar failures can be stimulated in ASSOC and POSITION.