hg.stevelosh.com > advent

080b668056e4 

Fix bug
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Tue, 08 Dec 2015 10:56:04 +0000
parents 119d6d791bfa
children 02043335d57a
branches/tags (none)
files advent.lisp

Changes

--- 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