joshuataylor

no-repro for http://stackoverflow.com/q/25656148/1281433

Sep 3rd, 2014
337
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.63 KB | None | 0 0
  1. $ sbcl
  2. This is SBCL 1.2.2, an implementation of ANSI Common Lisp.
  3. More information about SBCL is available at <http://www.sbcl.org/>.
  4.  
  5. SBCL is free software, provided as is, with absolutely no warranty.
  6. It is mostly in the public domain; some portions are provided under
  7. BSD-style licenses.  See the CREDITS and COPYING files in the
  8. distribution for more information.
  9. * (defun pread (x)
  10.   (format *query-io* "~a:" x)
  11.   (force-output *query-io*)
  12.   (read-line *query-io*))
  13.  
  14. PREAD
  15. * (pread "Hello")
  16. Hello:hello
  17.  
  18. "hello"
  19. NIL
  20. * (defun test-read ()
  21.     (read-line *query-io*))
  22.  
  23. TEST-READ
  24. * (test-read)
  25. hello
  26.  
  27. "hello"
  28. NIL
  29. *
Add Comment
Please, Sign In to add comment