From 853020eb53d09c9b84eaf69152fa35d5a0542135 Mon Sep 17 00:00:00 2001
From: "Jakob L. Kreuze" <zerodaysfordays@sdf.org>
Date: Tue, 21 Jul 2020 22:18:25 -0400
Subject: [cl] Define a proper system.

---
 cl-raytracer.asd  | 11 +++++++++++
 cl-raytracer.lisp | 11 +++++------
 2 files changed, 16 insertions(+), 6 deletions(-)
 create mode 100644 cl-raytracer.asd

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)
-- 
cgit v1.3