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
e59fbeb1
Commit
e59fbeb1
authored
Dec 04, 2002
by
pfdietz
Browse files
Added test that types in figure 4-8 of spec are also classes of the same proper name.
parent
67071bbe
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/cl-symbol-names.lsp
View file @
e59fbeb1
...
...
@@ -2035,3 +2035,84 @@
store
-
value
use
-
value
))
;;;
Symbols
that
are
names
of
types
that
are
also
classes
;;;
See
figure
4
-
8
in
section
4.3.7
(
defparameter
*
cl
-
types
-
that
-
are
-
classes
-
symbols
*
'(
arithmetic-error
array
bit-vector
broadcast-stream
built-in-class
cell-error
character
class
complex
concatenated-stream
condition
cons
control-error
division-by-zero
echo-stream
end-of-file
error
file-error
file-stream
float
floating-point-inexact
floating-point-invalid-operation
floating-point-overflow
floating-point-underflow
function
generic-function
hash-table
integer
list
logical-pathname
method
method-combination
null
number
package
package-error
parse-error
pathname
print-not-readable
program-error
random-state
ratio
rational
reader-error
readtable
real
restart
sequence
serious-condition
simple-condition
simple-error
simple-type-error
simple-warning
standard-class
standard-generic-function
standard-method
standard-object
storage-condition
stream
stream-error
string
string-stream
structure-class
structure-object
style-warning
symbol
synonym-stream
t
two-way-stream
type-error
unbound-slot
unbound-variable
undefined-function
vector
warning
))
ansi-tests/cl-symbols.lsp
View file @
e59fbeb1
...
...
@@ -1418,3 +1418,20 @@
nil)
;;; Check that all types that are classes name classes.
;;; "Many but not all of the predefined type specifiers have
;;; a corresponding class with the same proper name as the type.
;;; These type specifiers are listed in Figure 4-8." -- section 4.3.7
(deftest cl-types-that-are-classes-symbols.1
;; Collect class names that violate the condition in the
;; above quotation.
(loop
for s in *cl-types-that-are-classes-symbols*
for c = (find-class s nil)
unless (and c
(eq (class-name c) s)
(typep c 'class))
collect s)
nil)
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