Changeset 3751

Timestamp:

09/14/03 12:25:27 (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.2 2003-09-14 12:06:08 piso Exp $
+;;; $Id: typep.lisp,v 1.3 2003-09-14 12:25:27 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -64 +64 @@
        (and (simple-array-p object)
             (or (endp i) (eq (car i) '*)
-                (equal (array-element-type object) (car i)))
+                (equal (array-element-type object) (upgraded-array-element-type (car i))))
             (or (endp (cdr i)) (eq (cadr i) '*)
                 (if (listp (cadr i))