Ignore:
Timestamp:
10/09/03 01:41:44 (19 years ago)
Author:
piso
Message:

SUBTYPEP-NORMALIZE-TYPE

File:
1 edited

Legend:

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

    r4259 r4260  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: subtypep.lisp,v 1.18 2003-10-08 19:12:00 piso Exp $
     4;;; $Id: subtypep.lisp,v 1.19 2003-10-09 01:41:44 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    111111
    112112(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))))
    113120  (let (tp i)
    114121    (loop
     
    129136               (setq i (cadr i))
    130137               (setq i (list (cadr i)))))))
    131       (BASE-CHAR
    132        (setq tp 'character))
    133       (FIXNUM
    134        (setq tp 'integer i '(#.most-negative-fixnum #.most-positive-fixnum)))
    135138      ((SHORT-FLOAT SINGLE-FLOAT DOUBLE-FLOAT LONG-FLOAT)
    136139       (setq tp 'float)))
     
    309312                 (t
    310313                  (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.