Changeset 8492


Ignore:
Timestamp:
02/06/05 18:28:28 (17 years ago)
Author:
piso
Message:

(upgraded-complex-part-type nil) => NIL

File:
1 edited

Legend:

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

    r6705 r8492  
    11;;; upgraded-complex-part-type.lisp
    22;;;
    3 ;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: upgraded-complex-part-type.lisp,v 1.2 2004-05-03 15:24:54 piso Exp $
     3;;; Copyright (C) 2004-2005 Peter Graves
     4;;; $Id: upgraded-complex-part-type.lisp,v 1.3 2005-02-06 18:28:28 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2121
    2222(defun upgraded-complex-part-type (typespec &optional environment)
    23   (cond ((subtypep typespec 'float)
     23  (declare (ignore environment))
     24  (cond ((null typespec)
     25         nil)
     26        ((subtypep typespec 'float)
    2427   'float)
    2528  ((subtypep typespec 'rational)
Note: See TracChangeset for help on using the changeset viewer.