aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-op2.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-op2.boot')
-rw-r--r--src/interp/br-op2.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot
index 837adb90..15453e12 100644
--- a/src/interp/br-op2.boot
+++ b/src/interp/br-op2.boot
@@ -399,7 +399,7 @@ koOps(conform,domname,:options) == main where
null $packageItem => '(NIL NIL)
isExposedConstructor opOf conform => [conform,:'(T)]
[conform,:'(NIL)]
- for [op,:u] in getOperationAlistFromLisplib conname repeat
+ for [op,:u] in getConstructorOperationsFromDB conname repeat
op1 := zeroOneConvert op
acc :=
[[op1,:[[sig,npred,:exposureTail] for [sig,slot,pred,key,:.] in sublisFormal(subargs,u) |