Changeset 3750

Timestamp:

09/14/03 12:06:08 (20 years ago)

Author:

piso

Message:

Work in progress.

File:

• trunk/j/src/org/armedbear/lisp/typep.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/typep.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: typep.lisp,v 1.1 2003-09-14 01:39:17 piso Exp $
+;;; $Id: typep.lisp,v 1.2 2003-09-14 12:06:08 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -72 +72 @@
        (and (arrayp object)
             (or (null i) (eq (car i) '*)
-                (equal (array-element-type object) (car i)))
+                (equal (array-element-type object) (upgraded-array-element-type (car i))))
             (or (null (cdr i)) (eq (cadr i) '*)
                 (if (listp (cadr i))