From a12a4527c1d48988f48b4656c3a46ab91ab4e5e2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 3 Nov 2008 08:31:46 +0000
Subject: 	* interp/postpar.boot (postcheckTarget): Likewise. 
 (isPackageType): Likewise. 	* interp/lisplib.boot (getSlotFromDomain):
 Remove. 	* interp/macros.lisp (|saySpadMsg|): Remove. 	*
 interp/vmlisp.lisp (qsetq): Remove. 	(STATEP, FUNARGP, PAPPP): Likewise. 
 (LISTOFQUOTES, LISTOFFREES): Likewise.

---
 src/interp/wi1.boot | 2 --
 1 file changed, 2 deletions(-)

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

diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot
index 29ea264e..f711677d 100644
--- a/src/interp/wi1.boot
+++ b/src/interp/wi1.boot
@@ -1065,7 +1065,6 @@ compNot([op,arg], pWas, m, e) ==
   coerce(markAny('compNot, pWas, [["NOT",x],$Boolean,ei]),m)
 
 compDefine(form,m,e) ==
-  $tripleHits: local:= 0
   $macroIfTrue: local
   $packagesUsed: local
   ['DEF,.,originalSignature,.,body] := form
@@ -1165,7 +1164,6 @@ compDefineCategory2(form,signature,specialCases,body,m,e,
   $prefix,$formalArgList) ==
     --1. bind global variables
     $insideCategoryIfTrue: local:= true
-    $TOP__LEVEL: local := nil
     $definition: local := nil
                  --used by DomainSubstitutionFunction
     $form: local := nil
-- 
cgit v1.2.3