(define me-length (string-length (car (argv))))

(define (set-proc-title str #!optional (len (min me-length
						 (string-length str))))
  (receive (c v) (argc+argv)
	   ((foreign-lambda* void ((c-string str) (c-pointer argv) (integer len))
			     "char *name = ((char**) argv)[0];
			     strncpy(name,str,strlen(name));
			     ")
			     str v len)))

(use posix)

(sleep 5)
(set-proc-title "hello")
(sleep 100)