/[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.33 by pfdietz, Sat Mar 1 19:29:29 2003 UTC revision 1.34 by pfdietz, Sat May 10 02:01:57 2003 UTC
# Line 420  Line 420 
420          (c2 (find-class 'symbol)))          (c2 (find-class 'symbol)))
421      (notnot-mv (typep 'a `(or ,c2 ,c1))))      (notnot-mv (typep 'a `(or ,c2 ,c1))))
422    t)    t)
423    
424    (deftest typep.18
425      (let ((i 0))
426        (values
427         (notnot (typep (incf i) '(and (integer 0 10) (integer -5 6))))
428         i))
429      t 1)

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

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