[cl] Define a proper system.HEADmaster

2 files changed, 16 insertions, 6 deletions

diff --git a/cl-raytracer.asd b/cl-raytracer.asd
new file mode 100644
index 0000000..5727214
--- /dev/null
+++ b/cl-raytracer.asd
@@ -0,0 +1,11 @@
+;;;; cl-raytracer.asd
+
+(asdf:defsystem #:cl-raytracer
+  :description "Describe cl-raytracer here"
+  :author "Jakob L. Kreuze"
+  :license  "GPL"
+  :version "0.0.1"
+  :serial t
+  :depends-on (#:trivia)
+  :components ((:file "cl-raytracer"))
+  :entry-point (uiop:symbol-call :cl-raytracer "MAIN"))
diff --git a/cl-raytracer.lisp b/cl-raytracer.lisp
index f33697a..2b33203 100644
--- a/cl-raytracer.lisp
+++ b/cl-raytracer.lisp
@@ -14,13 +14,14 @@
 ;;; along with this program. If not, see
 ;;; <http://www.gnu.org/licenses/>.
 
-(defpackage :cl-raytracer
-  (:use :cl :trivia))
+(defpackage #:cl-raytracer
+  (:use :cl :trivia)
+  (:export "main"))
 
-(in-package :cl-raytracer)
+(in-package #:cl-raytracer)
 
-;; I'm not sure of the best way to set this just for this file :x
 (eval-when (:compile-toplevel)
+  ;; I'm not sure of the best way to set this just for this file :x
   (setf *read-default-float-format* 'double-float))
 
 
@@ -334,5 +335,3 @@ point), if any. Otherwise, return nil."
                        (to-color (shade-pixel shape position (ray-origin ray)))))
                     (_ (ray-color ray))))))))
     (write-ppm *image-width* *image-height* image)))
-
-(main)