(FILECREATED " 2-Feb-86 17:15:48" {DSK}<LISPFILES2>ENV.LSP;2
 1989   

      changes to:  (VARS ENVCOMS))


(* Copyright (c) 1986 by Quintus Computer Systems, Inc. All rights reserved.)

(PRETTYCOMPRINT ENVCOMS)

(RPAQQ ENVCOMS
 ((FNS QP.ABSOLUTE.PATH QP.ADD.FILE.TO.PATH QP.FILE.EXISTS QP.GETENV QP.HOST.VERSION 
		       REMLISTPROP)))
(DEFINEQ

(QP.ABSOLUTE.PATH

  (LAMBDA (PATH)
    (LET ((PATH.HOST (
FILENAMEFIELD
 PATH (
QUOTE
 HOST)))
	  (CONN.HOST (
FILENAMEFIELD
 \CONNECTED.DIRECTORY (
QUOTE
 HOST))))
         (
COND

	   ((
OR
 (
EQ
 PATH.HOST CONN.HOST)
		  (
NULL
 PATH.HOST))
	     (
PACKFILENAME
 (
QUOTE
 BODY)
			     PATH
			     (
QUOTE
 BODY)
			     \CONNECTED.DIRECTORY))
	   (T PATH)))))

(QP.ADD.FILE.TO.PATH

  (LAMBDA (PATH PARTSLIST)
    (
COND

      ((
AND
 (
NEQ
 (
NTHCHARCODE
 PATH -1)
		     (
CHARCODE
 >))
	      (
OR
 (
STRPOS
 "<" PATH)
		    (
STRPOS
 ">" PATH)
		    (
NEQ
 (
CHCON1
 PATH)
			   (
CHARCODE
 {))))
	(
SETQ
 PARTSLIST (
CONS
 ">" PARTSLIST))))
    (
SETQ
 PARTSLIST (
CONS
 PATH PARTSLIST))
    (
COND

      ((
AND
 (
NEQ
 (
CHCON1
 PATH)
		     (
CHARCODE
 {))
	      (
NOT
 (
STRPOS
 "<" PATH)))
	(
SETQ
 PARTSLIST (
CONS
 "<" PARTSLIST))))
    (
PACK
 PARTSLIST)))

(QP.FILE.EXISTS

  (LAMBDA (PATH)
    (
COND

      ((
INFILEP
 PATH)
	1)
      (T 0))))

(QP.GETENV

  (LAMBDA (TYPE)
    (
SELECTQ
 TYPE
	       (HOME LOGINHOST/DIR)
	       (T (
SHOULDNT
 (
QUOTE
 GETENV))))))

(QP.HOST.VERSION

  (LAMBDA NIL
    (VALUES 79 4 1 5)))

(REMLISTPROP

  (LAMBDA (
LIST
 ITEM)
    (CL:DO (RESULT (LIST1 LIST (
CDDR
 LIST1)))
	   ((
NULL
 LIST1)
	    RESULT)
	   (
COND

	     ((
EQ
 (
CAR
 LIST1)
		    ITEM))
	     (T (
SETQ
 RESULT (
APPEND
 (
LIST
 (
CAR
 LIST1)
						 (
CADR
 LIST1))
					 RESULT)))))))
)
(PUTPROPS ENV.LSP COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (346 1899 (QP.ABSOLUTE.PATH 356 . 746) (QP.ADD.FILE.TO.PATH 748 . 1311) (QP.FILE.EXISTS 
1313 . 1408) (QP.GETENV 1410 . 1541) (QP.HOST.VERSION 1543 . 1601) (REMLISTPROP 1603 . 1897)))))
STOP