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
ansi-test
ansi-test
Commits
56e3fa15
Commit
56e3fa15
authored
Dec 26, 2019
by
Marius Gerbershagen
Browse files
Merge branch 'subtypep.cons.44' into 'master'
Add SUBTYPEP.CONS.44 See merge request
!30
parents
5c4504cc
bf63b936
Changes
1
Hide whitespace changes
Inline
Side-by-side
types-and-classes/subtypep-cons.lsp
View file @
56e3fa15
...
...
@@ -374,3 +374,20 @@
(and (not sub1) (not sub2))))))
t)
(defun subtypep.cons.44.foo (x) (declare (ignore x)) (= 1 (random 2)))
(defun subtypep.cons.44.bar (x) (declare (ignore x)) (= 1 (random 2)))
(defun subtypep.cons.44.baz (x) (declare (ignore x)) (= 1 (random 2)))
(defun subtypep.cons.44.qux (x) (declare (ignore x)) (= 1 (random 2)))
(deftest subtypep.cons.44
(let* ((t1 `(cons (not float)))
(t2 `(or (cons (satisfies subtypep.cons.44.foo)
(satisfies subtypep.cons.44.bar))
(cons (satisfies subtypep.cons.44.baz)
(satisfies subtypep.cons.44.qux)))))
(multiple-value-bind (sub1 good1)
(subtypep* t1 t2)
(multiple-value-bind (sub2 good2)
(subtypep* `(not ,t2) `(not ,t1))
(and (not sub1) (not sub2) (not good1) (not good2)))))
t)
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