/[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.9 by kaz, Sun Oct 6 05:19:54 2002 UTC revision 1.9.2.2 by kaz, Sat Oct 12 20:25:17 2002 UTC
# Line 2  Line 2 
2  ;;; which is distributed under the GNU license.  ;;; which is distributed under the GNU license.
3  ;;; Copyright 2002 Kaz Kylheku  ;;; Copyright 2002 Kaz Kylheku
4    
5    (require "chatter.lisp")
6    (require "posix")
7  (provide "clisp-unix")  (provide "clisp-unix")
8    
9  ;;; Null pointer handling  ;;; Null pointer handling
# Line 327  Line 329 
329      (otherwise nil)))      (otherwise nil)))
330    
331  (defun execute-program (arglist)  (defun execute-program (arglist)
332      (chatter-debug "invoking ~s in directory ~s~%" arglist (getcwd))
333    (case (run-program (first arglist) :arguments (rest arglist))    (case (run-program (first arglist) :arguments (rest arglist))
334      ((0) T)      ((0) (chatter-debug "successful termination~%") T)
335      (otherwise nil)))      (otherwise (chatter-debug "unsuccessful or abnormal termination~%") nil)))
336    
337  (defmacro with-input-from-program ((stream-var arg-list) &body forms)  (defmacro with-input-from-program ((stream-var arg-list) &body forms)
338   `(let* ((,stream-var (make-pipe-input-stream   `(let* ((,stream-var (make-pipe-input-stream

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.2.2

  ViewVC Help
Powered by ViewVC 1.1.5