Changeset 4695


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

SUBTYPE-NORMALIZE-TYPE: optimize the SYMBOLP case.

File:
1 edited

Legend:

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

    r4694 r4695  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: subtypep.lisp,v 1.24 2003-11-11 18:05:44 piso Exp $
     4;;; $Id: subtypep.lisp,v 1.25 2003-11-11 18:18:51 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    117117                    '(integer #.most-negative-fixnum #.most-positive-fixnum)))
    118118      (BASE-CHAR
    119        (return-from subtypep-normalize-type 'character))))
     119       (return-from subtypep-normalize-type 'character))
     120      ((SHORT-FLOAT SINGLE-FLOAT DOUBLE-FLOAT LONG-FLOAT)
     121       (return-from subtypep-normalize-type 'float))
     122      (t
     123       (unless (get type 'deftype-definition)
     124         (return-from subtypep-normalize-type type)))))
     125  ;; Fall through...
    120126  (let (tp i)
    121127    (loop
Note: See TracChangeset for help on using the changeset viewer.