Changeset 8487
 Timestamp:
 02/06/05 12:48:38 (16 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/j/src/org/armedbear/lisp/subtypep.lisp
r8486 r8487 2 2 ;;; 3 3 ;;; Copyright (C) 20032005 Peter Graves 4 ;;; $Id: subtypep.lisp,v 1.5 4 20050206 02:47:32piso Exp $4 ;;; $Id: subtypep.lisp,v 1.55 20050206 12:48:38 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 221 221 ((ARRAY VECTOR STRING SIMPLEARRAY SIMPLESTRING BASESTRING 222 222 SIMPLEBASESTRING BITVECTOR SIMPLEBITVECTOR NILVECTOR) 223 (makectype 'array type)) 224 ((NUMBER INTEGER FIXNUM BIGNUM RATIO FLOAT SINGLEFLOAT 225 DOUBLEFLOAT SHORTFLOAT LONGFLOAT) 226 (makectype 'number type))))))) 223 (makectype 'ARRAY type)) 224 ((REAL INTEGER BIT FIXNUM UNSIGNEDBYTE BIGNUM RATIO 225 FLOAT SINGLEFLOAT DOUBLEFLOAT SHORTFLOAT LONGFLOAT) 226 (makectype 'REAL type)) 227 (COMPLEX 228 (makectype 'COMPLEX type))))))) 227 229 228 230 (defun csubtypeparray (ct1 ct2) … … 558 560 (values (subintervalp i1 i2) t) 559 561 (values nil (knowntypep t2)))) 560 ((eq t1 'complex)561 (values (eq t2 'number) t))562 562 ((and (eq t1 (findclass 'array)) (eq t2 'array)) 563 563 (values (equal i2 '(* *)) t))
Note: See TracChangeset
for help on using the changeset viewer.