/[meta-cvs]/meta-cvs/F-6BD7679FED76D6E5A7D36DC36C205FC1.lisp
ViewVC logotype

Diff of /meta-cvs/F-6BD7679FED76D6E5A7D36DC36C205FC1.lisp

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

revision 1.16 by kaz, Thu Jan 30 11:06:44 2003 UTC revision 1.17 by kaz, Fri Feb 21 06:48:43 2003 UTC
# Line 345  Line 345 
345      (otherwise (chatter-debug "unsuccessful or abnormal termination~%") nil)))      (otherwise (chatter-debug "unsuccessful or abnormal termination~%") nil)))
346    
347  (defmacro with-input-from-program ((stream-var arg-list) &body forms)  (defmacro with-input-from-program ((stream-var arg-list) &body forms)
348   `(let* ((,stream-var (ext:make-pipe-input-stream   `(progn
349        (unix-funcs:default-sigchld)
350        (let* ((,stream-var (ext:make-pipe-input-stream
351                          (arglist-to-command-string ,arg-list))))                          (arglist-to-command-string ,arg-list))))
352      (declare (dynamic-extent ,stream-var))        (declare (dynamic-extent ,stream-var))
353      (when ,stream-var        (when ,stream-var
354        (unwind-protect (progn ,@forms) (close ,stream-var)))))          (unwind-protect (progn ,@forms) (close ,stream-var))))))
355    
356  (defmacro with-output-to-program ((stream-var arg-list) &body forms)  (defmacro with-output-to-program ((stream-var arg-list) &body forms)
357   `(let* ((,stream-var (ext:make-pipe-output-stream   `(progn
358        (unix-funcs:default-sigchld)
359        (let* ((,stream-var (ext:make-pipe-output-stream
360                          (arglist-to-command-string ,arg-list))))                          (arglist-to-command-string ,arg-list))))
361      (declare (dynamic-extent ,stream-var))        (declare (dynamic-extent ,stream-var))
362      (when ,stream-var        (when ,stream-var
363        (unwind-protect (progn ,@forms) (close ,stream-var)))))          (unwind-protect (progn ,@forms) (close ,stream-var))))))
364    
365  ;;; GUID generation  ;;; GUID generation
366    

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5