Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC | revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC | |
---|---|---|
# | Line 6 | Line 6 |
6 | (in-package :cl-test) | (in-package :cl-test) |
7 | ||
8 | (defun make-array-check-upgrading (type) | (defun make-array-check-upgrading (type) |
9 | (subtypep type (array-element-type (make-array 0 :element-type type)))) | (subtypep* type (array-element-type (make-array 0 :element-type type)))) |
10 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |