From 431bfaa2ee046f519715d1aa51b74f05eba74f87 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 3 Nov 2008 19:15:35 +0000 Subject: * interp/br-data.boot: Remove uses of BOUNDP. * interp/br-op1.boot: Likewise. * interp/c-doc.boot: Likewise. * interp/functor.boot: Likewise. * interp/category.boot: Likewise. * interp/g-cndata.boot: Likewise. * interp/i-util.boot: Likewise. * interp/lisplib.boot: Likewise. * interp/mark.boot: Likewise. * interp/wi1.boot: Likewise. * interp/wi2.boot: Likewise. --- src/interp/br-op1.boot | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'src/interp/br-op1.boot') diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index 1f9825bb..38f83e2f 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -697,11 +697,6 @@ htSayExpose(op,flag) == dbShowOperationsFromConform(htPage,which,opAlist) == --branch in with lists $groupChoice := nil conform := htpProperty(htPage,'conform) - --prepare opAlist for possible filtering of groups - if null BOUNDP '$topicHash then - $topicHash := MAKE_-HASHTABLE 'ID - for [x,:c] in '((extended . 0) (basic . 1) (hidden . 2)) repeat - HPUT($topicHash,x,c) if domform := htpProperty(htPage,'domname) then $conformsAreDomains : local := true reduceOpAlistForDomain(opAlist,domform,conform) @@ -747,6 +742,8 @@ reduceOpAlistForDomain(opAlist,domform,conform) == item opAlist +$attributeArgs := nil + dbShowOperationLines(which,linelist) == --branch in with lines htPage := htInitPage(nil,nil) --create empty page opAlist := nil @@ -766,7 +763,7 @@ dbShowOperationLines(which,linelist) == --branch in with lines 'expandAttributes htpSetProperty(htPage,expandProperty,'strings) dbResetOpAlistCondition(htPage,which,opAlist) - if which = '"attribute" and BOUNDP '$attributeArgs and $attributeArgs then + if which = '"attribute" and $attributeArgs then --code needed to handle commutative("*"); called from aPage --must completely expand the opAlist then check for those with --arguments equal to $attributeArgs -- cgit v1.2.3