(defun process-history-search (pattern cmd-args-string)
(let ((cmd (find-history-matching-pattern pattern)))
(unless cmd
- (format *output* "No match on history list with pattern ~S" pattern)
+ (format *output* "No match on history list with pattern ~S~%" pattern)
(return-from process-history-search *null-cmd*))
(maybe-return-history-cmd cmd cmd-args-string)))
(defun apropos-cmd (string)
(apropos (string-upcase string))
+ (fresh-line *output*)
(values))
(let ((last-files-loaded nil))
(let ((stopped-threads (sb-thread::waitqueue-data lock)))
(when stopped-threads
(format stream "~{~&Thread ~A suspended~}~%" stopped-threads))))
+ (fresh-line stream)
(if (functionp *prompt*)
(write-string (funcall *prompt*
break-level