Changeset 4696


Ignore:
Timestamp:
11/11/03 18:30:13 (18 years ago)
Author:
piso
Message:

SUBTYPEP: minor refactoring.

File:
1 edited

Legend:

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

    r4695 r4696  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: subtypep.lisp,v 1.25 2003-11-11 18:18:51 piso Exp $
     4;;; $Id: subtypep.lisp,v 1.26 2003-11-11 18:30:13 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    252252        (setq t2 type2 i2 nil)
    253253        (setq t2 (car type2) i2 (cdr type2)))
    254     (when (eq t2 'atom)
    255       (return-from subtypep (cond ((memq t1 '(cons list)) (values nil t))
    256                                   ((known-type-p t1) (values t t))
    257                                   (t (values nil nil)))))
    258     (cond ((eq t1 'member)
     254    (cond ((eq t2 'atom)
     255           (return-from subtypep (cond ((memq t1 '(cons list)) (values nil t))
     256                                       ((known-type-p t1) (values t t))
     257                                       (t (values nil nil)))))
     258          ((eq t1 'member)
    259259           (dolist (e i1)
    260260             (unless (typep e type2) (return-from subtypep (values nil t))))
Note: See TracChangeset for help on using the changeset viewer.