120 |
(cond ((not from-end) |
(cond ((not from-end) |
121 |
(when (null ivsp) |
(when (null ivsp) |
122 |
(when (>= start end) |
(when (>= start end) |
123 |
(return-from reduce (funcall function))) |
(return-from reduce (let ((z (funcall function))) z))) |
124 |
(setq initial-value (funcall key (elt sequence start))) |
(setq initial-value (funcall key (elt sequence start))) |
125 |
(setf start (f+ 1 start)) |
(setf start (f+ 1 start)) |
126 |
) |
) |
132 |
(t |
(t |
133 |
(when (null ivsp) |
(when (null ivsp) |
134 |
(when (>= start end) |
(when (>= start end) |
135 |
(return-from reduce (funcall function))) |
(return-from reduce (let ((z (funcall function))) z))) |
136 |
(setf end (f+ end -1)) |
(setf end (f+ end -1)) |
137 |
(setq initial-value (funcall key (elt sequence end))) |
(setq initial-value (funcall key (elt sequence end))) |
138 |
) |
) |
640 |
(return (cdr l0))) |
(return (cdr l0))) |
641 |
(setq key-right (funcall key (car right))) |
(setq key-right (funcall key (car right))) |
642 |
(go loop)))) |
(go loop)))) |
643 |
(sort l))) |
(let ((z (sort l))) |
644 |
|
z))) |
645 |
|
|
646 |
|
|
647 |
#| |
#| |