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