/[gcl]/gcl/ansi-tests/subtypep.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/subtypep.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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*

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26