Advertisement
Guest User

Untitled

a guest
Feb 9th, 2018
130
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.14 KB | None | 0 0
  1. (defun read-file (path)
  2.   (let ((in (open path :if-does-not-exist nil)) data)
  3.   (when in
  4.     (setf data (read in))
  5.     (close in))
  6.   (data)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement