Update of /cvsroot/sbcl/sbcl/contrib/sb-aclrepl
In directory sc8-pr-cvs1:/tmp/cvs-serv12588/contrib/sb-aclrepl
Modified Files:
repl.lisp
Log Message:
0.8alpha.0.31:
* sb-aclrepl/sb-aclrepl.asd: Remove compilation note workaround
* sb-aclrepl/repl.lisp: add a few needed newlines to output
Index: repl.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-aclrepl/repl.lisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- repl.lisp 12 May 2003 18:12:35 -0000 1.15
+++ repl.lisp 15 May 2003 16:21:42 -0000 1.16
@@ -180,7 +180,7 @@
(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)))
@@ -411,6 +411,7 @@
(defun apropos-cmd (string)
(apropos (string-upcase string))
+ (fresh-line *output*)
(values))
(let ((last-files-loaded nil))
|