/[gcl]/gcl/cmpnew/gcl_cmpfun.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpfun.lsp

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

revision 1.10 by camm, Mon Aug 8 22:58:06 2005 UTC revision 1.11 by camm, Wed Aug 10 13:51:21 2005 UTC
# Line 501  Line 501 
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))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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