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/bootfuns.lisp.pamphlet | 10 ----------
 1 file changed, 10 deletions(-)

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

diff --git a/src/interp/bootfuns.lisp.pamphlet b/src/interp/bootfuns.lisp.pamphlet
index bfb18a6c..ed8b3dc0 100644
--- a/src/interp/bootfuns.lisp.pamphlet
+++ b/src/interp/bootfuns.lisp.pamphlet
@@ -105,16 +105,6 @@ offer it as extensions.
      (export '(,p) "BOOT")))
 
 
-;  modemap:==  ( <map> (p e) (p e) ... (p e) )
-;  modemaplist:= ( modemap ... )
-
-(def-boot-val |$CategoryFrame|
-	  '((((|Category| . ((|modemap| (((|Category|) (|Category|)) (T *)))))
-	      (|Join| . ((|modemap|
-      (((|Category|) (|Category|) (|Category|) (|Category|)) (T *))
-      (((|Category|) (|Category|) (|List| |Category|)) (|Category|)) (T *))
-	)))))
-	"Compiler>CUtil.boot")
 (def-boot-val |$spadLibFT| 'LISPLIB		    "???")
 @
 \eject
-- 
cgit v1.2.3