501 |
(si::putprop 'cmp-array-element-type 'c1cmp-array-element-type 'c1) |
(si::putprop 'cmp-array-element-type 'c1cmp-array-element-type 'c1) |
502 |
|
|
503 |
(defun cons-type-length (type) |
(defun cons-type-length (type) |
504 |
(cond ((null type) 0) |
(cond ((and (consp type) (eq (car type) 'cons)) (+ 1 (cons-type-length (caddr type)))) |
505 |
((and (consp type) (eq (car type) 'cons)) (+ 1 (cons-type-length (caddr type)))))) |
(0))) |
506 |
|
|
507 |
(defun c1make-array (args) |
(defun c1make-array (args) |
508 |
(let* ((info (make-info)) |
(let* ((info (make-info)) |