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) |