fix DISCARD-DOCSTRING to not treat a singleton string as a docstring

- Callback bodies consisting of only one string literal were treated
  as docstrings instead of being returned.
- Added a test case in callbacks.lisp for this.

Thanks to ignas on #lisp for the bug report.