diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-21 22:18:25 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-21 22:18:35 -0400 |
| commit | 853020eb53d09c9b84eaf69152fa35d5a0542135 (patch) | |
| tree | 84d54ba432b674f3d5781b679d31130a04178f21 /cl-raytracer.lisp | |
| parent | a4a81ba53c1adcefb38c2238f38ff8e0c3cc8094 (diff) | |
Diffstat (limited to 'cl-raytracer.lisp')
| -rw-r--r-- | cl-raytracer.lisp | 11 |
1 files changed, 5 insertions, 6 deletions
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) |