Version control lib.lisp

2022/puzzle-3.lisp

@@ -1,3 +1,4 @@
+(load "lib.lisp")
 (defvar input (uiop:read-file-string "3-input"))
 
 (defun split-string-in-two (s)
@@ -10,9 +11,6 @@
                    until (null line)
                    collect (split-string-in-two line))))
 
-(defun string-to-clist (str)
-  (loop for char across str collect char))
-
 (defun common-types (s1 s2)
   (car (intersection
         (string-to-clist s1)