Changeset 5275
 Timestamp:
 12/27/03 21:29:28 (18 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/j/src/org/armedbear/lisp/subtypep.lisp
r5274 r5275 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: subtypep.lisp,v 1.3 3 20031227 20:50:29piso Exp $4 ;;; $Id: subtypep.lisp,v 1.34 20031227 21:29:28 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 229 229 (when (or (eq type1 type2) 230 230 (null type1) 231 (eq type2 t)) 231 (eq type2 t) 232 (eq type2 #.(findclass t))) 232 233 (returnfrom subtypep (values t t))) 233 234 (when (and (atom type1) (atom type2)) … … 307 308 ((null (or i1 i2)) 308 309 (returnfrom subtypep (values (simplesubtypep t1 t2) t))) 309 ((eq t2 (findclass t1 nil)) 310 (returnfrom subtypep (values t t))) 310 ((classp t2) 311 (cond ((eq t2 (findclass t1 nil)) 312 (values t t)) 313 ((and (eq t2 #.(findclass 'array)) 314 (memq t1 '(array simplearray vector simplevector string 315 simplestring simplebasestring bitvector 316 simplebitvector))) 317 (values t t)) 318 ((and (eq t2 #.(findclass 'bitvector)) 319 (eq t1 'simplebitvector)) 320 (values t t)))) 311 321 ((eq t2 'sequence) 312 322 (cond ((memq t1 '(null cons list))
Note: See TracChangeset
for help on using the changeset viewer.