From e72ded0c7d7fdf5da10fe57f806fde5314cf79c5 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 10 Jul 2010 13:33:13 +0000
Subject: 	* interp/functor.boot (setVector4): Remove.  Deadcode. 
 (setVector4Onecat): Likewise. 	(setVector4part3): Likewise. 	*
 interp/nruncomp.boot (NRTsetVector4): Likewise. 	(NRTsetVector4Part2):
 Likewise. 	(mergeAppend): Likewise. 	* interp/define.boot
 (compDefineFunctor1): Remove assignment to 	unused
 $lisplibCategoriesExtented. 	* interp/lisplib.boot (compDefineLisplib):
 Likewise. 	* interp/wi1.boot (compDefineLisplib): Likewise. 	*
 interp/wi2.boot (compDefineFunctor1): Likewise.

---
 src/interp/define.boot | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'src/interp/define.boot')

diff --git a/src/interp/define.boot b/src/interp/define.boot
index bf90b572..5b73b5d9 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -85,7 +85,6 @@ $NRTdeltaListComp := []
 $template := nil
 $signature := nil
 $isOpPackageName := false
-$lisplibCategoriesExtended := []
 $lookupFunction := nil
 $byteAddress := nil
 $byteVec := nil
@@ -732,8 +731,6 @@ compDefineFunctor1(df is ['DEF,form,signature,nils,body],
         if $isOpPackageName then lisplibWrite('"slot1DataBase",
           ['updateSlot1DataBase,MKQ $NRTslot1Info],$libFile)
         $lisplibFunctionLocations := SUBLIS($pairlis,$functionLocations)
-        $lisplibCategoriesExtended := SUBLIS($pairlis,$lisplibCategoriesExtended)
-        -- see NRTsetVector4 for initial setting of $lisplibCategoriesExtended
         libFn := getConstructorAbbreviationFromDB op'
         $lookupFunction: local :=
             NRTgetLookupFunction($functorForm,$lisplibModemap.mmTarget,$NRTaddForm)
-- 
cgit v1.2.3