Changeset 4721


Ignore:
Timestamp:
11/13/03 19:21:46 (18 years ago)
Author:
piso
Message:

SIMPLE-SUBTYPEP

File:
1 edited

Legend:

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

    r4713 r4721  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: subtypep.lisp,v 1.27 2003-11-12 21:32:23 piso Exp $
     4;;; $Id: subtypep.lisp,v 1.28 2003-11-13 19:21:46 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    212212                                         (dolist (supertype type1-supertypes)
    213213                                           (when (simple-subtypep supertype type2)
    214                                              (return (values t)))))))))
    215   (let (c1 c2)
    216     (if (and (setf c1 (if (classp type1) type1 (find-class type1 nil)))
    217              (setf c2 (if (classp type2) type2 (find-class type2 nil)))
    218              (memq c2 (class-precedence-list c1)))
    219         t
    220         nil)))
     214                                             (return t))))))))
     215  nil)
    221216
    222217(defun subtypep (type1 type2)
Note: See TracChangeset for help on using the changeset viewer.