diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 6 | ||||
| -rw-r--r-- | src/interp/i-syscmd.boot | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 86066b4d..41c48f4e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2008-01-25 Gabriel Dos Reis <gdr@cs.tamu.edu> + + Fix AW/311 + * interp/i-syscmd.boot (displayOperationsFromLisplib): Say no + exported operations when there is nothing to display. + 2008-01-24 Gabriel Dos Reis <gdr@cs.tamu.edu> Fix AW/272 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 |