0.8.6.28:

[sbcl.git] / tests / reader.pure.lisp

diff --git a/tests/reader.pure.lisp b/tests/reader.pure.lisp
index f064457..33af266 100644 (file)
--- a/tests/reader.pure.lisp
+++ b/tests/reader.pure.lisp
@@ -90,4 +90,20 @@
          (handler-case (with-input-from-string (s "cl:") (read s))
            (end-of-file (c)
              'good))
-         'good))
\ No newline at end of file
+         'good))
+
+;;; Bugs found by Paul Dietz
+(assert (equal (multiple-value-list
+                (parse-integer "   123      "))
+               '(123 12)))
+
+(let* ((base "xxx 123  yyy")
+       (intermediate (make-array 8 :element-type (array-element-type base)
+                                 :displaced-to base
+                                 :displaced-index-offset 2))
+       (string (make-array 6 :element-type (array-element-type base)
+                           :displaced-to intermediate
+                           :displaced-index-offset 1)))
+  (assert (equal (multiple-value-list
+                  (parse-integer string))
+                 '(123 6))))