Skip to content

Instantly share code, notes, and snippets.

@joekarma

joekarma/gist:3688592

Created September 10, 2012 03:01
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save joekarma/3688592 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save joekarma/3688592 to your computer and use it in GitHub Desktop.
Download ZIP
Read `n' characters from stream.
Raw
gistfile1.lisp
(defun read-n-characters (n &optional (stream *standard-input*))
(let ((seq (make-string n)))
(read-sequence seq stream)
seq))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment