/[gcl]/gcl/lsp/gcl_seqlib.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_seqlib.lsp

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

revision 1.6 by camm, Sat Jul 23 08:52:47 2005 UTC revision 1.7 by camm, Tue Aug 9 00:46:01 2005 UTC
# Line 120  Line 120 
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                   )                   )
# Line 132  Line 132 
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                    )                    )
# Line 640  Line 640 
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  #|  #|

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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