Commit 3dded727 authored by Stas Boukarev's avatar Stas Boukarev
Browse files

Optimize ascii-string checking on SBCL.

parent 41dd636b
......@@ -66,10 +66,9 @@
(defconstant +ascii-char-limit+ (code-char 128))
(deftype ascii-string ()
'(or
'(or
#+sb-unicode simple-base-string ; on #-sb-unicode the limit is 255
(and simple-string
(satisfies ascii-string-p))))
(satisfies ascii-string-p)))
(defun ascii-string-p (string)
(declare (simple-string string))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment