954 |
(let* ((dim (caddr type)) |
(let* ((dim (caddr type)) |
955 |
(dim (cond ((eq dim '*) t) |
(dim (cond ((eq dim '*) t) |
956 |
((integerp dim) (if (= 0 dim) dim (make-list dim :initial-element t))) |
((integerp dim) (if (= 0 dim) dim (make-list dim :initial-element t))) |
957 |
((listp dim) (let (r) (dolist (d dim (nreverse r)) (push (if (eq d '*) t d) r)) r))))) |
((listp dim) (let (r) (dolist (d dim (nreverse r)) (push (if (eq d '*) t d) r))))))) |
958 |
(if (eq z '*) |
(if (eq z '*) |
959 |
(dolist (l +array-type-alist+) |
(dolist (l +array-type-alist+) |
960 |
(ntp-ld ntp `(,(cdr l) ,(when z dim)))) |
(ntp-ld ntp `(,(cdr l) ,(when z dim)))) |