bug: (hex) - decoding non-hex characters

[frostbyte]

(prinl "version: " (version))

(for N (range 0 255)
  (let C (char N)
     (when (hex C)
        (unless (member C (chop "0123456789abcdefABCDEF"))
           (prinl C ":" (hex C)) ) ) ) )

(bye)

---

version: 22.6.30
22630
::3
;:4
<:5
=:6

:7

?:8
@:9
W:0
X:1
Y:2
Z:3
[:4
\:5
]:6
^:7
_:8
`:9


--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe