diff options
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 5331907c..f5517e3e 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -819,7 +819,7 @@ compDefine1(form,m,e) == null $form => stackAndThrow ['"bad == form ",form] newPrefix:= $prefix => makeSymbol strconc(encodeItem $prefix,'",",encodeItem $op) - getConstructorAbbreviationFromDB $op + dbAbbreviation constructorDB $op compDefineCapsuleFunction(form,m,e,newPrefix,$formalArgList) compDefineAddSignature([op,:argl],signature,e) == @@ -1057,7 +1057,7 @@ compDefineCategory2(form,signature,specialCases,body,m,e, $lisplibCategory:= formalBody if $LISPLIB then $lisplibParents := - getParentsFor($op,$FormalMapVariableList,$lisplibCategory) + getParentsFor(db,$FormalMapVariableList,$lisplibCategory) $lisplibAncestors := computeAncestorsOf($form,nil) form':=[op',:sargl] augLisplibModemapsFromCategory(form',formalBody,signature') @@ -1424,7 +1424,7 @@ compDefineFunctor1(df is ['DEF,form,signature,nils,body], if $LISPLIB then $lisplibCategory := modemap.mmTarget $lisplibParents := - getParentsFor($op,$FormalMapVariableList,$lisplibCategory) + getParentsFor(db,$FormalMapVariableList,$lisplibCategory) $lisplibAncestors := computeAncestorsOf($form,nil) $insideFunctorIfTrue:= false if $LISPLIB then |