/[gcl]/gcl/ansi-tests/types-and-class.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/types-and-class.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by pfdietz, Tue Jan 14 09:08:51 2003 UTC revision 1.14 by pfdietz, Sat Jan 25 17:36:45 2003 UTC
# Line 350  Line 350 
350    (subtypep* 'extended-char 'atom)    (subtypep* 'extended-char 'atom)
351    t t)    t t)
352    
353    (deftest string-is-not-simple-vector
354      (subtypep* 'string 'simple-vector)
355      nil t)
356    
357    (deftest base-string-is-not-simple-vector
358      (subtypep* 'base-string 'simple-vector)
359      nil t)
360    
361    (deftest simple-string-is-not-simple-vector
362      (subtypep* 'simple-string 'simple-vector)
363      nil t)
364    
365    (deftest simple-base-string-is-not-simple-vector
366      (subtypep* 'simple-base-string 'simple-vector)
367      nil t)
368    
369    (deftest bit-vector-is-not-simple-vector
370      (subtypep* 'bit-vector 'simple-vector)
371      nil t)
372    
373    (deftest simple-bit-vector-is-not-simple-vector
374      (subtypep* 'simple-bit-vector 'simple-vector)
375      nil t)
376    
377  ;;; Error checking of type-related functions  ;;; Error checking of type-related functions
378    
379  (deftest subtypep.error.1  (deftest subtypep.error.1

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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