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")))