From 802ce3f7635ad4370303a959f7623509fded8528 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 29 Oct 2011 10:27:48 +0000
Subject: 	* interp/define.boot (getInfovecCode): Take a DB argument. 
 Pass 	it to callees.  Adjust caller. 	* interp/database.boot
 (getConstructorPredicates): If contructor 	is being defined, return the
 predicates as currently known. 	* interp/daase.lisp
 (INITIAL-GETDATABASE): Remove 	(fillDatabasesInCore): Adjust.

---
 src/interp/lisplib.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index 6c6e3018..639db319 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -64,7 +64,7 @@ simplifyAttributeAlist(db,al) ==
     [[a,:pred],:simplifyAttributeAlist(db,s)]
   nil
  
-NRTgenFinalAttributeAlist e ==
+NRTgenFinalAttributeAlist(db,e) ==
   [[a,:k] for [a,:b] in $NRTattributeAlist
      | (k := predicateBitIndex(b,e)) ~= -1]
  
-- 
cgit v1.2.3