diff options
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 66608c6b..65f6fd3c 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -819,7 +819,7 @@ compDefineCategory2(form,signature,specialCases,body,m,e, $lisplibParents := getParentsFor($op,$FormalMapVariableList,$lisplibCategory) $lisplibAncestors := computeAncestorsOf($form,nil) - $lisplibAbbreviation := constructor? $op + $lisplibAbbreviation := getConstructorAbbreviationFromDB $op form':=[op',:sargl] augLisplibModemapsFromCategory(form',formalBody,signature') [fun,$Category,e] @@ -991,7 +991,7 @@ compDefineFunctor1(df is ['DEF,form,signature,nils,body], $lisplibParents := getParentsFor($op,$FormalMapVariableList,$lisplibCategory) $lisplibAncestors := computeAncestorsOf($form,nil) - $lisplibAbbreviation := constructor? $op + $lisplibAbbreviation := getConstructorAbbreviationFromDB $op $insideFunctorIfTrue:= false if $LISPLIB then $lisplibKind:= |