Changeset 4692
- Timestamp:
- 11/11/03 17:08:45 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/subtypep.lisp
r4361 r4692 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: subtypep.lisp,v 1.2 1 2003-10-14 02:31:20piso Exp $4 ;;; $Id: subtypep.lisp,v 1.22 2003-11-11 17:08:45 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 215 215 216 216 (defun subtypep (type1 type2) 217 (when (or (null type1) (eq type2 t)) 217 (when (or (eq type1 type2) 218 (null type1) 219 (eq type2 t)) 218 220 (return-from subtypep (values t t))) 219 221 (let* ((c1 (classp type1)) (c2 (classp type2))
Note: See TracChangeset
for help on using the changeset viewer.