Parent Directory | Revision Log | Patch
revision 1.4 by camm, Thu Oct 23 15:14:07 2003 UTC | revision 1.5 by camm, Wed Aug 25 22:48:24 2004 UTC | |
---|---|---|
# | Line 366 | Line 366 |
366 | (dolist (v slot-descriptions) | (dolist (v slot-descriptions) |
367 | (when (and v (car v)) | (when (and v (car v)) |
368 | (setf type | (setf type |
369 | (best-array-element-type (caddr v)) | (or (best-array-element-type (caddr v)) t) |
370 | (caddr v) type) | (caddr v) type) |
371 | (let ((val (second v))) | (let ((val (second v))) |
372 | (unless (typep val type) | (unless (typep val type) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |