projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.16.6:
[sbcl.git]
/
src
/
code
/
query.lisp
diff --git
a/src/code/query.lisp
b/src/code/query.lisp
index
bd08d5d
..
0312137
100644
(file)
--- a/
src/code/query.lisp
+++ b/
src/code/query.lisp
@@
-18,8
+18,7
@@
(defun query-read-line ()
(force-output *query-io*)
(defun query-read-line ()
(force-output *query-io*)
- (string-trim #.(concatenate 'string '(#\Space #\Tab))
- (read-line *query-io*)))
+ (string-trim " " (read-line *query-io*)))
(defun maybe-print-query (hint format-string &rest format-args)
(fresh-line *query-io*)
(defun maybe-print-query (hint format-string &rest format-args)
(fresh-line *query-io*)