Clisp on windows



> 	((setq tem (ext::getenv "PID"))
> 	 (read-from-string tem))

A less adventurous version:

((setq tem (ext::getenv "PID"))
	 ;; Don't use PID if it contains junk.
	 (handler-case
	     (values (parse-integer tem))
	   (parse-error () nil)))

Wolfgang