Skip to content
GitLab
Projects
Groups
Snippets
/
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
2abc8510
Commit
2abc8510
authored
Oct 07, 2005
by
pfdietz
Browse files
And a failing test case for SBCL
parent
04ff8d92
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/subtypep-cons.lsp
View file @
2abc8510
...
...
@@ -333,3 +333,18 @@
(subtypep* type1 type2)
(subtypep* `(not ,type2) `(not ,type1))))
nil nil)
;;; From SBCL
(deftest subtypep.cons.41
(let ((type1 '(cons t (complex (real -10 -4))))
(type2 '(not (cons t (complex (integer -200 -100))))))
(multiple-value-bind (sub1 success1)
(subtypep* type1 type2)
(multiple-value-bind (sub2 success2)
(subtypep* `(not ,type2) `(not ,type1))
(if (and success1 success2 (not (eq sub1 sub2)))
(values sub1 sub2)
nil))))
nil)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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