(FILECREATED " 8-Feb-86 15:09:05" {DSK}<LISPFILES2>IMPROVEDDCOMS>VALUES.;1
 2552   

      changes to:  (VARS VALUESCOMS))


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

(PRETTYCOMPRINT VALUESCOMS)

(RPAQQ VALUESCOMS
 ((ADDVARS (GLOBALVARS MV.RETURNER9) (GLOBALVARS MV.RETURNER8) (GLOBALVARS 
MV.RETURNER7) (GLOBALVARS MV.RETURNER6) (GLOBALVARS MV.RETURNER5) (GLOBALVARS MV.RETURNER4) (
GLOBALVARS MV.RETURNER3) (GLOBALVARS MV.RETURNER2) (GLOBALVARS MV.RETURNER15) (GLOBALVARS 
MV.RETURNER14) (GLOBALVARS MV.RETURNER13) (GLOBALVARS MV.RETURNER12) (GLOBALVARS MV.RETURNER11) (
GLOBALVARS MV.RETURNER10) (GLOBALVARS MV.RETURNER1) (GLOBALVARS MV.RETURNER0) (GLOBALVARS MV.NARGS)) (
MACROS MULTIPLE.VALUE.BIND MULTIPLE.VALUE.SETQ VALUES)))

(ADDTOVAR GLOBALVARS
 MV.RETURNER9)

(ADDTOVAR GLOBALVARS
 MV.RETURNER8)

(ADDTOVAR GLOBALVARS
 MV.RETURNER7)

(ADDTOVAR GLOBALVARS
 MV.RETURNER6)

(ADDTOVAR GLOBALVARS
 MV.RETURNER5)

(ADDTOVAR GLOBALVARS
 MV.RETURNER4)

(ADDTOVAR GLOBALVARS
 MV.RETURNER3)

(ADDTOVAR GLOBALVARS
 MV.RETURNER2)

(ADDTOVAR GLOBALVARS
 MV.RETURNER15)

(ADDTOVAR GLOBALVARS
 MV.RETURNER14)

(ADDTOVAR GLOBALVARS
 MV.RETURNER13)

(ADDTOVAR GLOBALVARS
 MV.RETURNER12)

(ADDTOVAR GLOBALVARS
 MV.RETURNER11)

(ADDTOVAR GLOBALVARS
 MV.RETURNER10)

(ADDTOVAR GLOBALVARS
 MV.RETURNER1)

(ADDTOVAR GLOBALVARS
 MV.RETURNER0)

(ADDTOVAR GLOBALVARS
 MV.NARGS)
(DECLARE: EVAL@COMPILE 
(PUTPROPS MULTIPLE.VALUE.BIND MACRO (**MACROARG** (LET ((VARS (CAR (NTH **MACROARG** 1))) (FORM (CAR (
NTH **MACROARG** 2))) (BODY (NTH **MACROARG** 3))) (PROG ((COUNT 0)) (RETURN (BQUOTE (LET (((\, (CAR 
VARS)) (\, FORM)) (\,@ (MAPCAR (CDR VARS) (FUNCTION (LAMBDA (VAR) (LIST VAR (PACK* (QUOTE MV.RETURNER)
 (INCR COUNT)))))))) (\,@ BODY))))))))
(PUTPROPS MULTIPLE.VALUE.SETQ MACRO (**MACROARG** (LET ((VARS (CAR (NTH **MACROARG** 1))) (FORM (CAR (
NTH **MACROARG** 2))) (BODY (NTH **MACROARG** 3))) (PROG ((COUNT 0)) (RETURN (BQUOTE (PROGN (SETQ (\, 
(CAR VARS)) (\, FORM)) (\,@ (MAPCAR (CDR VARS) (FUNCTION (LAMBDA (VAR) (LIST (QUOTE SETQ) VAR (PACK* (
QUOTE MV.RETURNER) (INCR COUNT))))))) (\,@ BODY))))))))
(PUTPROPS VALUES MACRO (EXPRS (PROGN (PROG ((COUNT 0)) (RETURN (BQUOTE (PROG1 (\, (CAR EXPRS)) (\,@ (
MAPCAR (CDR EXPRS) (FUNCTION (LAMBDA (EXPR) (BQUOTE (SETQ (\, (PACK* (QUOTE MV.RETURNER) (INCR COUNT))
) (\, EXPR))))))) (SETQ MV.NARGS (\, (LENGTH EXPRS))))))))))
)
(PUTPROPS VALUES COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP