diff --git a/2015/days/01/lisp.lisp b/2015/days/01/lisp.lisp
new file mode 100644
index 0000000..40dd496
--- /dev/null
+++ b/2015/days/01/lisp.lisp
@@ -0,0 +1,7 @@
+;; Day 1: Not Quite Lisp
+
+(with-open-file (in "./data/input")
+  (do ((char (read-char in nil)
+             (read-char in nil)))
+      ((null char))
+    (print char)))