Skip to content
Snippets Groups Projects
Commit 7ef68c06 authored by pfdietz's avatar pfdietz
Browse files

Tests for poplog common lisp

parent 3731f8af
No related branches found
No related tags found
No related merge requests found
...@@ -8188,9 +8188,9 @@ Broken at C::WT-MAKE-CLOSURE. ...@@ -8188,9 +8188,9 @@ Broken at C::WT-MAKE-CLOSURE.
(logior (logior
(let* ((v5 (reduce #'+ (list 0 a)))) (let* ((v5 (reduce #'+ (list 0 a))))
(declare (dynamic-extent v5)) (declare (dynamic-extent v5))
v5)))) (1- v5)))))
17) 17)
17) 16)
(deftest misc.428 (deftest misc.428
(funcall (funcall
...@@ -8217,3 +8217,30 @@ Broken at C::WT-MAKE-CLOSURE. ...@@ -8217,3 +8217,30 @@ Broken at C::WT-MAKE-CLOSURE.
(logandc1 v8 28))))) (logandc1 v8 28)))))
28) 28)
;;; poplog 15.53
;;; Excess type specifier(s) in THE special form
(deftest misc.430
(unwind-protect 0 (the integer 1))
0)
;;; Wrong return values: T, 0
(deftest misc.431
(funcall
(compile
nil
'(lambda (a) (declare (notinline > *))
(declare (optimize (compilation-speed 0) (safety 2) (speed 2) (debug 0) (space 3)))
(catch 'ct1 (* a (throw 'ct1 (if (> 0) a 0))))))
5445205692802)
5445205692802)
;;; Ste: stack empty (missing argument? missing result?)
(deftest misc.432
(loop for x below 2 count (not (not (typep x t))))
2)
(deftest misc.433
(let ((a 1)) (if (not (/= a 0)) a 0))
0)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment