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

Optimize ascii-string checking on SBCL.

parent 41dd636b
Loading
Loading
Loading
Loading
+2 −3
Original line number Diff line number Diff line
@@ -68,8 +68,7 @@
(deftype ascii-string ()
  '(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))