NOTHING WORKS you have been warned.

ledit.asd

@@ -6,7 +6,7 @@
 (in-package :cl-user)
 
 (defpackage :ledit-asd
-  (:use :cl :asdf))
+  (:use :cl :asdf :assoc-utils))
 
 (in-package :ledit-asd)
 

resources/test-fragments/defun-fact.html

@@ -1,6 +1,6 @@
 <!-- in theory this should exactly translate into `defun-fact.lisp`, q.v. -->
 
-<div class="sexpr list">
+<div class="sexpr list" id="foo">
   <var class="sexpr symbol">defun</var>
   <var class="sexpr symbol">fact</var>
   <div class="sexpr list">

src/lisp/ledit.lisp

@@ -4,4 +4,16 @@
   (:use :cl :xmls))
 (in-package :ledit)
 
-;; blah blah blah.
+(defun slurp (infile)
+  (with-open-file (instream infile :direction :input :if-does-not-exist nil)
+    (when instream
+      (let ((string (make-string (file-length instream))))
+        (read-sequence string instream)
+        string))))
+
+(defn html-to-lisp (markup)
+  (cond
+   ((stringp markup)(html-to-lisp (xmls:node->nodelist (xmls:parse markup))))
+   (t
+    (let*
+	((classes (cadr