Changeset 5275


Ignore:
Timestamp:
12/27/03 21:29:28 (18 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/subtypep.lisp

    r5274 r5275  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: subtypep.lisp,v 1.33 2003-12-27 20:50:29 piso Exp $
     4;;; $Id: subtypep.lisp,v 1.34 2003-12-27 21:29:28 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    229229  (when (or (eq type1 type2)
    230230            (null type1)
    231             (eq type2 t))
     231            (eq type2 t)
     232            (eq type2 #.(find-class t)))
    232233    (return-from subtypep (values t t)))
    233234  (when (and (atom type1) (atom type2))
     
    307308          ((null (or i1 i2))
    308309           (return-from subtypep (values (simple-subtypep t1 t2) t)))
    309           ((eq t2 (find-class t1 nil))
    310            (return-from subtypep (values t t)))
     310          ((classp t2)
     311           (cond ((eq t2 (find-class t1 nil))
     312                  (values t t))
     313                 ((and (eq t2 #.(find-class 'array))
     314                       (memq t1 '(array simple-array vector simple-vector string
     315                                  simple-string simple-base-string bit-vector
     316                                  simple-bit-vector)))
     317                  (values t t))
     318                 ((and (eq t2 #.(find-class 'bit-vector))
     319                       (eq t1 'simple-bit-vector))
     320                  (values t t))))
    311321          ((eq t2 'sequence)
    312322           (cond ((memq t1 '(null cons list))
Note: See TracChangeset for help on using the changeset viewer.