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
68a1c703
Commit
68a1c703
authored
May 02, 2005
by
pfdietz
Browse files
Add a symbol differentiating the failure cases in subtypep-complex.8
parent
6da699c4
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/subtypep-complex.lsp
View file @
68a1c703
...
...
@@ -57,7 +57,7 @@
((or (equal ucpt1 ucpt2)
(subtypep t1 t2))
(unless (equal result '(t t))
(list (list t1 t2 ucpt1 ucpt2 result))))
(list (list
:case1
t1 t2 ucpt1 ucpt2 result))))
(t
(multiple-value-bind
(ucpt-sub1? good1?)
...
...
@@ -69,16 +69,16 @@
((and good2? ucpt-sub1? (not ucpt-sub2?))
(assert good1?)
(unless (equal result '(nil t))
(list (list t1 t2 ucpt1 ucpt2 result))))
(list (list
:case2
t1 t2 ucpt1 ucpt2 result))))
((and good1? (not ucpt-sub1?) ucpt-sub2?)
(assert good2?)
(unless (equal result '(nil t))
(list (list t1 t2 ucpt1 ucpt2 result))))
(list (list
:case3
t1 t2 ucpt1 ucpt2 result))))
((and ucpt-sub1? ucpt-sub2?)
(assert good1?)
(assert good2?)
(unless (equal result '(t t))
(list (list t1 t2 ucpt1 ucpt2 result)))))))))))
(list (list
:case4
t1 t2 ucpt1 ucpt2 result)))))))))))
(deftest subtypep-complex.8
(let ((types (reverse
...
...
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