collect-ignore の方が

(series::install :implicit-map t) していると collect-ignore の方がいいね。

(iterate ((x (scan-file "~/.sbclrc" #'read-line)))
  (write-line x))

(collect-ignore (write-line (scan-file "~/.sbclrc" #'read-line)))


;; これはもうちょっと。。。
(defun query-message ()
  (collect-fn 'string (constantly "") (^ format nil "~a~&~a" _a _b)
              (until-if (^ string= "." (if (string= "\\q" _)
                                           (return-from query-message nil)
                                           _))
                        (scan-stream *terminal-io* #'read-line))))