Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
a6e35115
Commit
a6e35115
authored
May 07, 2003
by
pfdietz
Browse files
More THE tests, including compiled forms and (VALUES ... &REST ...) type specifiers.
parent
91f04b4d
Changes
1
Show whitespace changes
Inline
Side-by-side
ansi-tests/the.lsp
View file @
a6e35115
...
...
@@ -72,3 +72,39 @@
collect e)
nil)
(deftest the.11
(loop for e in *universe*
for type = (type-of e)
for x = (multiple-value-list (eval `(the ,type (the ,type
(quote ,e)))))
unless (and x (not (cdr x)) (eql (car x) e))
collect e)
nil)
(deftest the.12
(let ((lexpr
`(lambda ()
(and
,@(loop for e in *mini-universe*
for type = (type-of e)
collect `(eqlt (quote ,e) (the ,type (quote ,e))))))))
(funcall (compile nil lexpr)))
t)
(deftest the.13
(let ((x 0))
(values
(the (or symbol integer) (incf x))
x))
1 1)
(deftest the.14
(the (values &rest (cons t (cons t null))) (values 'a 'b))
a b)
(deftest the.15
(the (values &rest (cons symbol (cons symbol null))) (values 'a 'b))
a b)
(deftest the.16
(the (values &rest null) (values)))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment