# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1460992964 0
# Node ID f3aa63a7ee45f0d4c69cafda49ee19acb44b3781
# Parent  7564d78623506f2991611cc8e0ec2f29cd2fb229
Todone

diff -r 7564d7862350 -r f3aa63a7ee45 src/wam/compiler.lisp
--- a/src/wam/compiler.lisp	Mon Apr 18 15:21:41 2016 +0000
+++ b/src/wam/compiler.lisp	Mon Apr 18 15:22:44 2016 +0000
@@ -300,7 +300,6 @@
          ;; flattened away anyway.
          (stack-registers (make-array (length permanent-variables)
                             :initial-contents permanent-variables)))
-    ;; TODO: document this clusterfuck
     (loop :for variable :in reserved-variables :do
           (vector-push-extend variable local-registers))
     (labels