Changeset 4260 for trunk/j/src/org/armedbear/lisp/subtypep.lisp
- Timestamp:
- 10/09/03 01:41:44 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/subtypep.lisp
r4259 r4260 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: subtypep.lisp,v 1.1 8 2003-10-08 19:12:00piso Exp $4 ;;; $Id: subtypep.lisp,v 1.19 2003-10-09 01:41:44 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 111 111 112 112 (defun subtypep-normalize-type (type) 113 (when (symbolp type) 114 (case type 115 (FIXNUM 116 (return-from subtypep-normalize-type 117 '(integer #.most-negative-fixnum #.most-positive-fixnum))) 118 (BASE-CHAR 119 (return-from subtypep-normalize-type 'character)))) 113 120 (let (tp i) 114 121 (loop … … 129 136 (setq i (cadr i)) 130 137 (setq i (list (cadr i))))))) 131 (BASE-CHAR132 (setq tp 'character))133 (FIXNUM134 (setq tp 'integer i '(#.most-negative-fixnum #.most-positive-fixnum)))135 138 ((SHORT-FLOAT SINGLE-FLOAT DOUBLE-FLOAT LONG-FLOAT) 136 139 (setq tp 'float))) … … 309 312 (t 310 313 (values nil nil))))))) 314 315 (when (fboundp 'jvm::jvm-compile) 316 (mapcar #'jvm::jvm-compile '(sys::subtypep-normalize-type 317 sys::sub-interval-p 318 sys::simple-subtypep 319 subtypep)))
Note: See TracChangeset
for help on using the changeset viewer.