diff options
Diffstat (limited to 'src/interp/br-op1.boot')
| -rw-r--r-- | src/interp/br-op1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index 16c769a7..169175ba 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -934,7 +934,7 @@ getDomainOpTable(dom,fromIfTrue,:options) == domname := dom.0 conname := first domname abb := getConstructorAbbreviation conname - opAlist := getOperationAlistFromLisplib conname + opAlist := getConstructorOperationsFromDB conname "append"/[removeDuplicates [[op1,:fn] for [sig,slot,pred,key,:.] in u | key ~= 'Subsumed and ((null ops and (op1 := op)) or (op1 := memq(op,ops)))] for [op,:u] in opAlist] where |