(FILECREATED "18-Feb-85 17:36:39" {DSK}<LISPFILES2>VALUES.;2
 3340   

      changes to:  (MACROS MULTIPLE.VALUE.BIND MULTIPLE.VALUE.SETQ VALUES)

      previous date: " 7-Feb-86 00:32:09" {DSK}<LISPFILES2>VALUES.;1)


(* Copyright (c) 1985 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)
										   (SETQ
										     COUNT
										     (PLUS COUNT 1))))
								      )))))
					    (\,@ 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)
										    (SETQ
										      COUNT
										      (PLUS COUNT 1)))
									     )))))
					      (\,@ 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)
										   (SETQ
										     COUNT
										     (PLUS COUNT 1))))
									(\, EXPR)))))))
					     (SETQ MV.NARGS (\, (LENGTH EXPRS))))))))))
)
(PUTPROPS VALUES COPYRIGHT ("Quintus Computer Systems, Inc" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP