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

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

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

revision 1.17 by pfdietz, Fri Oct 7 13:49:01 2005 UTC revision 1.18 by pfdietz, Mon Oct 10 13:20:10 2005 UTC
# Line 334  Line 334 
334       (subtypep* `(not ,type2) `(not ,type1))))       (subtypep* `(not ,type2) `(not ,type1))))
335    nil nil)    nil nil)
336    
337  ;;; From SBCL  ;;; From sbcl 0.9.5.31
338    
339  (deftest subtypep.cons.41  (deftest subtypep.cons.41
340    (let ((type1 '(cons t (complex (real -10 -4))))    (let ((type1 '(cons t (complex (real -10 -4))))
# Line 348  Line 348 
348              nil))))              nil))))
349    nil)    nil)
350    
351    (deftest subtypep.cons.42
352        (let ((t1 '(cons (cons (cons (real -744833699 -744833699) cons) (integer -234496 215373))
353                    integer))
354              (t2 '(cons (cons (cons integer integer) (integer -234496 215373)) t)))
355          (values (subtypep `(not ,t2) `(not ,t1))))
356      nil)
357    
358      
359              

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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