From 3eb3cdcbc53db2af4e6f1cce49da52594c3160d5 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 4 Sep 2007 19:12:39 +0000
Subject: 	* bootfuns.lisp.pamphlet (|$CategoryFrame|): Move to
 sys-globals.boot. 	* setq.lisp.pamphlet (|$CategoryFrame|): Don't set
 here.

---
 src/interp/setq.lisp.pamphlet | 14 --------------
 1 file changed, 14 deletions(-)

(limited to 'src/interp/setq.lisp.pamphlet')

diff --git a/src/interp/setq.lisp.pamphlet b/src/interp/setq.lisp.pamphlet
index 11f58eab..a9755811 100644
--- a/src/interp/setq.lisp.pamphlet
+++ b/src/interp/setq.lisp.pamphlet
@@ -348,20 +348,6 @@
      |t#31| |t#32| |t#33| |t#34| |t#35| |t#36| |t#37| |t#38| |t#39| |t#40|
      |t#41| |t#42| |t#43| |t#44| |t#45| |t#46| |t#47| |t#48| |t#49| |t#50|))
 
-;"  modemap:==  ( <map> (p e) (p e) ... (p e) )  "
-;"  modemaplist:= ( modemap ... )  "
-(SETQ |$CategoryFrame| '(((
-  (|Category| .
-    ((|modemap|
-      ( ((|Category|) (|Category|)) (T *) )
-	)))
-  (|Join| .
-    ((|modemap|
-      ( ((|Category|) (|Category|) (|Category|) (|Category|)) (|T| *) )
-      ( ((|Category|) (|Category|) (|List| (|Category|)) (|Category|)) (T *) )
-	)))
-    ))))
-
 (SETQ NRTPARSE NIL)
 (SETQ |$NRTflag| T)
 (SETQ |$NRTaddForm| NIL)
-- 
cgit v1.2.3