Skip to content

Instantly share code, notes, and snippets.

@intinig

intinig/fun.lisp

Created March 23, 2012 16:06
Show Gist options

  • Select an option

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

Select an option

Learn more about clone URLs
Save intinig/2172205 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fun.lisp
(defun file-lines (path)
(with-open-file (s path)
(loop for line = (read-line s nil nil)
while line
collect (coerce line 'list) into lines
finally (return (values lines)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment