Changeset 3730
 Timestamp:
 09/13/03 18:43:24 (19 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/j/src/org/armedbear/lisp/subtypep.lisp
r3729 r3730 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: subtypep.lisp,v 1. 3 20030913 18:34:23piso Exp $4 ;;; $Id: subtypep.lisp,v 1.4 20030913 18:43:24 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 174 174 (t 175 175 (cond ((eq t1 'float) 176 (if ( eq t2 'float)176 (if (memq t2 '(float real number)) 177 177 (values (subintervalp i1 i2) t) 178 178 (values nil (knowntypep t2)))) 179 179 ((eq t1 'integer) 180 (if (mem bert2 '(integer rational real number))180 (if (memq t2 '(integer rational real number)) 181 181 (values (subintervalp i1 i2) t) 182 182 (values nil (knowntypep t2)))) 183 183 ((eq t1 'rational) 184 (if (mem ber t2 '(rational real))184 (if (memq t2 '(rational real number)) 185 185 (values (subintervalp i1 i2) t) 186 186 (values nil (knowntypep t2)))) 187 187 ((eq t1 'real) 188 (if ( eq t2 'real)188 (if (memq t2 '(real number)) 189 189 (values (subintervalp i1 i2) t) 190 190 (values nil (knowntypep t2))))
Note: See TracChangeset
for help on using the changeset viewer.