/[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.29 by camm, Wed Oct 12 20:14:17 2005 UTC revision 1.30 by camm, Wed Oct 12 20:51:48 2005 UTC
# Line 221  Line 221 
221                              (mapcar 'sequence-type-length-type-int (cdr type))))))                              (mapcar 'sequence-type-length-type-int (cdr type))))))
222                        
223  (defun sequence-type-length-type (type)  (defun sequence-type-length-type (type)
224    (when (consp type) (sequence-type-length-type-int (normalize-type-int type nil))))    (cond ((eq type 'null) `(eql 0));;FIXME accelerators
225            ((eq type 'cons) `(integer 1))
226            ((consp type) (sequence-type-length-type-int (normalize-type-int type nil)))))
227    
228  (defun sequence-type-element-type-int (type)  (defun sequence-type-element-type-int (type)
229      (case (car type)      (case (car type)

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

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