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

Added more THE tests, including one from a known SBCL bug.

parent 968f13b9
No related branches found
No related tags found
No related merge requests found
......@@ -116,3 +116,27 @@
(deftest the.18
(the (values symbol integer &rest t) (values 'a 1 'foo '(x y)))
a 1 foo (x y))
(deftest the.19
(let () (list (the (values) (eval '(values)))))
(nil))
;;; This is from SBCL bug 261
(deftest the.20
(let () (list (the (values &optional fixnum) (eval '(values)))))
(nil))
(deftest the.21
(let () (list (the (values &rest t) (eval '(values)))))
(nil))
(deftest the.22
(the (values symbol integer &rest t) (eval '(values 'a 1 'foo '(x y))))
a 1 foo (x y))
(deftest the.23
(multiple-value-list
(the (values symbol integer &optional fixnum) (eval '(values 'a 1))))
(a 1))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment