formatting

.editorconfig

@@ -0,0 +1,10 @@
+# editorconfig.org
+root = true
+
+[*]
+indent_style = space
+indent_size = 2
+end_of_line = lf
+charset = utf-8
+trim_trailing_whitespace = true
+insert_final_newline = true

01a.lisp

@@ -1,24 +1,24 @@
 (require :uiop)
 
 (defun split-instruction (s)
-  "Splits a string S into two parts at the given INDEX."
+  "Splits the given instruction into a pair"
   (cons (subseq s 0 1)
         (subseq s 1)))
 
 (defun turn-dial (dial instruction)
-	(let ((cons-instruction (split-instruction instruction)))
+  (let ((cons-instruction (split-instruction instruction)))
-		(let ((op (intern (car cons-instruction)))
+    (let ((op (intern (car cons-instruction)))
-			(amount (parse-integer (cdr cons-instruction))))
+      (amount (parse-integer (cdr cons-instruction))))
-				(mod 
+        (mod
-					(funcall 
+          (funcall
-						(cond 
+            (cond
-					    ((eql 'L op) #'-)
+              ((eql 'L op) #'-)
-					    ((eql 'R op) #'+)
+              ((eql 'R op) #'+)
-						  (t (error "unknown op")))
+              (t (error "unknown op")))
-					  dial amount)
+            dial amount)
-					100)
+          100)
-			)
+      )
-		))
+    ))
 
 ;; (turn-dial 50 "L68")
 ;; (turn-dial 82 "L30")
@@ -27,10 +27,10 @@
 (defun rec-dial-vm (accum dial lines)
   (let ((instruction (pop lines)))
     (if instruction
-			(let ((new-dial (turn-dial dial instruction)))
+      (let ((new-dial (turn-dial dial instruction)))
-				(if (= new-dial 0)
+        (if (= new-dial 0)
-					(rec-dial-vm accum new-dial lines)
+          (rec-dial-vm accum new-dial lines)
-					(rec-dial-vm (+ 1 accum) new-dial lines)))
+          (rec-dial-vm (+ 1 accum) new-dial lines)))
       accum)))
 
 (rec-dial-vm 0 50 (uiop:read-file-lines "01example.txt"))