/[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.35 by camm, Mon Nov 14 04:43:27 2005 UTC revision 1.36 by camm, Mon Nov 14 14:31:29 2005 UTC
# Line 734  Line 734 
734                                                         (if ,p (cdr (rplacd ,p ,tmp))                                                         (if ,p (cdr (rplacd ,p ,tmp))
735                                                           (setq ,lh ,tmp)))) nil))                                                           (setq ,lh ,tmp)))) nil))
736                     ((eq newseq :vector) `(and (setf (aref ,out ,i) ,tf) nil))                     ((eq newseq :vector) `(and (setf (aref ,out ,i) ,tf) nil))
737                     (sum `(and (setq ,sv ,tf) nil))                     (sum `(progn (setq ,sv ,tf) nil))
738                     (count `(and (when ,tf (incf ,cv)) nil))                     (count `(progn (when ,tf (incf ,cv)) nil))
739                     (tf)))                     (tf)))
740           (tf (if start `(when (>= ,i ,start) ,tf) tf))           (tf (if start `(when (>= ,i ,start) ,tf) tf))
741           (tf (if ret `(and (funcall ,ret ,(car vars)) ,tf) tf))           (tf (if ret `(and (funcall ,ret ,(car vars)) ,tf) tf))

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

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