
(proclaim '(optimize (safety 2)))
(defvar buf (make-string 100))
(defun hello(host) ;; host is a string
     (pvm-mytid)
     (cond ((not (equal (pvm-spawn "hello_other" 
	      (si:getenv "HOST") 1 host 1 'psids) 1))
                	(princ (list '|can't start hello_other on| host)))
           (t 
	          (pvm-bufinfo (pvm-recv -1 -1) 'len 'code 'tid)
	          (pvm-upkstr 'buf)
	          (princ buf)
	    )
))
