diff --git a/wip-duuqnd/user-side-compiler/high-level.lisp b/wip-duuqnd/user-side-compiler/high-level.lisp
index 9ef0b1a..e438512 100644
--- a/wip-duuqnd/user-side-compiler/high-level.lisp
+++ b/wip-duuqnd/user-side-compiler/high-level.lisp
@@ -81,6 +81,11 @@
   (print-unreadable-object (object stream :type t :identity t)
     (format stream "~A~A" (callee object) (arguments object))))
 
+(defclass node-conditional (node)
+  ((%test :accessor test-node :initarg :test)
+   (%then :accessor then-node :initarg :then)
+   (%else :accessor else-node :initarg :else :initform nil)))
+
 (defclass node-branch (node)
   ((%branch-next :accessor branch-next :initarg :branch-next)))
 
diff --git a/wip-duuqnd/user-side-compiler/parser.lisp b/wip-duuqnd/user-side-compiler/parser.lisp
index d3032c3..c54fa2a 100644
--- a/wip-duuqnd/user-side-compiler/parser.lisp
+++ b/wip-duuqnd/user-side-compiler/parser.lisp
@@ -270,11 +270,6 @@ parser's debug output.")
                  :stop-ref (transform n 'reference)
                  :loopee-node (transform code 'node)))
 
-(defclass node-conditional (node)
-  ((%test :accessor test-node :initarg :test)
-   (%then :accessor then-node :initarg :then)
-   (%else :accessor else-node :initarg :else :initform nil)))
-
 (defmethod node-nexts ((node node-conditional))
   (append (list (test-node node) (then-node node))
           (unless (null (else-node node))