/[meta-cvs]/meta-cvs/F-5C4536C98E79EFAD905684B34C8DA41D.lisp
ViewVC logotype

Diff of /meta-cvs/F-5C4536C98E79EFAD905684B34C8DA41D.lisp

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

revision 1.3 by kaz, Tue Apr 1 06:41:50 2003 UTC revision 1.4 by kaz, Sun Apr 13 14:36:05 2003 UTC
# Line 16  Line 16 
16                               :initial-value 0))                               :initial-value 0))
17           (size fixed-size))           (size fixed-size))
18      (if extra-args      (if extra-args
19        (let (chopped-arg)        (let ((chopped-arg ())
20                (combined-status t))
21          (dolist (arg extra-args)          (dolist (arg extra-args)
22            (push arg chopped-arg)            (push arg chopped-arg)
23            (when (> (incf size (1+ (length arg))) *argument-limit*)            (when (> (incf size (1+ (length arg))) *argument-limit*)
24              (when (not (execute-program (append fixed-args              (setf combined-status
25                      (and combined-status
26                           (execute-program (append fixed-args
27                                                  (nreverse chopped-arg)                                                  (nreverse chopped-arg)
28                                                  fixed-trail-args)))                                                  fixed-trail-args))))
               (return-from execute-program-xargs nil))  
29              (setf chopped-arg nil)              (setf chopped-arg nil)
30              (setf size fixed-size)))              (setf size fixed-size)))
31          (when chopped-arg          (when chopped-arg
32            (execute-program (append fixed-args (nreverse chopped-arg)            (execute-program (append fixed-args (nreverse chopped-arg)
33                                     fixed-trail-args))))                                     fixed-trail-args)))
34            combined-status)
35        (execute-program fixed-args))))        (execute-program fixed-args))))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5