* postprop.$(FASLEXT): Remove rule.

	* Makefile.pamphlet (OPOBJS): Don't include it anymore.
	(postpar.$(FASLEXT)): Update requirement.
	* mark.boot: Move setting of special compiler functions from
	postprop.lisp to here.
	* postprop.lisp: Remove.
	* parse.boot: Register special parser for "xor".

1 files changed, 40 insertions, 0 deletions

diff --git a/src/interp/mark.boot b/src/interp/mark.boot
index 5c314d2f..4f40971d 100644
--- a/src/interp/mark.boot
+++ b/src/interp/mark.boot
@@ -1495,3 +1495,43 @@ ppf x ==
   _*PRETTYPRINT_* : local := true
   PRINT_-FULL x
 
+
+--%
+for x in [["LET", :"compSetq"],_
+          ["Join", :"compJoin"],_
+          ["Record", :"compCat"],_
+          ["Union", :"compCat"],_
+          ["_:", :"compColon"],_
+          ["_:_:", :"compCoerce"],_
+          ["CAPSULE", :"compCapsule"],_
+          ["has", :"compHas"],_
+          ["is", :"compIs"],_
+          ["add", :"compAdd"],_
+          ["CONS", :"compCons"],_
+          ["IF", :"compIf"],_
+          ["exit", :"compExit"],_
+          ["return", :"compReturn"],_
+          ["return", :"compLeave"],_
+          ["elt", :"compElt"],_
+          ["DEF", :"compDefine"],_
+          ["MDEF", :"compMacro"],_
+          ["SubsetCategory", :"compSubsetCategory"],_
+          ["SubDomain", :"compSubDomain"],_
+          ["case", :"compCase"],_
+          ["String", :"compString"],_
+          ["RecordCategory", :"compConstructorCategory"],_
+          ["ListCategory", :"compConstructorCategory"],_
+          ["VectorCategory", :"compConstructorCategory"],_
+          ["UnionCategory", :"compConstructorCategory"],_
+          ["CATEGORY", :"compCategory"],_
+          ["COLLECT", :"compRepeatOrCollect"],_
+          ["COLLECTV", :"compCollectV"],_
+          ["REPEAT", :"compRepeatOrCollect"],_
+          ["REDUCE", :"compReduce"],_
+          ["where", :"compWhere"],_
+          ["_|", :"compSuchthat"],_
+          ["construct", "compConstruct"],_
+          ["SEQ", :"compSeq"],_
+          ["SETQ", :"compSetq"],_
+          ["VECTOR", :"compVector"]] repeat
+  MAKEPROP(car x, "special", cdr x)