Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 5/3/83; site umcp-cs.UUCP
Path: utzoo!linus!philabs!seismo!rlgvax!cvl!umcp-cs!israel
From: israel@umcp-cs.UUCP
Newsgroups: net.lang.lisp
Subject: Re: Franz Lisp Process Help??? - (nf)
Message-ID: <2677@umcp-cs.UUCP>
Date: Wed, 21-Sep-83 18:50:27 EDT
Article-I.D.: umcp-cs.2677
Posted: Wed Sep 21 18:50:27 1983
Date-Received: Fri, 23-Sep-83 06:17:34 EDT
References: <1140@ecn-ec.UUCP>
Organization: Univ. of Maryland, Computer Science Dept.
Lines: 15

Here's a function that I wrote called 'gwd' that gets the current
working directory by calling 'pwd'.

(defun gwd ()
  (prog (a b c)
     (process pwd a b)	; run 'pwd', input pipe is variable 'a', output is 'b'
     (setq c (read b))	; read output
     (close a)		; close off pipes (they aren't closed automatically)
     (close b)
     (return c)))
-- 

~~~ Bruce
Computer Science Dept., University of Maryland
{rlgvax,seismo}!umcp-cs!israel (Usenet)    israel.umcp-cs@Udel-Relay (Arpanet)