(in-package 'maxima)

(defun $hello_other(masterhost) 
        (setq id (user::pvm-mytid))
        (user::pvm-initsend 0)
	;; convert to lisp-level string
        (setq masterhost (subseq (string masterhost) 1)) 
        (setq buf 
	    (si:STRING-CONCATENATE "Hello to " masterhost " from MAXIMA on " 
	                            (si:getenv "HOST"))
        ) 
        (user::pvm-pkstr buf)
        (setq buf 
	    (si:STRING-CONCATENATE  "-- PVM task id = "
	                            (princ-to-string id))
        ) 
        (user::pvm-pkstr buf)
        (user::pvm-send (user::pvm-parent) 1)
        (user::pvm-exit)
	(return "Done")
)

