Function: BREAK-LOOP

Documentation

very simple REPL

Source

(defun break-loop (fn quit &rest args)
  "very simple REPL"
  (loop
   (let ((in (apply #'prompt args)))
     (if (funcall quit in)
	 (return)
	 (format *query-io* "~A~%" (funcall fn in))))))