/[gcl]/gcl/lsp/gcl_predlib.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_predlib.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by camm, Wed Oct 12 19:14:06 2005 UTC revision 1.29 by camm, Wed Oct 12 20:14:17 2005 UTC
# Line 954  Line 954 
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))))

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26