(FILECREATED " 8-Feb-86 15:21:29" {DSK}<LISPFILES2>IMPROVEDDCOMS>ENV.;1
 1583   

      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) (COND ((SYMBOLP 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)))) (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 COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (348 1497 (QP.ABSOLUTE.PATH 358 . 679) (QP.ADD.FILE.TO.PATH 681 . 1069) (QP.FILE.EXISTS 
1071 . 1139) (QP.GETENV 1141 . 1238) (QP.HOST.VERSION 1240 . 1292) (REMLISTPROP 1294 . 1495)))))
STOP