From 61ea8b3773cb50016a70af670f6a6656a64f5d8f Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 19 Jun 2025 15:07:23 +0200 Subject: [PATCH] Move NODE-CONDITIONAL definition to proper place --- wip-duuqnd/user-side-compiler/high-level.lisp | 5 +++++ wip-duuqnd/user-side-compiler/parser.lisp | 5 ----- 2 files changed, 5 insertions(+), 5 deletions(-) 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))