Fix y-or-n-p on sbcl

Author: yitzchak

src/stdin.lisp

@@ -76,22 +76,20 @@ most cases of *query-io* usage. Makes overloading y-or-no-p unnecessary.
           (let ((trimmed-output (copy-seq (string-trim '(#\Bel) output))))
             (when (or need-input
                       (not (zerop (length (string-trim '(#\Newline) trimmed-output)))))
+              (setf (fill-pointer (stdin-stream-input stream)) 0)
               (setf (fill-pointer output) 0)
               (finish-output)
               (send-input-request channel trimmed-output)
-              (do ()
-                  ((message-available-p channel))
-                (sleep 0.1))
-              (let ((value (concatenate 'string
-                             (gethash "value" (message-content (message-recv channel)))
-                               '(#\Newline))))
-                (adjust-array input (length value)
-                              :fill-pointer (length value)
-                              :initial-contents (reverse value)))))
+              (loop until (message-available-p channel)
+                    do (sleep 0.1))
+              (loop for ch across (gethash "value" (message-content (message-recv channel)))
+                    initially (vector-push-extend #\Newline input)
+                    do (vector-push-extend ch input))))
         (bordeaux-threads:release-lock lock)))))
 
-(defmethod trivial-gray-streams:stream-finish-output ((stream stdin-stream))
-  (prompt-and-read stream nil))
+(defmethod trivial-gray-streams:stream-clear-input ((stream stdin-stream))
+  (setf (fill-pointer (stdin-stream-input stream)) 0)
+  nil)
 
 (defmethod trivial-gray-streams:stream-listen ((stream stdin-stream))
   (not (zerop (length (stdin-stream-input stream)))))