diff options
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 33e7c592..62738ea8 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -801,9 +801,8 @@ encodeFunctionName(fun,package is [packageName,:arglist],signature,sep,count) strconc(STRINGIMAGE n,encodeItem x) encodedName:= INTERNL(getConstructorAbbreviationFromDB packageName,";", encodeItem fun,";",encodedSig, sep,STRINGIMAGE count) - if $LISPLIB then - $lisplibSignatureAlist:= - [[encodedName,:signature'],:$lisplibSignatureAlist] + $lisplibSignatureAlist := + [[encodedName,:signature'],:$lisplibSignatureAlist] encodedName ++ Return the linkage name of the local operation named `op'. |