(FILECREATED " 8-Feb-86 15:16:17" {DSK}<LISPFILES2>IMPROVEDDCOMS>SELECT.;1
 1156   

      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 COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1020 1067 (dummy.select 1030 . 1065)))))
STOP