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

Diff of /gcl/cmpnew/gcl_cmpeval.lsp

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

revision 1.36 by camm, Mon Nov 14 14:31:29 2005 UTC revision 1.37 by camm, Wed Nov 16 02:13:11 2005 UTC
# Line 844  Line 844 
844                           args :initial-value nil))                           args :initial-value nil))
845             (r (mapcar (lambda (x) (cond ((inlinable-fn x) x)             (r (mapcar (lambda (x) (cond ((inlinable-fn x) x)
846                                          ((car (rassoc x syms :key 'car :test 'equal))) (x))) args))                                          ((car (rassoc x syms :key 'car :test 'equal))) (x))) args))
847             (form (apply 'do-sequence-search (car r) (list (cadr r)) :sum t             (form (apply 'do-sequence-search (car r) (list (cadr r)) `( :sum t ,@(substitute :iv :initial-value (cddr args))))))
                         (let ((z (member :initial-value (cddr args))))  
                           (when z `(:iv ,(cadr z)))))))  
848        `(let ,syms        `(let ,syms
849           ,@(if (constantp (cadr r)) (list form)           ,@(if (constantp (cadr r)) (list form)
850               `((if (typep ,(cadr r) 'vector)               `((if (typep ,(cadr r) 'vector)

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

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