Skip to content

Instantly share code, notes, and snippets.

@coetry

coetry/prompt-read.lisp

Last active August 20, 2019 12:48
Show Gist options
  • Save coetry/5c2b872fef980e923879fe9b1e2afefe to your computer and use it in GitHub Desktop.
Save coetry/5c2b872fef980e923879fe9b1e2afefe to your computer and use it in GitHub Desktop.
Download ZIP
prompt-read
Raw
prompt-read.lisp
(defun prompt-read (prompt)
(format *query-io* "~a: " prompt)
read-line *query-io*))
@fiddlerwoaroof
Copy link

fiddlerwoaroof commented Feb 25, 2019 •
edited
Loading

This may not prompt because it might never flush the output buffer, you probably want:

(defun prompt-read (prompt)
  (format *query-io* "~a: " prompt)
  (finish-output *query-io*)
  (read-line *query-io*))

However, this is probably a bug, you might check in #slime (the slime maintainer is on Lisbon, Portugal time, so consider that. Also, consider reporting this to the slime issuetracker on Github.

@luismbo
Copy link

luismbo commented Feb 26, 2019

@fiddlerwoaroof's version WFM on Allegro CL.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment