From afcbe8fb89e0f15ab49f6292e082adfc2982779b Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 21 Mar 2005 13:53:15 +0000 Subject: [PATCH] More sbcl, lispworks, abcl failures --- ansi-tests/misc.lsp | 54 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index d2e22ea8..18d2236b 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -10599,3 +10599,57 @@ Broken at C::WT-MAKE-CLOSURE. :start1 2 :start2 p6 :end1 8))) 4) 2) + +;;; sbcl 0.8.20.27 +;;; Control stack exhausted + +(deftest misc.587 + (let ((result (funcall + (compile + nil + '(lambda (p2) + (declare (optimize (speed 0) (safety 3) (debug 1) (space 0)) + (type (eql 33558541) p2)) + (- 92215.266 p2))) + 33558541))) + (notnot (typep result 'single-float))) + t) + +;;; Lispworks 4.3 Personal Edition +;;; Incorrect return value (T instead of NIL) + +(deftest misc.588 + (funcall (compile nil '(lambda nil (declare (optimize (speed 2) (safety 1) (debug 1) (space 1))) + (functionp 3502843)))) + nil) + +;;; (ARRAY NIL) is an illegal type specifier. + +(deftest misc.589 + (typep 1 '(array nil)) + nil) + +;;; Segmentation violation + +(deftest misc.590 + (funcall (compile nil '(lambda nil (declare (optimize debug)) (symbolp -86755)))) + nil) + +;;; parse-integer fails on displaced base strings + +(deftest misc.591 + (let* ((s1 (coerce "708553218828630100500" 'base-string)) + (s2 (make-array '(13) :element-type 'base-char + :displaced-to s1 + :displaced-index-offset 5))) + (parse-integer s2)) + 3218828630100 + 13) + +;;; abcl, 19 Mar 2005 +;;; Stack overflow + +(deftest misc.592 + (equalp #*0 "0") + nil) + -- GitLab