# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1449572164 0
# Node ID 080b668056e45a29bb21760d15d6474ad7277754
# Parent  119d6d791bfacb63dcba8fab01f04ca7d534b8c0
Fix bug

diff -r 119d6d791bfa -r 080b668056e4 advent.lisp
--- a/advent.lisp	Tue Dec 08 10:55:48 2015 +0000
+++ b/advent.lisp	Tue Dec 08 10:56:04 2015 +0000
@@ -420,7 +420,9 @@
            (.full-string ()
              (.let* ((chars (.zero-or-more (.string-char))))
                     (.identity (apply #'concatenate 'list chars)))))
-    (parse (.full-string) line)))
+    (append (list +quote+)
+            (parse (.full-string) line)
+            (list +quote+))))
 
 (defun advent-8-1 (data)
   (loop :for line :in data