(FILECREATED "29-MAY-83 01:16:15" {PHYLUM}<LISPCORE>SYSTEM>CLISP.;9
 42908  

      previous date: "28-MAY-83 18:12:27" {PHYLUM}<LISPCORE>SYSTEM>CLISP.;8)


(* Copyright (c) 1982, 1983 by Xerox Corporation)

(PRETTYCOMPRINT CLISPCOMS)

(RPAQQ CLISPCOMS
 ((VARS (NOFIXFNSLST0)
			(NOFIXVARSLST0)
			(NOSPELLFLG)
			(LPARKEY 9)
			(RPARKEY 0)
			(WTFIXCHCONLST (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL 
						   NIL NIL NIL NIL NIL NIL NIL)))
			(WTFIXCHCONLST1 (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL 
						    NIL NIL NIL NIL NIL NIL NIL))))
	(USERMACROS FIX8 FIX9)
	(ADDVARS (DWIMUSERFORMS)
		 (LAMBDASPLST LAMBDA NLAMBDA)
		 (OKREEVALST AND OR PROGN SAVESETQ CAR CDR ADD1 SUB1 CONS LIST EQ EQUAL PRINT PRIN1 
			     APPEND NEQ NOT NULL)
		 (NOFIXFNSLST)
		 (NOFIXVARSLST))
	(ADDVARS (GLOBALVARS)
		 (LOCALVARS)
		 (SPECVARS)
		 (NLAMA)
		 (NLAML)
		 (LAMA)
		 (LAMS))
	(P (MOVD? (QUOTE NILL)
		  (QUOTE FREEVARS)))
	(PROP FILEDEF BREAKDOWN CALLS CLISPRECORD FREEVARS SETUPHASHARRAY MAKEMATCH)
	(PROP CLISPTYPE ')
	(E (SETQQ CLISPCHARS
		  (↑ * / + - = ← : ' ~ +- ~= < > @ !))
	   (CLISPDEC (QUOTE (STANDARD INTEGER))))
	(VARS (CLISPFLG T)
	      (CLISPHELPFLG T)
	      (TREATASCLISPFLG)
	      (DWIMESSGAG)
	      CLISPINFIXSPLST
	      (CLISPCHARS (QUOTE (↑ * / + - = ← : ' ~ +- ~= < > @ !)))
	      (CLISPCHARRAY (MAKEBITTABLE CLISPCHARS))
	      DECLWORDS CLISPISWORDSPLST (CLISPLASTSUB (CONS))
	      (CHECKCARATOMFLG)
	      CLISPISVERBS CLISPISNOISEWORDS
	      (CLISPARITHOPLST (QUOTE (+ - * / +- LT GT lt gt GEQ LEQ GE LE geq leq ge le)))
	      (CLISPARITHCLASSLST (QUOTE (INTEGER FIXED MIXED FLOATING)))
	      (DWIMINMACROSFLG T))
	(IFPROP (CLISPTYPE LISPFN UNARYOP CLISPCLASS CLISPCLASSDEF CLISPNEG CLISPBRACKET)
		↑ * / + - = ← : ' ~ +- ~= < > @ !)
	(IFPROP (CLISPTYPE LISPFN UNARYOP CLISPINFIX CLISPCLASS CLISPCLASSDEF CLISPNEG BROADSCOPE)
		FLOATING FAST FFETCHFIELD FETCHFIELD REPLACEFIELD FREPLACEFIELD /REPLACEFIELD 
		/LISTPUT /LISTPUT1 /MAPCON /MAPCONC /NCONC /NCONC1 /PUT /PUTASSOC /PUTHASH /PUTPROP 
		/RPLACA /RPLACD /RPLNODE /RPLNODE2 /SETA ASSOC CLISPIFY FASSOC FIXED FLAST FMEMB FNTH 
		FRPLACA FRPLACD FRPLNODE FRPLNODE2 INTEGER LAST LISTPUT LISTPUT1 MAPCON MAPCONC MEMB 
		MIXED NCONC NCONC1 NTH PUT PUTASSOC PUTHASH PUTPROP RPLACA RPLACD RPLNODE RPLNODE2 
		SETA STANDARD UNDOABLE)
	(IFPROP (CLISPTYPE LISPFN UNARYOP CLISPINFIX CLISPCLASS CLISPCLASSDEF CLISPNEG BROADSCOPE)
		LT lt GT gt LE le GE ge LEQ leq GEQ geq EQ NEQ EQP EQUAL EQUALS NOT AND OR and or NOR 
		nor MEMBER SETQ IPLUS IMINUS IDIFFERENCE ITIMES IQUOTIENT ILESSP IGREATERP FPLUS 
		FMINUS FDIFFERENCE FTIMES FQUOTIENT FGTP PLUS MINUS DIFFERENCE TIMES QUOTIENT LESSP 
		GREATERP EXPT -> =>)
	(PROP SETFN ELT SETA)
	(COMS (E (* CLISPISPROP property is used for two purposes: (1)
		    to identify is words so they wont be dwimified, e.g. MEMBER, NUMBER, etc., and
		    (2)
		    for specifying lower case and plural forms for clispifying. CLISPISVERBS do not 
		    need the CLISPISPROP property when they are in the operatr position, since the 
		    CLISPTYPE property identifies them. However, CLISPISVERBS that also can appear 
		    interior to the is phrase do need a CLISPISPROP, e.g. HAVE as in
		    (X DOESN'T HAVE --)
		    CLISPISVERBS that appear in the clisp patterns need CLISPISPROP properties for 
		    clispifying, e.g. IS, HAS, and DOES))
	      (IFPROP (CLISPTYPE LISPFN UNARYOP CLISPINFIX CLISPCLASS CLISPCLASSDEF CLISPNEG 
				 BROADSCOPE CLISPISPROP CLISPISFORM)
		      IS ISN'T is isn't ARE AREN'T are aren't HAS HASN'T has hasn't HAVE HAVEN'T have 
		      haven't DOES DOESN'T does doesn't DO DON'T do don't)
	      (IFPROP CLISPISPROP A AN THE EITHER NEITHER a an the either neither)
	      (IFPROP (CLISPISPROP CLISPISFORM)
		      ARRAY ARRAYS ATOM ATOMIC ATOMS EQ EQUAL FLOATING GEQ GREATER GT INTEGER 
		      INTEGERS LEQ LESS LIST LISTS LITATOM LITATOMS LITERAL LT MEMB MEMBER MEMBERS 
		      NEGATIVE NILL NOT NULL NUMBER NUMBERS OF POINT SMALL STRING STRINGS TAIL THAN 
		      TO array arrays atom atomic atoms eq equal floating geq greater gt integer 
		      integers leq less list lists litatom litatoms literal lt memb member members 
		      negative nill not null number numbers of point small string strings tail than 
		      to ~))
	(VARS (DWIMIFYFLG (QUOTE EVAL))
	      (DWIMCHECK#ARGSFLG T)
	      (DWIMCHECKPROGLABELSFLG T)
	      (!)
	      (!!)
	      (COMPILEUSERFN (QUOTE COMPILEUSERFN))
	      (#CLISPARRAY 250)
	      (RECORDHASHFLG T)
	      (CLISPTRANFLG (QUOTE CLISP% ))
	      (CLISPRETRANFLG))
	(ADDVARS (DWIMEQUIVLST))
	(USERMACROS DW !DW CLISP: NOCLISP PPT)
	(PROP CLISPWORD AND OR and or ! !! CLISP clisp MATCH match)
	(VARS CLISPIFWORDSPLST (CLISPIFTRANFLG))
	(PROP CLISPWORD IF THEN ELSE ELSEIF if then else elseif)
	(VARS (CLISPI.S.GAG)
	      (I.S.OPRLST (QUOTE (ALWAYS AS BIND BY COLLECT COUNT DECLARE DECLARE: DO EACHTIME 
					 FCOLLECT FINALLY FIND FIRST FOR FROM IN INSIDE ISTHERE JOIN 
					 LARGEST NEVER OLD ON ORIGINAL REPEATUNTIL REPEATWHILE 
					 SMALLEST SUCHTHAT SUM THEREIS THRU TO UNLESS UNTIL WHEN 
					 WHERE WHILE always as bind by collect count declare declare: 
					 do eachtime fcollect finally find first for from in inside 
					 isthere join largest never old on original repeatuntil 
					 repeatwhile smallest suchthat sum thereis thru to unless 
					 until when where while)))
	      (CLISPFORWORDSPLST (QUOTE (ALWAYS AS BIND BY COLLECT COUNT DO EACHTIME FINALLY FIRST 
						FOR FROM IN INSIDE JOIN LARGEST NEVER OLD ON 
						REPEATUNTIL REPEATWHILE SMALLEST SUCHTHAT SUM THEREIS 
						TO UNLESS UNTIL WHEN WHERE WHILE)))
	      (DURATIONCLISPWORDS (QUOTE ((TIMERUNITS timerUnits timerunits)
					  (USINGBOX usingBox usingbox)
					  (USINGTIMER usingTimer usingtimer)
					  (FORDURATION forDuration forduration DURING during)
					  (RESOURCENAME resourceName resourcename)
					  (UNTILDATE untilDate untildate)))))
	(PROP CLISPWORD * (PROGN I.S.OPRLST))
	(IFPROP I.S.OPR * (PROGN I.S.OPRLST))
	(VARS (CLISPDUMMYFORVARS (QUOTE ($$TEM0 $$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5 $$TEM6))))
	(IFPROP (CLISPWORD \DURATIONTRAN)
		*
		(APPLY (QUOTE APPEND)
		       DURATIONCLISPWORDS))
	(FILEPKGCOMS I.S.OPRS)
	(ADDVARS * (LIST (CONS (QUOTE SYSLOCALVARS)
			       CLISPDUMMYFORVARS)
			 (CONS (QUOTE INVISIBLEVARS)
			       CLISPDUMMYFORVARS)))
	(ADDVARS (SYSLOCALVARS $$VAL $$TEM $$LST1 $$LST2 $$LST3 $$LST4 $$LST5 $$LST6 $$END $$EXTREME)
		 (INVISIBLEVARS $$VAL $$END $$TEM $$LST1 $$LST2 $$LST3 $$LST4 $$LST5 $$LST6 $$EXTREME)
		 )
	(P (PUTPROP (QUOTE CLISP% )
		    (QUOTE MACRO)
		    (QUOTE (X (CAR X)))))))

(RPAQQ NOFIXFNSLST0
 NIL)

(RPAQQ NOFIXVARSLST0
 NIL)

(RPAQQ NOSPELLFLG
 NIL)

(RPAQQ LPARKEY
 9)

(RPAQQ RPARKEY
 0)

(RPAQQ WTFIXCHCONLST
 (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)
)

(RPAQQ WTFIXCHCONLST1
 (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL 
			   NIL))

(ADDTOVAR EDITMACROS
 (FIX9 (X N)
			   (BIND (E (SETQ #1 (EDITFPAT (QUOTE X)))
				    T)
				 (IF (NOT (ATOM (##)))
				     (1))
				 (COMS (SPLIT89 RPARKEY N))
				 (I F RPARKEY T)
				 (E (SETQ #2 (ADD1 (LENGTH (CAR L))))
				    T)
				 !0 MARK (LPQ (IF (OR (NULL #1)
						      (NOT (EDIT4E #1 (## 1)))))
					      UP
					      (E (SETQ #3 (LENGTH (CAR L)))
						 T)
					      (I RI 1 (MINUS #2))
					      (E (SETQ #2 #3)
						 T)
					      1 !0)
				 ←←
				 (DELETE NX)))
		     (FIX9 NIL (FIX9))
		     (FIX8 (X N)
			   (BIND (E (SETQ #1 (EDITFPAT (QUOTE X)))
				    T)
				 (IF (NOT (ATOM (##)))
				     (1))
				 (COMS (SPLIT89 LPARKEY N))
				 (I F LPARKEY T)
				 (1)
				 (LI 1)
				 (IF (TAILP (CAR L)
					    (CADR L))
				     (!0)
				     NIL)
				 (LPQ (IF (OR (NULL #1)
					      (NOT (EDIT4E #1 (## 1)))))
				      UP
				      (RO 1)
				      !0)))
		     (FIX8 NIL (FIX8)))

(ADDTOVAR DWIMUSERFORMS
 )

(ADDTOVAR LAMBDASPLST
 LAMBDA NLAMBDA)

(ADDTOVAR OKREEVALST
 AND OR PROGN SAVESETQ CAR CDR ADD1 SUB1 CONS LIST EQ EQUAL PRINT PRIN1 APPEND 
			 NEQ NOT NULL)

(ADDTOVAR NOFIXFNSLST
 )

(ADDTOVAR NOFIXVARSLST
 )

(ADDTOVAR GLOBALVARS
 )

(ADDTOVAR LOCALVARS
 )

(ADDTOVAR SPECVARS
 )

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 )

(ADDTOVAR LAMS
 )
(MOVD? (QUOTE NILL)
       (QUOTE FREEVARS))

(PUTPROPS BREAKDOWN FILEDEF 
BRKDWN)

(PUTPROPS CALLS FILEDEF 
MSANALYZE)

(PUTPROPS CLISPRECORD FILEDEF 
RECORD)

(PUTPROPS FREEVARS FILEDEF 
MSANALYZE)

(PUTPROPS SETUPHASHARRAY FILEDEF 

  (RECORD SETUPHASHARRAY))

(PUTPROPS MAKEMATCH FILEDEF 
MATCH)

(PUTPROPS ' CLISPTYPE 
15)

(RPAQQ CLISPFLG
 T)

(RPAQQ CLISPHELPFLG
 T)

(RPAQQ TREATASCLISPFLG
 NIL)

(RPAQQ DWIMESSGAG
 NIL)

(RPAQQ CLISPINFIXSPLST
 (LESSP NOT OR AND IS MEMBER EQUAL GREATERP LT MEMB GT ILESSP IGREATERP LE GE 
			      LEQ GEQ EQ NEQ EQP EQUALS FMEMB FGTP -> => ISN'T ARE AREN'T))

(RPAQQ CLISPCHARS
 (↑ * / + - = ← : ' ~ +- ~= < > @ !))

(RPAQ CLISPCHARRAY
 (MAKEBITTABLE CLISPCHARS))

(RPAQQ DECLWORDS
 (FLOATING FAST FFETCHFIELD FETCHFIELD REPLACEFIELD FREPLACEFIELD /REPLACEFIELD 
			   /LISTPUT /LISTPUT1 /MAPCON /MAPCONC /NCONC /NCONC1 /PUT /PUTASSOC /PUTHASH 
			   /PUTPROP /RPLACA /RPLACD /RPLNODE /RPLNODE2 /SETA ASSOC CLISPIFY FASSOC 
			   FIXED FLAST FMEMB FNTH FRPLACA FRPLACD FRPLNODE FRPLNODE2 INTEGER LAST 
			   LISTPUT LISTPUT1 MAPCON MAPCONC MEMB MIXED NCONC NCONC1 NTH PUT PUTASSOC 
			   PUTHASH PUTPROP RPLACA RPLACD RPLNODE RPLNODE2 SETA STANDARD UNDOABLE))

(RPAQQ CLISPISWORDSPLST
 (LT INTEGER GREATER POINT STRINGS NUMBERS GT STRING LESS NUMBER ATOM LIST 
			    MEMBERS ATOMS FLOATING A AN ARRAY ATOMIC EQ EQUAL LITATOM LITERAL MEMB 
			    MEMBER NEGATIVE NOT SMALL TAIL THAN TO ARRAYS LISTS ARRAYS GEQ LEQ EITHER 
			    NEITHER))

(RPAQ CLISPLASTSUB
 (CONS))

(RPAQQ CHECKCARATOMFLG
 NIL)

(RPAQQ CLISPISVERBS
 (IS ISN'T is isn't ARE AREN'T are aren't HAS HASN'T has hasn't HAVE HAVEN'T have 
			haven't DOES DOESN'T does doesn't DO DON'T do don't))

(RPAQQ CLISPISNOISEWORDS
 (A AN THE EITHER NEITHER a an the either neither))

(RPAQQ CLISPARITHOPLST
 (+ - * / +- LT GT lt gt GEQ LEQ GE LE geq leq ge le))

(RPAQQ CLISPARITHCLASSLST
 (INTEGER FIXED MIXED FLOATING))

(RPAQQ DWIMINMACROSFLG
 T)

(PUTPROPS ↑ CLISPTYPE 
6)

(PUTPROPS * CLISPTYPE 
4)

(PUTPROPS / CLISPTYPE 
4)

(PUTPROPS + CLISPTYPE 
2)

(PUTPROPS - CLISPTYPE 
7)

(PUTPROPS = CLISPTYPE 
-20)

(PUTPROPS ← CLISPTYPE 
(8 . -12))

(PUTPROPS : CLISPTYPE 
(14 . 13))

(PUTPROPS ' CLISPTYPE 
15)

(PUTPROPS ~ CLISPTYPE 
7)

(PUTPROPS +- CLISPTYPE 
2)

(PUTPROPS < CLISPTYPE 
BRACKET)

(PUTPROPS > CLISPTYPE 
BRACKET)

(PUTPROPS ↑ LISPFN 
EXPT)

(PUTPROPS * LISPFN 
ITIMES)

(PUTPROPS / LISPFN 
IQUOTIENT)

(PUTPROPS + LISPFN 
IPLUS)

(PUTPROPS - LISPFN 
IMINUS)

(PUTPROPS = LISPFN 
EQ)

(PUTPROPS ← LISPFN 
SETQ)

(PUTPROPS ' LISPFN 
QUOTE)

(PUTPROPS ~ LISPFN 
NOT)

(PUTPROPS +- LISPFN 
IDIFFERENCE)

(PUTPROPS - UNARYOP 
T)

(PUTPROPS ' UNARYOP 
T)

(PUTPROPS ~ UNARYOP 
T)

(PUTPROPS < UNARYOP 
T)

(PUTPROPS > UNARYOP 
T)

(PUTPROPS * CLISPCLASS 
*)

(PUTPROPS / CLISPCLASS 
/)

(PUTPROPS + CLISPCLASS 
+)

(PUTPROPS - CLISPCLASS 
-)

(PUTPROPS +- CLISPCLASS 
+-)

(PUTPROPS * CLISPCLASSDEF 

  (ARITH ITIMES FTIMES TIMES))

(PUTPROPS / CLISPCLASSDEF 

  (ARITH IQUOTIENT FQUOTIENT QUOTIENT))

(PUTPROPS + CLISPCLASSDEF 

  (ARITH IPLUS FPLUS PLUS))

(PUTPROPS - CLISPCLASSDEF 

  (ARITH IMINUS FMINUS MINUS))

(PUTPROPS +- CLISPCLASSDEF 

  (ARITH IDIFFERENCE FDIFFERENCE DIFFERENCE))

(PUTPROPS = CLISPNEG 
~=)

(PUTPROPS < CLISPBRACKET 

  (< > SEPARATOR ! DWIMIFY CLISPANGLEBRACKETS CLISPIFY SHRIEKIFY))

(PUTPROPS > CLISPBRACKET 

  (< > SEPARATOR ! DWIMIFY CLISPANGLEBRACKETS CLISPIFY SHRIEKIFY))

(PUTPROPS FMEMB CLISPTYPE 
-20)

(PUTPROPS MEMB CLISPTYPE 
-20)

(PUTPROPS FETCHFIELD LISPFN 
FETCHFIELD)

(PUTPROPS REPLACEFIELD LISPFN 
REPLACEFIELD)

(PUTPROPS FREPLACEFIELD LISPFN 
FREPLACEFIELD)

(PUTPROPS ASSOC LISPFN 
ASSOC)

(PUTPROPS LAST LISPFN 
LAST)

(PUTPROPS LISTPUT LISPFN 
LISTPUT)

(PUTPROPS LISTPUT1 LISPFN 
LISTPUT1)

(PUTPROPS MAPCON LISPFN 
MAPCON)

(PUTPROPS MAPCONC LISPFN 
MAPCONC)

(PUTPROPS MEMB LISPFN 
MEMB)

(PUTPROPS NCONC LISPFN 
NCONC)

(PUTPROPS NCONC1 LISPFN 
NCONC1)

(PUTPROPS NTH LISPFN 
NTH)

(PUTPROPS PUT LISPFN 
PUT)

(PUTPROPS PUTASSOC LISPFN 
PUTASSOC)

(PUTPROPS PUTHASH LISPFN 
PUTHASH)

(PUTPROPS PUTPROP LISPFN 
PUTPROP)

(PUTPROPS RPLACA LISPFN 
RPLACA)

(PUTPROPS RPLACD LISPFN 
RPLACD)

(PUTPROPS RPLNODE LISPFN 
RPLNODE)

(PUTPROPS RPLNODE2 LISPFN 
RPLNODE2)

(PUTPROPS SETA LISPFN 
SETA)

(PUTPROPS FLOATING CLISPCLASS 
(ARITH . 2))

(PUTPROPS FAST CLISPCLASS 
(ACCESS . 3))

(PUTPROPS FFETCHFIELD CLISPCLASS 
FETCHFIELD)

(PUTPROPS FETCHFIELD CLISPCLASS 
FETCHFIELD)

(PUTPROPS REPLACEFIELD CLISPCLASS 
REPLACEFIELD)

(PUTPROPS FREPLACEFIELD CLISPCLASS 
REPLACEFIELD)

(PUTPROPS /REPLACEFIELD CLISPCLASS 
REPLACEFIELD)

(PUTPROPS /LISTPUT CLISPCLASS 
LISTPUT)

(PUTPROPS /MAPCON CLISPCLASS 
MAPCON)

(PUTPROPS /MAPCONC CLISPCLASS 
MAPCONC)

(PUTPROPS /NCONC CLISPCLASS 
NCONC)

(PUTPROPS /NCONC1 CLISPCLASS 
NCONC1)

(PUTPROPS /PUT CLISPCLASS 
PUT)

(PUTPROPS /PUTASSOC CLISPCLASS 
PUTASSOC)

(PUTPROPS /PUTHASH CLISPCLASS 
PUTHASH)

(PUTPROPS /PUTPROP CLISPCLASS 
PUTPROP)

(PUTPROPS /RPLACA CLISPCLASS 
RPLACA)

(PUTPROPS /RPLACD CLISPCLASS 
RPLACD)

(PUTPROPS /RPLNODE CLISPCLASS 
RPLNODE)

(PUTPROPS /RPLNODE2 CLISPCLASS 
RPLNODE2)

(PUTPROPS /SETA CLISPCLASS 
SETA)

(PUTPROPS ASSOC CLISPCLASS 
ASSOC)

(PUTPROPS FASSOC CLISPCLASS 
ASSOC)

(PUTPROPS FIXED CLISPCLASS 
(ARITH . 1))

(PUTPROPS FLAST CLISPCLASS 
LAST)

(PUTPROPS FMEMB CLISPCLASS 
MEMB)

(PUTPROPS FNTH CLISPCLASS 
NTH)

(PUTPROPS FRPLACA CLISPCLASS 
RPLACA)

(PUTPROPS FRPLACD CLISPCLASS 
RPLACD)

(PUTPROPS FRPLNODE CLISPCLASS 
RPLNODE)

(PUTPROPS FRPLNODE2 CLISPCLASS 
RPLNODE2)

(PUTPROPS INTEGER CLISPCLASS 
(ARITH . 1))

(PUTPROPS LAST CLISPCLASS 
LAST)

(PUTPROPS LISTPUT CLISPCLASS 
LISTPUT)

(PUTPROPS LISTPUT1 CLISPCLASS 
LISTPUT1)

(PUTPROPS MAPCON CLISPCLASS 
MAPCON)

(PUTPROPS MAPCONC CLISPCLASS 
MAPCONC)

(PUTPROPS MEMB CLISPCLASS 
MEMB)

(PUTPROPS MIXED CLISPCLASS 
(ARITH . 3))

(PUTPROPS NCONC CLISPCLASS 
NCONC)

(PUTPROPS NCONC1 CLISPCLASS 
NCONC1)

(PUTPROPS NTH CLISPCLASS 
NTH)

(PUTPROPS PUT CLISPCLASS 
PUT)

(PUTPROPS PUTASSOC CLISPCLASS 
PUTASSOC)

(PUTPROPS PUTHASH CLISPCLASS 
PUTHASH)

(PUTPROPS PUTPROP CLISPCLASS 
PUTPROP)

(PUTPROPS RPLACA CLISPCLASS 
RPLACA)

(PUTPROPS RPLACD CLISPCLASS 
RPLACD)

(PUTPROPS RPLNODE CLISPCLASS 
RPLNODE)

(PUTPROPS RPLNODE2 CLISPCLASS 
RPLNODE2)

(PUTPROPS SETA CLISPCLASS 
SETA)

(PUTPROPS STANDARD CLISPCLASS 
(ACCESS . 1))

(PUTPROPS UNDOABLE CLISPCLASS 
(ACCESS . 2))

(PUTPROPS FETCHFIELD CLISPCLASSDEF 

  (ACCESS FETCHFIELD NIL FFETCHFIELD))

(PUTPROPS REPLACEFIELD CLISPCLASSDEF 

  (ACCESS REPLACEFIELD /REPLACEFIELD FREPLACEFIELD))

(PUTPROPS ASSOC CLISPCLASSDEF 

  (ACCESS ASSOC NIL FASSOC))

(PUTPROPS LAST CLISPCLASSDEF 

  (ACCESS LAST NIL FLAST))

(PUTPROPS LISTPUT CLISPCLASSDEF 

  (ACCESS LISTPUT /LISTPUT))

(PUTPROPS LISTPUT1 CLISPCLASSDEF 

  (ACCESS LISTPUT1 /LISTPUT1))

(PUTPROPS MAPCON CLISPCLASSDEF 

  (ACCESS MAPCON /MAPCON))

(PUTPROPS MAPCONC CLISPCLASSDEF 

  (ACCESS MAPCONC /MAPCONC))

(PUTPROPS MEMB CLISPCLASSDEF 

  (ACCESS MEMB NIL FMEMB))

(PUTPROPS NCONC CLISPCLASSDEF 

  (ACCESS NCONC /NCONC))

(PUTPROPS NCONC1 CLISPCLASSDEF 

  (ACCESS NCONC1 /NCONC1))

(PUTPROPS NTH CLISPCLASSDEF 

  (ACCESS NTH NIL FNTH))

(PUTPROPS PUT CLISPCLASSDEF 
(ACCESS PUT /PUT))

(PUTPROPS PUTASSOC CLISPCLASSDEF 

  (ACCESS PUTASSOC /PUTASSOC))

(PUTPROPS PUTHASH CLISPCLASSDEF 

  (ACCESS PUTHASH /PUTHASH))

(PUTPROPS PUTPROP CLISPCLASSDEF 

  (ACCESS PUTPROP /PUTPROP))

(PUTPROPS RPLACA CLISPCLASSDEF 

  (ACCESS RPLACA /RPLACA FRPLACA))

(PUTPROPS RPLACD CLISPCLASSDEF 

  (ACCESS RPLACD /RPLACD FRPLACD))

(PUTPROPS RPLNODE CLISPCLASSDEF 

  (ACCESS RPLNODE /RPLNODE FRPLNODE))

(PUTPROPS RPLNODE2 CLISPCLASSDEF 

  (ACCESS RPLNODE2 /RPLNODE2 FRPLNODE2))

(PUTPROPS SETA CLISPCLASSDEF 
(ACCESS SETA /SETA))

(PUTPROPS FMEMB CLISPNEG 
~FMEMB)

(PUTPROPS MEMB CLISPNEG 
~MEMB)

(PUTPROPS FMEMB BROADSCOPE 
T)

(PUTPROPS MEMB BROADSCOPE 
T)

(PUTPROPS LT CLISPTYPE 
-20)

(PUTPROPS lt CLISPTYPE 
-20)

(PUTPROPS GT CLISPTYPE 
-20)

(PUTPROPS gt CLISPTYPE 
-20)

(PUTPROPS LE CLISPTYPE 
-20)

(PUTPROPS le CLISPTYPE 
-20)

(PUTPROPS GE CLISPTYPE 
-20)

(PUTPROPS ge CLISPTYPE 
-20)

(PUTPROPS LEQ CLISPTYPE 
-20)

(PUTPROPS leq CLISPTYPE 
-20)

(PUTPROPS GEQ CLISPTYPE 
-20)

(PUTPROPS geq CLISPTYPE 
-20)

(PUTPROPS EQ CLISPTYPE 
-20)

(PUTPROPS NEQ CLISPTYPE 
-20)

(PUTPROPS EQP CLISPTYPE 
-20)

(PUTPROPS EQUAL CLISPTYPE 
-20)

(PUTPROPS EQUALS CLISPTYPE 
-20)

(PUTPROPS AND CLISPTYPE 
-25)

(PUTPROPS OR CLISPTYPE 
-26)

(PUTPROPS and CLISPTYPE 
-25)

(PUTPROPS or CLISPTYPE 
-26)

(PUTPROPS NOR CLISPTYPE 
-25)

(PUTPROPS nor CLISPTYPE 
-25)

(PUTPROPS MEMBER CLISPTYPE 
-20)

(PUTPROPS ILESSP CLISPTYPE 
-20)

(PUTPROPS IGREATERP CLISPTYPE 
-20)

(PUTPROPS FGTP CLISPTYPE 
-20)

(PUTPROPS MINUS CLISPTYPE 
8)

(PUTPROPS LESSP CLISPTYPE 
-20)

(PUTPROPS GREATERP CLISPTYPE 
-20)

(PUTPROPS -> CLISPTYPE 
7)

(PUTPROPS => CLISPTYPE 
7)

(PUTPROPS LT LISPFN 
ILESSP)

(PUTPROPS lt LISPFN 
ILESSP)

(PUTPROPS GT LISPFN 
IGREATERP)

(PUTPROPS gt LISPFN 
IGREATERP)

(PUTPROPS LE LISPFN 
ILEQ)

(PUTPROPS le LISPFN 
ILEQ)

(PUTPROPS GE LISPFN 
IGEQ)

(PUTPROPS ge LISPFN 
IGEQ)

(PUTPROPS LEQ LISPFN 
ILEQ)

(PUTPROPS leq LISPFN 
ILEQ)

(PUTPROPS GEQ LISPFN 
IGEQ)

(PUTPROPS geq LISPFN 
IGEQ)

(PUTPROPS EQUALS LISPFN 
EQUAL)

(PUTPROPS AND LISPFN 
AND)

(PUTPROPS OR LISPFN 
OR)

(PUTPROPS and LISPFN 
AND)

(PUTPROPS or LISPFN 
OR)

(PUTPROPS NOR LISPFN 
AND)

(PUTPROPS nor LISPFN 
AND)

(PUTPROPS NOT UNARYOP 
T)

(PUTPROPS MINUS UNARYOP 
T)

(PUTPROPS EQ CLISPINFIX 
=)

(PUTPROPS NOT CLISPINFIX 
~)

(PUTPROPS AND CLISPINFIX 
and)

(PUTPROPS OR CLISPINFIX 
or)

(PUTPROPS SETQ CLISPINFIX 
←)

(PUTPROPS IPLUS CLISPINFIX 
+)

(PUTPROPS IMINUS CLISPINFIX 
-)

(PUTPROPS IDIFFERENCE CLISPINFIX 
+-)

(PUTPROPS ITIMES CLISPINFIX 
*)

(PUTPROPS IQUOTIENT CLISPINFIX 
/)

(PUTPROPS ILESSP CLISPINFIX 
lt)

(PUTPROPS IGREATERP CLISPINFIX 
gt)

(PUTPROPS EXPT CLISPINFIX 
↑)

(PUTPROPS LT CLISPCLASS 
LT)

(PUTPROPS lt CLISPCLASS 
LT)

(PUTPROPS GT CLISPCLASS 
GT)

(PUTPROPS gt CLISPCLASS 
GT)

(PUTPROPS LE CLISPCLASS 
LEQ)

(PUTPROPS le CLISPCLASS 
LEQ)

(PUTPROPS GE CLISPCLASS 
GEQ)

(PUTPROPS ge CLISPCLASS 
GEQ)

(PUTPROPS LEQ CLISPCLASS 
LEQ)

(PUTPROPS leq CLISPCLASS 
LEQ)

(PUTPROPS GEQ CLISPCLASS 
GEQ)

(PUTPROPS geq CLISPCLASS 
GEQ)

(PUTPROPS IPLUS CLISPCLASS 
+)

(PUTPROPS IMINUS CLISPCLASS 
-)

(PUTPROPS IDIFFERENCE CLISPCLASS 
+-)

(PUTPROPS ITIMES CLISPCLASS 
*)

(PUTPROPS IQUOTIENT CLISPCLASS 
/)

(PUTPROPS ILESSP CLISPCLASS 
LT)

(PUTPROPS IGREATERP CLISPCLASS 
GT)

(PUTPROPS FPLUS CLISPCLASS 
+)

(PUTPROPS FMINUS CLISPCLASS 
-)

(PUTPROPS FDIFFERENCE CLISPCLASS 
+-)

(PUTPROPS FTIMES CLISPCLASS 
*)

(PUTPROPS FQUOTIENT CLISPCLASS 
/)

(PUTPROPS FGTP CLISPCLASS 
GT)

(PUTPROPS PLUS CLISPCLASS 
+)

(PUTPROPS MINUS CLISPCLASS 
-)

(PUTPROPS DIFFERENCE CLISPCLASS 
+-)

(PUTPROPS TIMES CLISPCLASS 
*)

(PUTPROPS QUOTIENT CLISPCLASS 
/)

(PUTPROPS LESSP CLISPCLASS 
LT)

(PUTPROPS GREATERP CLISPCLASS 
GT)

(PUTPROPS LT CLISPCLASSDEF 

  (ARITH ILESSP LESSP LESSP))

(PUTPROPS GT CLISPCLASSDEF 

  (ARITH IGREATERP FGTP GREATERP))

(PUTPROPS LE CLISPCLASSDEF 
(ARITH ILEQ LEQ LEQ))

(PUTPROPS GE CLISPCLASSDEF 
(ARITH IGEQ GEQ GEQ))

(PUTPROPS LEQ CLISPCLASSDEF 
(ARITH ILEQ LEQ LEQ))

(PUTPROPS GEQ CLISPCLASSDEF 
(ARITH IGEQ GEQ GEQ))

(PUTPROPS LT CLISPNEG 
GEQ)

(PUTPROPS GT CLISPNEG 
LEQ)

(PUTPROPS EQUALS CLISPNEG 
~EQUAL)

(PUTPROPS MEMBER CLISPNEG 
~MEMBER)

(PUTPROPS LT BROADSCOPE 
T)

(PUTPROPS lt BROADSCOPE 
T)

(PUTPROPS GT BROADSCOPE 
T)

(PUTPROPS gt BROADSCOPE 
T)

(PUTPROPS LE BROADSCOPE 
T)

(PUTPROPS le BROADSCOPE 
T)

(PUTPROPS GE BROADSCOPE 
T)

(PUTPROPS ge BROADSCOPE 
T)

(PUTPROPS LEQ BROADSCOPE 
T)

(PUTPROPS leq BROADSCOPE 
T)

(PUTPROPS GEQ BROADSCOPE 
T)

(PUTPROPS geq BROADSCOPE 
T)

(PUTPROPS EQ BROADSCOPE 
T)

(PUTPROPS NEQ BROADSCOPE 
T)

(PUTPROPS EQP BROADSCOPE 
T)

(PUTPROPS EQUAL BROADSCOPE 
T)

(PUTPROPS EQUALS BROADSCOPE 
T)

(PUTPROPS NOT BROADSCOPE 
T)

(PUTPROPS AND BROADSCOPE 
T)

(PUTPROPS OR BROADSCOPE 
T)

(PUTPROPS and BROADSCOPE 
T)

(PUTPROPS or BROADSCOPE 
T)

(PUTPROPS NOR BROADSCOPE 
T)

(PUTPROPS nor BROADSCOPE 
T)

(PUTPROPS MEMBER BROADSCOPE 
T)

(PUTPROPS ILESSP BROADSCOPE 
T)

(PUTPROPS IGREATERP BROADSCOPE 
T)

(PUTPROPS FGTP BROADSCOPE 
T)

(PUTPROPS LESSP BROADSCOPE 
T)

(PUTPROPS GREATERP BROADSCOPE 
T)

(PUTPROPS ELT SETFN 
SETA)

(PUTPROPS SETA SETFN 
(ELT))

(PUTPROPS IS CLISPTYPE 
-22)

(PUTPROPS ISN'T CLISPTYPE 
-22)

(PUTPROPS is CLISPTYPE 
-22)

(PUTPROPS isn't CLISPTYPE 
-22)

(PUTPROPS ARE CLISPTYPE 
(-30 . -22))

(PUTPROPS AREN'T CLISPTYPE 
(-30 . -22))

(PUTPROPS are CLISPTYPE 
(-30 . -22))

(PUTPROPS aren't CLISPTYPE 
(-30 . -22))

(PUTPROPS HAS CLISPTYPE 
-22)

(PUTPROPS HASN'T CLISPTYPE 
-22)

(PUTPROPS has CLISPTYPE 
-22)

(PUTPROPS hasn't CLISPTYPE 
-22)

(PUTPROPS HAVE CLISPTYPE 
(-30 . -22))

(PUTPROPS HAVEN'T CLISPTYPE 
(-30 . -22))

(PUTPROPS have CLISPTYPE 
(-30 . -22))

(PUTPROPS haven't CLISPTYPE 
(-30 . -22))

(PUTPROPS DOES CLISPTYPE 
-22)

(PUTPROPS DOESN'T CLISPTYPE 
-22)

(PUTPROPS does CLISPTYPE 
-22)

(PUTPROPS doesn't CLISPTYPE 
-22)

(PUTPROPS DO CLISPTYPE 
(-30 . -22))

(PUTPROPS DON'T CLISPTYPE 
(-30 . -22))

(PUTPROPS do CLISPTYPE 
(-30 . -22))

(PUTPROPS don't CLISPTYPE 
(-30 . -22))

(PUTPROPS IS CLISPCLASS 
(ISWORD SING))

(PUTPROPS ISN'T CLISPCLASS 
(ISWORD SING NEG))

(PUTPROPS is CLISPCLASS 
(ISWORD SING))

(PUTPROPS isn't CLISPCLASS 
(ISWORD SING NEG))

(PUTPROPS ARE CLISPCLASS 
(ISWORD PLURAL))

(PUTPROPS AREN'T CLISPCLASS 
(ISWORD PLURAL NEG))

(PUTPROPS are CLISPCLASS 
(ISWORD PLURAL))

(PUTPROPS aren't CLISPCLASS 
(ISWORD PLURAL NEG))

(PUTPROPS HAS CLISPCLASS 
(ISWORD SING))

(PUTPROPS HASN'T CLISPCLASS 
(ISWORD SING NEG))

(PUTPROPS has CLISPCLASS 
(ISWORD SING))

(PUTPROPS hasn't CLISPCLASS 
(ISWORD SING NEG))

(PUTPROPS HAVE CLISPCLASS 
(ISWORD PLURAL))

(PUTPROPS HAVEN'T CLISPCLASS 
(ISWORD PLURAL NEG))

(PUTPROPS have CLISPCLASS 
(ISWORD PLURAL))

(PUTPROPS haven't CLISPCLASS 
(ISWORD PLURAL NEG))

(PUTPROPS DOES CLISPCLASS 
(ISWORD SING))

(PUTPROPS DOESN'T CLISPCLASS 
(ISWORD SING NEG))

(PUTPROPS does CLISPCLASS 
(ISWORD SING))

(PUTPROPS doesn't CLISPCLASS 
(ISWORD SING NEG))

(PUTPROPS DO CLISPCLASS 
(ISWORD PLURAL))

(PUTPROPS DON'T CLISPCLASS 
(ISWORD PLURAL NEG))

(PUTPROPS do CLISPCLASS 
(ISWORD PLURAL))

(PUTPROPS don't CLISPCLASS 
(ISWORD PLURAL NEG))

(PUTPROPS IS BROADSCOPE 
T)

(PUTPROPS ISN'T BROADSCOPE 
T)

(PUTPROPS is BROADSCOPE 
T)

(PUTPROPS isn't BROADSCOPE 
T)

(PUTPROPS ARE BROADSCOPE 
T)

(PUTPROPS AREN'T BROADSCOPE 
T)

(PUTPROPS are BROADSCOPE 
T)

(PUTPROPS aren't BROADSCOPE 
T)

(PUTPROPS HAS BROADSCOPE 
T)

(PUTPROPS HASN'T BROADSCOPE 
T)

(PUTPROPS has BROADSCOPE 
T)

(PUTPROPS hasn't BROADSCOPE 
T)

(PUTPROPS HAVE BROADSCOPE 
T)

(PUTPROPS HAVEN'T BROADSCOPE 
T)

(PUTPROPS have BROADSCOPE 
T)

(PUTPROPS haven't BROADSCOPE 
T)

(PUTPROPS DOES BROADSCOPE 
T)

(PUTPROPS DOESN'T BROADSCOPE 
T)

(PUTPROPS does BROADSCOPE 
T)

(PUTPROPS doesn't BROADSCOPE 
T)

(PUTPROPS DO BROADSCOPE 
T)

(PUTPROPS DON'T BROADSCOPE 
T)

(PUTPROPS do BROADSCOPE 
T)

(PUTPROPS don't BROADSCOPE 
T)

(PUTPROPS IS CLISPISPROP 
(is ARE are))

(PUTPROPS HAS CLISPISPROP 

  (has HAVE have DOES NOT HAVE))

(PUTPROPS HAVE CLISPISPROP 
(have))

(PUTPROPS have CLISPISPROP 
T)

(PUTPROPS DOES CLISPISPROP 
(does DO do))

(PUTPROPS A CLISPISPROP 
(a NIL NIL))

(PUTPROPS AN CLISPISPROP 
(an NIL NIL))

(PUTPROPS THE CLISPISPROP 
(the))

(PUTPROPS EITHER CLISPISPROP 
(either))

(PUTPROPS NEITHER CLISPISPROP 
(neither))

(PUTPROPS a CLISPISPROP 
A)

(PUTPROPS an CLISPISPROP 
AN)

(PUTPROPS the CLISPISPROP 
THE)

(PUTPROPS either CLISPISPROP 
EITHER)

(PUTPROPS neither CLISPISPROP 
NEITHER)

(PUTPROPS ARRAY CLISPISPROP 

  (array ARRAYS arrays))

(PUTPROPS ARRAYS CLISPISPROP 
ARRAY)

(PUTPROPS ATOM CLISPISPROP 
(atom ATOMS atoms))

(PUTPROPS ATOMIC CLISPISPROP 
(atomic))

(PUTPROPS ATOMS CLISPISPROP 
ATOM)

(PUTPROPS EQ CLISPISPROP 
(eq))

(PUTPROPS EQUAL CLISPISPROP 
(equal))

(PUTPROPS FLOATING CLISPISPROP 
(floating))

(PUTPROPS GEQ CLISPISPROP 
(geq))

(PUTPROPS GREATER CLISPISPROP 
(greater))

(PUTPROPS GT CLISPISPROP 
(gt))

(PUTPROPS INTEGER CLISPISPROP 

  (integer INTEGERS integers))

(PUTPROPS INTEGERS CLISPISPROP 
INTEGER)

(PUTPROPS LEQ CLISPISPROP 
(leq))

(PUTPROPS LESS CLISPISPROP 
(less))

(PUTPROPS LIST CLISPISPROP 
(list LISTS lists))

(PUTPROPS LISTS CLISPISPROP 
LIST)

(PUTPROPS LITATOM CLISPISPROP 

  (litatom LITATOMS litatoms))

(PUTPROPS LITATOMS CLISPISPROP 
LITATOM)

(PUTPROPS LITERAL CLISPISPROP 
(literal))

(PUTPROPS LT CLISPISPROP 
(lt))

(PUTPROPS MEMB CLISPISPROP 
(memb))

(PUTPROPS MEMBER CLISPISPROP 

  (member MEMBERS members))

(PUTPROPS MEMBERS CLISPISPROP 
MEMBER)

(PUTPROPS NEGATIVE CLISPISPROP 
(negative))

(PUTPROPS NILL CLISPISPROP 
T)

(PUTPROPS NOT CLISPISPROP 
(not))

(PUTPROPS NULL CLISPISPROP 
(null))

(PUTPROPS NUMBER CLISPISPROP 

  (number NUMBERS numbers))

(PUTPROPS NUMBERS CLISPISPROP 
NUMBER)

(PUTPROPS OF CLISPISPROP 
(of))

(PUTPROPS POINT CLISPISPROP 
(point))

(PUTPROPS SMALL CLISPISPROP 
(small))

(PUTPROPS STRING CLISPISPROP 

  (string STRINGS strings))

(PUTPROPS STRINGS CLISPISPROP 
STRING)

(PUTPROPS TAIL CLISPISPROP 
(tail TAILS tails))

(PUTPROPS THAN CLISPISPROP 
(than))

(PUTPROPS TO CLISPISPROP 
(to))

(PUTPROPS array CLISPISPROP 
ARRAY)

(PUTPROPS arrays CLISPISPROP 
ARRAY)

(PUTPROPS atom CLISPISPROP 
ATOM)

(PUTPROPS atomic CLISPISPROP 
ATOMIC)

(PUTPROPS atoms CLISPISPROP 
ATOM)

(PUTPROPS eq CLISPISPROP 
EQ)

(PUTPROPS equal CLISPISPROP 
EQUAL)

(PUTPROPS floating CLISPISPROP 
FLOATING)

(PUTPROPS geq CLISPISPROP 
GEQ)

(PUTPROPS greater CLISPISPROP 
GREATER)

(PUTPROPS gt CLISPISPROP 
GT)

(PUTPROPS integer CLISPISPROP 
INTEGER)

(PUTPROPS integers CLISPISPROP 
INTEGER)

(PUTPROPS leq CLISPISPROP 
LEQ)

(PUTPROPS less CLISPISPROP 
LESS)

(PUTPROPS list CLISPISPROP 
LIST)

(PUTPROPS lists CLISPISPROP 
LIST)

(PUTPROPS litatom CLISPISPROP 
LITATOM)

(PUTPROPS literal CLISPISPROP 
LITERAL)

(PUTPROPS lt CLISPISPROP 
LT)

(PUTPROPS memb CLISPISPROP 
MEMB)

(PUTPROPS member CLISPISPROP 
MEMBER)

(PUTPROPS members CLISPISPROP 
MEMBER)

(PUTPROPS negative CLISPISPROP 
NEGATIVE)

(PUTPROPS not CLISPISPROP 
NOT)

(PUTPROPS null CLISPISPROP 
NULL)

(PUTPROPS number CLISPISPROP 
NUMBER)

(PUTPROPS numbers CLISPISPROP 
NUMBER)

(PUTPROPS of CLISPISPROP 
OF)

(PUTPROPS point CLISPISPROP 
POINT)

(PUTPROPS small CLISPISPROP 
SMALL)

(PUTPROPS string CLISPISPROP 
STRING)

(PUTPROPS strings CLISPISPROP 
STRING)

(PUTPROPS tail CLISPISPROP 
TAIL)

(PUTPROPS than CLISPISPROP 
THAN)

(PUTPROPS to CLISPISPROP 
TO)

(PUTPROPS ~ CLISPISPROP 
~)

(PUTPROPS ARRAY CLISPISFORM 

  ((X)
   (X IS AN ARRAY)
   (ARRAYP X)))

(PUTPROPS ATOM CLISPISFORM 

  ((X)
   (X IS AN ATOM)
   (ATOM X)))

(PUTPROPS ATOMIC CLISPISFORM 

  ((X)
   (X IS ATOMIC)
   (ATOM X)))

(PUTPROPS EQ CLISPISFORM 

  ((X Y)
   (X IS EQ TO Y)
   (X = Y)))

(PUTPROPS EQUAL CLISPISFORM 

  ((X Y)
   (X IS EQUAL TO Y)
   (EQUAL X Y)))

(PUTPROPS FLOATING CLISPISFORM 

  ((X)
   (X IS A FLOATING POINT NUMBER)
   (FLOATP X)))

(PUTPROPS GEQ CLISPISFORM 

  ((X Y)
   (X IS GEQ Y)
   (X GEQ Y)))

(PUTPROPS GREATER CLISPISFORM 

  ((X Y)
   (X IS GREATER THAN Y)
   (X GT Y)))

(PUTPROPS GT CLISPISFORM 

  ((X Y)
   (X IS GT Y)
   (X GT Y)))

(PUTPROPS LEQ CLISPISFORM 

  ((X Y)
   (X IS LEQ Y)
   (X LEQ Y)))

(PUTPROPS LESS CLISPISFORM 

  ((X Y)
   (X IS LESS THAN Y)
   (X LT Y)))

(PUTPROPS LIST CLISPISFORM 

  ((X)
   (X IS A LIST)
   (LISTP X)
   (X)
   (X IS NOT A LIST)
   (NLISTP X)))

(PUTPROPS LITATOM CLISPISFORM 

  ((X)
   (X IS A LITATOM)
   (LITATOM X)))

(PUTPROPS LITERAL CLISPISFORM 

  ((X)
   (X IS A LITERAL ATOM)
   (LITATOM X)))

(PUTPROPS LT CLISPISFORM 

  ((X Y)
   (X IS LT Y)
   (X LT Y)))

(PUTPROPS MEMB CLISPISFORM 

  ((X Y)
   (X IS A MEMB OF Y)
   (MEMB X Y)))

(PUTPROPS MEMBER CLISPISFORM 

  ((X Y)
   (X IS A MEMBER OF Y)
   (MEMBER X Y)))

(PUTPROPS NEGATIVE CLISPISFORM 

  ((X)
   (X IS NEGATIVE)
   (MINUSP X)))

(PUTPROPS NILL CLISPISFORM 

  ((X)
   (X IS NIL)
   (NULL X)))

(PUTPROPS NULL CLISPISFORM 

  ((X)
   (X IS NULL)
   (NULL X)))

(PUTPROPS NUMBER CLISPISFORM 

  ((X)
   (X IS A NUMBER)
   (NUMBERP X)))

(PUTPROPS SMALL CLISPISFORM 

  ((X)
   (X IS A SMALL INTEGER)
   (SMALLP X)
   (X)
   (X IS A SMALL NUMBER)
   (SMALLP X)))

(PUTPROPS STRING CLISPISFORM 

  ((X)
   (X IS A STRING)
   (STRINGP X)))

(PUTPROPS TAIL CLISPISFORM 

  ((X Y)
   (X IS A TAIL OF Y)
   (TAILP X Y)))

(RPAQQ DWIMIFYFLG
 EVAL)

(RPAQQ DWIMCHECK#ARGSFLG
 T)

(RPAQQ DWIMCHECKPROGLABELSFLG
 T)

(RPAQQ !
 NIL)

(RPAQQ !!
 NIL)

(RPAQQ COMPILEUSERFN
 COMPILEUSERFN)

(RPAQQ #CLISPARRAY
 250)

(RPAQQ RECORDHASHFLG
 T)

(RPAQQ CLISPTRANFLG
 CLISP% )

(RPAQQ CLISPRETRANFLG
 NIL)

(ADDTOVAR DWIMEQUIVLST
 )

(ADDTOVAR EDITMACROS
 (DW NIL (BIND (E (PROGN (SETQ #1 (##))
					     (AND (CDR L)
						  (## !0 (E (SETQ #2 L)
							    T)))
					     (AND (SETQ #3 (DWIMIFY #1 T (OR #2 (QUOTE (NIL)))))
						  EDITCHANGES
						  (RPLACA (CDR EDITCHANGES)
							  T)))
				      T)
				   (IF (NLISTP #1)
				       ((I : #3)
					(IF (LISTP #3)
					    (1)
					    NIL))
				       NIL)))
		     (PPT NIL (RESETVAR PRETTYTRANFLG T PP))
		     (!DW NIL (RESETVAR CLISPRETRANFLG T DW))
		     (NOCLISP NIL (NOCLISP TTY:))
		     (NOCLISP COMS (RESETVAR CLISPTRANFLG NIL . COMS))
		     (CLISP: NIL (BIND (E (COND ((SETQ #1 (AND CLISPARRAY (GETHASH (##)
										   CLISPARRAY)))
						 (SETQQ COM CLISP:)
						 (EDITE #1))
						(T (PRIN1 (QUOTE "not translated.
")
							  T)))
					  T))))

(ADDTOVAR EDITCOMSA
 PPT DW !DW CLISP:)

(PUTPROPS AND CLISPWORD 
T)

(PUTPROPS OR CLISPWORD 
T)

(PUTPROPS and CLISPWORD 
T)

(PUTPROPS or CLISPWORD 
T)

(PUTPROPS ! CLISPWORD 
T)

(PUTPROPS !! CLISPWORD 
T)

(PUTPROPS CLISP CLISPWORD 
(PREFIXFN . clisp))

(PUTPROPS clisp CLISPWORD 
(PREFIXFN . clisp))

(PUTPROPS MATCH CLISPWORD 
(MATCHWORD . match))

(PUTPROPS match CLISPWORD 
(MATCHWORD . match))

(RPAQQ CLISPIFWORDSPLST
 (THEN ELSE ELSEIF IF))

(RPAQQ CLISPIFTRANFLG
 NIL)

(PUTPROPS IF CLISPWORD 
(IFWORD . if))

(PUTPROPS THEN CLISPWORD 
(IFWORD . then))

(PUTPROPS ELSE CLISPWORD 
(IFWORD . else))

(PUTPROPS ELSEIF CLISPWORD 
(IFWORD . elseif))

(PUTPROPS if CLISPWORD 
(IFWORD . if))

(PUTPROPS then CLISPWORD 
(IFWORD . then))

(PUTPROPS else CLISPWORD 
(IFWORD . else))

(PUTPROPS elseif CLISPWORD 
(IFWORD . elseif))

(RPAQQ CLISPI.S.GAG
 NIL)

(RPAQQ I.S.OPRLST
 (ALWAYS AS BIND BY COLLECT COUNT DECLARE DECLARE: DO EACHTIME FCOLLECT FINALLY FIND 
			  FIRST FOR FROM IN INSIDE ISTHERE JOIN LARGEST NEVER OLD ON ORIGINAL 
			  REPEATUNTIL REPEATWHILE SMALLEST SUCHTHAT SUM THEREIS THRU TO UNLESS UNTIL 
			  WHEN WHERE WHILE always as bind by collect count declare declare: do 
			  eachtime fcollect finally find first for from in inside isthere join 
			  largest never old on original repeatuntil repeatwhile smallest suchthat sum 
			  thereis thru to unless until when where while))

(RPAQQ CLISPFORWORDSPLST
 (ALWAYS AS BIND BY COLLECT COUNT DO EACHTIME FINALLY FIRST FOR FROM IN 
				 INSIDE JOIN LARGEST NEVER OLD ON REPEATUNTIL REPEATWHILE SMALLEST 
				 SUCHTHAT SUM THEREIS TO UNLESS UNTIL WHEN WHERE WHILE))

(RPAQQ DURATIONCLISPWORDS
 ((TIMERUNITS timerUnits timerunits)
			   (USINGBOX usingBox usingbox)
			   (USINGTIMER usingTimer usingtimer)
			   (FORDURATION forDuration forduration DURING during)
			   (RESOURCENAME resourceName resourcename)
			   (UNTILDATE untilDate untildate)))

(PUTPROPS ALWAYS CLISPWORD 
(FORWORD . always))

(PUTPROPS AS CLISPWORD 
(FORWORD . as))

(PUTPROPS BIND CLISPWORD 
(FORWORD . bind))

(PUTPROPS BY CLISPWORD 
(FORWORD . by))

(PUTPROPS COLLECT CLISPWORD 
(FORWORD . collect))

(PUTPROPS COUNT CLISPWORD 
(FORWORD . count))

(PUTPROPS DECLARE CLISPWORD 
(FORWORD . declare))

(PUTPROPS DECLARE: CLISPWORD 

  (FORWORD declare: DECLARE))

(PUTPROPS DO CLISPWORD 
(FORWORD . do))

(PUTPROPS EACHTIME CLISPWORD 
(FORWORD . eachtime))

(PUTPROPS FCOLLECT CLISPWORD 
(FORWORD . fcollect))

(PUTPROPS FINALLY CLISPWORD 
(FORWORD . finally))

(PUTPROPS FIND CLISPWORD 
(FORWORD find FOR))

(PUTPROPS FIRST CLISPWORD 
(FORWORD . first))

(PUTPROPS FOR CLISPWORD 
(FORWORD . for))

(PUTPROPS FROM CLISPWORD 
(FORWORD . from))

(PUTPROPS IN CLISPWORD 
(FORWORD . in))

(PUTPROPS INSIDE CLISPWORD 
(FORWORD . inside))

(PUTPROPS ISTHERE CLISPWORD 

  (FORWORD isthere THEREIS))

(PUTPROPS JOIN CLISPWORD 
(FORWORD . join))

(PUTPROPS LARGEST CLISPWORD 
(FORWORD . largest))

(PUTPROPS NEVER CLISPWORD 
(FORWORD . never))

(PUTPROPS OLD CLISPWORD 
(FORWORD . old))

(PUTPROPS ON CLISPWORD 
(FORWORD . on))

(PUTPROPS ORIGINAL CLISPWORD 
(FORWORD . original))

(PUTPROPS REPEATUNTIL CLISPWORD 

  (FORWORD . repeatuntil))

(PUTPROPS REPEATWHILE CLISPWORD 

  (FORWORD . repeatwhile))

(PUTPROPS SMALLEST CLISPWORD 
(FORWORD . smallest))

(PUTPROPS SUCHTHAT CLISPWORD 

  (FORWORD suchthat THEREIS))

(PUTPROPS SUM CLISPWORD 
(FORWORD . sum))

(PUTPROPS THEREIS CLISPWORD 
(FORWORD . thereis))

(PUTPROPS THRU CLISPWORD 
(FORWORD thru TO))

(PUTPROPS TO CLISPWORD 
(FORWORD . to))

(PUTPROPS UNLESS CLISPWORD 
(FORWORD . unless))

(PUTPROPS UNTIL CLISPWORD 
(FORWORD . until))

(PUTPROPS WHEN CLISPWORD 
(FORWORD . when))

(PUTPROPS WHERE CLISPWORD 
(FORWORD where WHEN))

(PUTPROPS WHILE CLISPWORD 
(FORWORD . while))

(PUTPROPS always CLISPWORD 
(FORWORD . always))

(PUTPROPS as CLISPWORD 
(FORWORD . as))

(PUTPROPS bind CLISPWORD 
(FORWORD . bind))

(PUTPROPS by CLISPWORD 
(FORWORD . by))

(PUTPROPS collect CLISPWORD 
(FORWORD . collect))

(PUTPROPS count CLISPWORD 
(FORWORD . count))

(PUTPROPS declare CLISPWORD 
(FORWORD . declare))

(PUTPROPS declare: CLISPWORD 

  (FORWORD declare: DECLARE))

(PUTPROPS do CLISPWORD 
(FORWORD . do))

(PUTPROPS eachtime CLISPWORD 
(FORWORD . eachtime))

(PUTPROPS fcollect CLISPWORD 
(FORWORD . fcollect))

(PUTPROPS finally CLISPWORD 
(FORWORD . finally))

(PUTPROPS find CLISPWORD 
(FORWORD find FOR))

(PUTPROPS first CLISPWORD 
(FORWORD . first))

(PUTPROPS for CLISPWORD 
(FORWORD . for))

(PUTPROPS from CLISPWORD 
(FORWORD . from))

(PUTPROPS in CLISPWORD 
(FORWORD . in))

(PUTPROPS inside CLISPWORD 
(FORWORD . inside))

(PUTPROPS isthere CLISPWORD 

  (FORWORD isthere thereis))

(PUTPROPS join CLISPWORD 
(FORWORD . join))

(PUTPROPS largest CLISPWORD 
(FORWORD . largest))

(PUTPROPS never CLISPWORD 
(FORWORD . never))

(PUTPROPS old CLISPWORD 
(FORWORD . old))

(PUTPROPS on CLISPWORD 
(FORWORD . on))

(PUTPROPS original CLISPWORD 
(FORWORD . original))

(PUTPROPS repeatuntil CLISPWORD 

  (FORWORD . repeatuntil))

(PUTPROPS repeatwhile CLISPWORD 

  (FORWORD . repeatwhile))

(PUTPROPS smallest CLISPWORD 
(FORWORD . smallest))

(PUTPROPS suchthat CLISPWORD 

  (FORWORD suchthat THEREIS))

(PUTPROPS sum CLISPWORD 
(FORWORD . sum))

(PUTPROPS thereis CLISPWORD 
(FORWORD . thereis))

(PUTPROPS thru CLISPWORD 
(FORWORD thru TO))

(PUTPROPS to CLISPWORD 
(FORWORD . to))

(PUTPROPS unless CLISPWORD 
(FORWORD . unless))

(PUTPROPS until CLISPWORD 
(FORWORD . until))

(PUTPROPS when CLISPWORD 
(FORWORD . when))

(PUTPROPS where CLISPWORD 
(FORWORD where WHEN))

(PUTPROPS while CLISPWORD 
(FORWORD . while))

(PUTPROPS always I.S.OPR 

  ((COND ((NULL BODY)
	  (SETQ $$VAL NIL)
	  (GO $$OUT)))
   BIND
   ($$VAL ← T)))

(PUTPROPS collect I.S.OPR 

  ((SETQ $$VAL (NCONC1 $$VAL BODY))))

(PUTPROPS count I.S.OPR 

  ((AND BODY (SETQ $$VAL (ADD1 $$VAL)))
   BIND
   ($$VAL ← 0)))

(PUTPROPS do I.S.OPR 
(BODY))

(PUTPROPS fcollect I.S.OPR 

  ((= SUBPAIR (QUOTE (VAR1 VAR2))
      (LIST (GETDUMMYVAR T)
	    (GETDUMMYVAR T))
      (QUOTE (PROGN (SETQ VAR1 BODY)
		    (COND (VAR2 (FRPLACD VAR2 (SETQ VAR2 (LIST VAR1))))
			  (T (SETQ $$VAL (SETQ VAR2 (LIST VAR1))))))))))

(PUTPROPS inside I.S.OPR 

  (NIL = SUBST (GETDUMMYVAR)
       (QUOTE VAR)
       (QUOTE (bind (VAR ← BODY)
		    eachtime
		    (COND ((NULL VAR)
			   (GO $$OUT))
			  ((NLISTP VAR)
			   (SETQ I.V. VAR)
			   (SETQ VAR NIL))
			  (T (SETQ I.V. (CAR VAR))
			     (SETQ VAR (CDR VAR))))))))

(PUTPROPS join I.S.OPR 

  ((SETQ $$VAL (< !! $$VAL !! BODY>))))

(PUTPROPS largest I.S.OPR 

  (NIL = SUBST (GETDUMMYVAR)
       (QUOTE $$TEMP)
       (QUOTE (BIND $$EXTREME $$TEMP DO (SETQ $$TEMP BODY)
		    (COND ((OR (NULL $$EXTREME)
			       ($$TEMP gt $$EXTREME))
			   (SETQ $$EXTREME $$TEMP)
			   (SETQ $$VAL I.V.)))))))

(PUTPROPS never I.S.OPR 

  ((COND (BODY (SETQ $$VAL NIL)
	       (GO $$OUT)))
   BIND
   ($$VAL ← T)))

(PUTPROPS old I.S.OPR 
MODIFIER)

(PUTPROPS smallest I.S.OPR 

  (NIL = SUBST (GETDUMMYVAR)
       (QUOTE $$TEMP)
       (QUOTE (BIND $$EXTREME $$TEMP DO (SETQ $$TEMP BODY)
		    (COND ((OR (NULL $$EXTREME)
			       ($$TEMP lt $$EXTREME))
			   (SETQ $$EXTREME $$TEMP)
			   (SETQ $$VAL I.V.)))))))

(PUTPROPS sum I.S.OPR 

  ((SETQ $$VAL ($$VAL + BODY))
   BIND
   ($$VAL ← 0)))

(PUTPROPS thereis I.S.OPR 

  ((COND (BODY (SETQ $$VAL (OR I.V. T))
	       (GO $$OUT)))))

(RPAQQ CLISPDUMMYFORVARS
 ($$TEM0 $$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5 $$TEM6))

(PUTPROPS TIMERUNITS CLISPWORD 

  (FORWORD . timerUnits))

(PUTPROPS timerUnits CLISPWORD 

  (FORWORD . timerUnits))

(PUTPROPS timerunits CLISPWORD 

  (FORWORD . timerUnits))

(PUTPROPS USINGBOX CLISPWORD 
(FORWORD . usingBox))

(PUTPROPS usingBox CLISPWORD 
(FORWORD . usingBox))

(PUTPROPS usingbox CLISPWORD 
(FORWORD . usingBox))

(PUTPROPS USINGTIMER CLISPWORD 

  (FORWORD . usingTimer))

(PUTPROPS usingTimer CLISPWORD 

  (FORWORD . usingTimer))

(PUTPROPS usingtimer CLISPWORD 

  (FORWORD . usingTimer))

(PUTPROPS FORDURATION CLISPWORD 

  (FORWORD . forDuration))

(PUTPROPS forDuration CLISPWORD 

  (FORWORD . forDuration))

(PUTPROPS forduration CLISPWORD 

  (FORWORD . forDuration))

(PUTPROPS DURING CLISPWORD 
(FORWORD . during))

(PUTPROPS during CLISPWORD 
(FORWORD . during))

(PUTPROPS RESOURCENAME CLISPWORD 

  (FORWORD . resourceName))

(PUTPROPS resourceName CLISPWORD 

  (FORWORD . resourceName))

(PUTPROPS resourcename CLISPWORD 

  (FORWORD . resourceName))

(PUTPROPS UNTILDATE CLISPWORD 

  (FORWORD . untildate))

(PUTPROPS untilDate CLISPWORD 

  (FORWORD . untilDate))

(PUTPROPS untildate CLISPWORD 

  (FORWORD . untildate))

(PUTPROPS timerUnits \DURATIONTRAN 
T)

(PUTPROPS usingBox \DURATIONTRAN 
T)

(PUTPROPS usingTimer \DURATIONTRAN 
T)

(PUTPROPS forDuration \DURATIONTRAN 
T)

(PUTPROPS during \DURATIONTRAN 
T)

(PUTPROPS resourceName \DURATIONTRAN 
T)

(PUTPROPS untilDate \DURATIONTRAN 
T)

(PUTPROPS untildate \DURATIONTRAN 
T)
(PUTDEF (QUOTE I.S.OPRS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (DECLARE: EVAL@COMPILE
									     (P * (DUMPI.S.OPRS . X)))
								   )
							  CONTENTS NILL)
						     (TYPE DESCRIPTION "i.s. operators" WHENCHANGED
							   (CLEARCLISPARRAY)))))

(ADDTOVAR SYSLOCALVARS
 $$TEM0 $$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5 $$TEM6)

(ADDTOVAR INVISIBLEVARS
 $$TEM0 $$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5 $$TEM6)

(ADDTOVAR SYSLOCALVARS
 $$VAL $$TEM $$LST1 $$LST2 $$LST3 $$LST4 $$LST5 $$LST6 $$END $$EXTREME)

(ADDTOVAR INVISIBLEVARS
 $$VAL $$END $$TEM $$LST1 $$LST2 $$LST3 $$LST4 $$LST5 $$LST6 $$EXTREME)
(PUTPROP (QUOTE CLISP% )
	 (QUOTE MACRO)
	 (QUOTE (X (CAR X))))
(PUTPROPS CLISP COPYRIGHT ("Xerox Corporation" 1982 1983))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP