Ignore:
Timestamp:
09/14/03 12:06:08 (20 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r3740 r3750  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: typep.lisp,v 1.1 2003-09-14 01:39:17 piso Exp $
     4;;; $Id: typep.lisp,v 1.2 2003-09-14 12:06:08 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7272       (and (arrayp object)
    7373            (or (null i) (eq (car i) '*)
    74                 (equal (array-element-type object) (car i)))
     74                (equal (array-element-type object) (upgraded-array-element-type (car i))))
    7575            (or (null (cdr i)) (eq (cadr i) '*)
    7676                (if (listp (cadr i))
Note: See TracChangeset for help on using the changeset viewer.