Add method for compiling nodes following the NEXT chain

wip-duuqnd/compiler.lisp

@@ -91,6 +91,11 @@
   (format-inst t "PLA")
   (format-inst t "TAX"))
 
+(defmethod compile-starting-at ((node node))
+  (generate-code node)
+  (unless (null (next node))
+    (compile-starting-at (next node))))
+
 (defun make-call (callee args)
   (let ((arguments
           (loop :for (constp value) :in args