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
40b05dcb
Commit
40b05dcb
authored
Dec 20, 2002
by
pfdietz
Browse files
Modified some tests to return more useful information on failure.
parent
66d3fa5a
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/function.lsp
View file @
40b05dcb
...
...
@@ -32,10 +32,10 @@
(not (special-operator-p s))
(not (macro-function s))
(symbol-function s))
alway
s (or (null f)
(typep f 'function)
)
)
t
)
unles
s (or (null f)
(typep f 'function)
)
collect x
)
nil
)
(deftest function.5
(typep '(setf car) 'function)
...
...
@@ -67,12 +67,12 @@
;;; In ANSI CL, symbols and cons can no longer also be of type FUNCTION.
(deftest function.10
(loop for x in *universe*
never
(and (or (numberp x) (character
p x)
(symbolp x) (consp x
)
(typep x '
array
))
(typep x 'function))
)
t
)
when (and (or (numberp x) (characterp x)
(symbolp x) (cons
p x)
(typep x 'array)
)
(typep x '
function
))
collect x
)
nil
)
(deftest function.11
(flet ((%f () nil)) (typep '%f 'function))
...
...
ansi-tests/functionp.lsp
View file @
40b05dcb
...
...
@@ -32,9 +32,10 @@
(not (special-operator-p s))
(not (macro-function s))
(symbol-function s))
always (or (null f)
(functionp f)))
t)
unless (or (null f)
(functionp f))
collect x)
nil)
(deftest functionp.5
(functionp '(setf car))
...
...
@@ -64,12 +65,12 @@
;;; In ANSI CL, symbols and cons can no longer be functions
(deftest functionp.10
(loop for x in *universe*
never
(and (or (numberp x) (character
p x)
(symbolp x) (consp x
)
(typep x 'array
))
(functionp
x)
))
t
)
when (and (or (numberp x) (characterp x)
(symbolp x) (cons
p x)
(typep x 'array)
)
(functionp x
))
collect
x)
nil
)
(deftest functionp.11
(flet ((%f () nil)) (functionp '%f))
...
...
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