Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Wed Jan 29 23:57:33 2003 UTC | revision 1.2 by pfdietz, Tue Feb 4 03:45:47 2003 UTC | |
---|---|---|
# | Line 102 | Line 102 |
102 | (subtypep* 'simple-bit-vector 'simple-vector) | (subtypep* 'simple-bit-vector 'simple-vector) |
103 | nil t) | nil t) |
104 | ||
105 | (deftest subtypep.extended-char.1 | |
106 | (if (subtypep* 'character 'base-char) | |
107 | (subtypep* 'extended-char nil) | |
108 | (values t t)) | |
109 | t t) | |
110 | ||
111 | (deftest subtypep.bignum.1 | |
112 | (if (subtypep* 'integer 'fixnum) | |
113 | (subtypep* 'bignum nil) | |
114 | (values t t)) | |
115 | t t) | |
116 | ||
117 | ;;; SUBTYPEP on CONS types | ;;; SUBTYPEP on CONS types |
118 | ||
119 | (defvar *cons-types* | (defvar *cons-types* |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |