Changeset 8760


Ignore:
Timestamp:
03/13/05 01:46:40 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/upgraded-complex-part-type.lisp

    r8492 r8760  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: upgraded-complex-part-type.lisp,v 1.3 2005-02-06 18:28:28 piso Exp $
     4;;; $Id: upgraded-complex-part-type.lisp,v 1.4 2005-03-13 01:46:40 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    1818;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    1919
    20 ;;; Adapted from SBCL.
    21 
    2220(defun upgraded-complex-part-type (typespec &optional environment)
    2321  (declare (ignore environment))
    24   (cond ((null typespec)
    25          nil)
    26         ((subtypep typespec 'float)
    27    'float)
    28   ((subtypep typespec 'rational)
    29    'rational)
    30         ((subtypep typespec 'real)
    31          'real)
    32   (t
    33    t)))
     22  (if (subtypep typespec 'REAL)
     23      typespec
     24      (error :format-control "The type ~S is not a subtype of ~S."
     25             :format-arguments (list typespec 'REAL))))
Note: See TracChangeset for help on using the changeset viewer.