diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/i-syscmd.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 582b5f66..9835c95c 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -2424,7 +2424,8 @@ displayOperationsFromLisplib form == kind := GETDATABASE(name,'CONSTRUCTORKIND) centerAndHighlight('"Operations",$LINELENGTH,specialChar 'hbar) opList:= GETDATABASE(name,'OPERATIONALIST) - null opList => reportOpsFromUnitDirectly form + null opList => + centerAndHighlight('"No exported operations",$LINELENGTH) opl:=REMDUP MSORT EQSUBSTLIST(argl,$FormalMapVariableList,opList) ops:= nil for x in opl repeat |