From 0a3675feacc5f2bae35abc897cd076e718a6a508 Mon Sep 17 00:00:00 2001
From: John Lorentzson <john_lorentzson@yahoo.com>
Date: Sat, 3 May 2025 12:22:56 +0200
Subject: [PATCH] Turn the user-side compiler into a proper ASDF system

---
 .../high-level.lisp}                                |   4 ----
 .../{ => user-side-compiler}/instruction-list.txt   | Bin
 .../{ => user-side-compiler}/instruction.lisp       |   0
 wip-duuqnd/user-side-compiler/package.lisp          |   5 +++++
 .../user-side-compiler/user-side-compiler.asd       |   8 ++++++++
 5 files changed, 13 insertions(+), 4 deletions(-)
 rename wip-duuqnd/{compiler.lisp => user-side-compiler/high-level.lisp} (98%)
 rename wip-duuqnd/{ => user-side-compiler}/instruction-list.txt (100%)
 rename wip-duuqnd/{ => user-side-compiler}/instruction.lisp (100%)
 create mode 100644 wip-duuqnd/user-side-compiler/package.lisp
 create mode 100644 wip-duuqnd/user-side-compiler/user-side-compiler.asd

diff --git a/wip-duuqnd/compiler.lisp b/wip-duuqnd/user-side-compiler/high-level.lisp
similarity index 98%
rename from wip-duuqnd/compiler.lisp
rename to wip-duuqnd/user-side-compiler/high-level.lisp
index 66926ea..15bc2c8 100644
--- a/wip-duuqnd/compiler.lisp
+++ b/wip-duuqnd/user-side-compiler/high-level.lisp
@@ -1,7 +1,3 @@
-(defpackage #:user-side-compiler
-  (:nicknames #:usc)
-  (:use #:cl))
-
 (in-package #:user-side-compiler)
 
 (defvar *label-counter* 0)
diff --git a/wip-duuqnd/instruction-list.txt b/wip-duuqnd/user-side-compiler/instruction-list.txt
similarity index 100%
rename from wip-duuqnd/instruction-list.txt
rename to wip-duuqnd/user-side-compiler/instruction-list.txt
diff --git a/wip-duuqnd/instruction.lisp b/wip-duuqnd/user-side-compiler/instruction.lisp
similarity index 100%
rename from wip-duuqnd/instruction.lisp
rename to wip-duuqnd/user-side-compiler/instruction.lisp
diff --git a/wip-duuqnd/user-side-compiler/package.lisp b/wip-duuqnd/user-side-compiler/package.lisp
new file mode 100644
index 0000000..a8886f7
--- /dev/null
+++ b/wip-duuqnd/user-side-compiler/package.lisp
@@ -0,0 +1,5 @@
+(cl:in-package #:cl-user)
+
+(defpackage #:user-side-compiler
+  (:nicknames #:usc)
+  (:use #:cl))
diff --git a/wip-duuqnd/user-side-compiler/user-side-compiler.asd b/wip-duuqnd/user-side-compiler/user-side-compiler.asd
new file mode 100644
index 0000000..b0232b4
--- /dev/null
+++ b/wip-duuqnd/user-side-compiler/user-side-compiler.asd
@@ -0,0 +1,8 @@
+(cl:in-package #:asdf-user)
+
+(defsystem #:user-side-compiler
+  :serial t
+  :components
+  ((:file "package")
+   (:file "high-level")
+   (:file "instruction")))