From a3e6e9952e0de879ff229b37eb81a78e2c8954bc Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 1 Jun 2013 23:19:45 +0000
Subject: Cache more category objects.

---
 src/interp/lisplib.boot | 17 -----------------
 1 file changed, 17 deletions(-)

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

diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index 8dceae5d..9bb304aa 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -616,23 +616,6 @@ getSlotFromFunctor(target) ==
       systemErrorHere "getSlotFromFunctor"
   categoryRef(t.expr,2)
  
-getSlot1 domainName ==
-  $e: local:= $CategoryFrame
-  fn:= getLisplibName domainName
-  p := pathname [fn,$spadLibFT,'"*"]
-  not isExistingFile(p) =>
-    sayKeyedMsg("S2IL0003",[namestring p])
-    nil
-  (sig := getConstructorSignature domainName) =>
-    [.,target,:argMml] := sig
-    for a in $FormalMapVariableList for m in argMml repeat
-      $e:= put(a,'mode,m,$e)
-    t := compMakeCategoryObject(target,$e) or
-      systemErrorHere ["getSlot1",domainName]
-    categoryExports t.expr
-  sayKeyedMsg("S2IL0022",[namestring p,'"constructor modemap"])
-  nil
- 
 transformOperationAlist operationAlist ==
   --  this transforms the operationAlist which is written out onto LISPLIBs.
   --  The original form of this list is a list of items of the form:
-- 
cgit v1.2.3