/[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.11 by pfdietz, Fri Feb 14 14:07:22 2003 UTC revision 1.12 by pfdietz, Sat Feb 15 05:11:12 2003 UTC
# Line 7  Line 7 
7    
8  ;;; More subtypep tests are in types-and-class.lsp  ;;; More subtypep tests are in types-and-class.lsp
9    
10    (deftest subtypep.order.1
11      (let ((i 0) x y)
12        (values
13         (notnot (subtypep (progn (setf x (incf i)) t)
14                           (progn (setf y (incf i)) t)))
15         i x y))
16      t 2 1 2)
17    
18  (deftest simple-base-string-is-sequence  (deftest simple-base-string-is-sequence
19      (subtypep* 'simple-base-string 'sequence)      (subtypep* 'simple-base-string 'sequence)
20    t t)    t t)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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