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
fe604c98
Commit
fe604c98
authored
May 30, 2006
by
pfdietz
Browse files
More sbcl type prop failures with COERCE
parent
9fa9c018
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/misc.lsp
View file @
fe604c98
...
...
@@ -11605,4 +11605,34 @@ Broken at C::WT-MAKE-CLOSURE.
(funcall (compile nil form) 'integer))
523242)
;;; The symbol AND is not valid as a type specifier
(deftest misc.650
(let ((form '(lambda (p2)
(declare (optimize (speed 0) (safety 2) (debug 0) (space 2))
(type (member integer and) p2))
(coerce -12 (the atom p2)))))
(funcall (compile nil form) 'integer))
-12)
;;; The symbol OR is not valid as a type specifier
(deftest misc.651
(let ((form '(lambda (p2)
(declare (optimize (speed 0) (safety 2) (debug 0) (space 2))
(type (member integer or) p2))
(coerce 1 (the atom p2)))))
(funcall (compile nil form) 'integer))
1)
;;; The symbol NOT is not valid as a type specifier.
(deftest misc.652
(let ((form '(lambda (p2)
(declare (optimize (speed 0) (safety 2) (debug 0) (space 2))
(type (member integer not) p2))
(coerce 2 (the atom p2)))))
(funcall (compile nil form) 'integer))
2)
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