(FILECREATED " 2-Feb-86 19:03:24" {DSK}<LISPFILES2>VALUES.LSP;2
 3093   

      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.LSP COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP