(FILECREATED " 2-Feb-86 18:56:05" {DSK}<LISPFILES2>SELECT.LSP;2
 1367   

      changes to:  (VARS SELECTCOMS))


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

(PRETTYCOMPRINT SELECTCOMS)

(RPAQQ SELECTCOMS
 ((MACROS reselect reselect.when.bound select.16 select.4)
		     (FNS dummy.select)))
(DECLARE: EVAL@COMPILE 
(PUTPROPS reselect MACRO (X (PROGN (QUOTE (GO SELECT)))))
(PUTPROPS reselect.when.bound MACRO (X (APPLY (FUNCTION (LAMBDA (X R L)
								(if (NULL L)
								    then
								    (SETQ L (QUOTE SELECT)))
								(BQUOTE
								  (COND ((NOT (is.unbound
										(\, X)
										(\, R)))
									 (GO (\, L)))))))
					      X)))
(PUTPROPS select.16 MACRO
	  (body (PROGN (if (MEMB (CAR body)
				 QP.32)
			   then
			   (BQUOTE (PROG NIL SELECT (RETURN (SELECTC (ReadPrologTag
								       (\, (CAR body)))
								     (\,@ (CDR body))))))
			   else
			   (SHOULDNT (QUOTE dispatch))))))
(PUTPROPS select.4 MACRO (body (PROGN (if (MEMB (CAR body)
						QP.32)
					  then
					  (BQUOTE (PROG NIL SELECT
							(RETURN (SELECTC (ReadPrologTag
									   (\, (CAR body)))
									 (\,@ (CDR body))))))
					  else
					  (SHOULDNT (QUOTE dispatch))))))
)
(DEFINEQ

(dummy.select

  (LAMBDA NIL NIL))
)
(PUTPROPS SELECT.LSP COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1225 1274 (dummy.select 1235 . 1272)))))
STOP