Add sbcl using cl-project, NOTE: this is not actually here its in ~/quicklisp/local-projects because I can't figure how asdf works

lisp/client/mmo-client-sbcl/.gitignore

@@ -0,0 +1,9 @@
+*.abcl
+*.fasl
+*.dx32fsl
+*.dx64fsl
+*.lx32fsl
+*.lx64fsl
+*.x86f
+*~
+.#*

lisp/client/mmo-client-sbcl/README.markdown

@@ -0,0 +1,5 @@
+# Mmo-Client-Sbcl
+
+## Usage
+
+## Installation

lisp/client/mmo-client-sbcl/README.org

@@ -0,0 +1,5 @@
+* Mmo-Client-Sbcl 
+
+** Usage
+
+** Installation

lisp/client/mmo-client-sbcl/mmo-client-sbcl.asd

@@ -0,0 +1,21 @@
+(defsystem "mmo-client-sbcl"
+  :version "0.1.0"
+  :author ""
+  :license ""
+  :depends-on ("claylib")
+  :components ((:module "src"
+                :components
+                ((:file "main"))))
+  :description ""
+  :in-order-to ((test-op (test-op "mmo-client-sbcl/tests"))))
+
+(defsystem "mmo-client-sbcl/tests"
+  :author ""
+  :license ""
+  :depends-on ("mmo-client-sbcl"
+               "rove")
+  :components ((:module "tests"
+                :components
+                ((:file "main"))))
+  :description "Test system for mmo-client-sbcl"
+  :perform (test-op (op c) (symbol-call :rove :run c)))

lisp/client/mmo-client-sbcl/src/main.lisp

@@ -1,5 +1,6 @@
- (load "~/quicklisp/setup.lisp")
+(defpackage mmo-client-sbcl
-(ql:quickload '(:claylib :usocket :simple-actors :bordeau-thread))
+  (:use :cl :claylib))
+(in-package :mmo-client-sbcl)
 
 (defvar *mouse-delta* (make-vector2 0 0))
 
@@ -21,7 +22,8 @@
         (y (rot camera)) (* 0.05 (y *mouse-delta*))
         (zoom camera) (* 2 (get-mouse-wheel-move))))
 
-  (with-window (:title "common lisp client : raylib")
+(defun main ()
+  (with-window (:title "raylib [core] example - 3d camera first person")
     (let ((camera (make-camera-3d 0 2 4
                                   0 2 0
                                   0 1 0
@@ -32,12 +34,16 @@
                              ((ground (make-plane 0 0 0 32 32 +lightgray+))
                               (blue (make-cube -16 2.5 0
                                                1 5 32
-                                               +blue+)))))))
+                                               +blue+))
+                              (green (make-cube 16 2.5 0
+                                                1 5 32
+                                                +lime+))
+                              (yellow (make-cube 0 2.5 16
+                                                 32 5 1
+                                                 +gold+))))))
       (with-scenes scene ()
         (do-game-loop (:livesupport t)
-(pro-mode-update camera)
+          (compute-camera camera)
           (with-drawing ()
             (with-3d-mode camera
-              (draw-scene scene '(ground blue green yellow))
+              (draw-scene scene '(ground blue green yellow)))))))))
-              (draw-scene-regex scene "^COLUMN"))
-            (draw-scene-regex scene "^(STATUS|INST)"))))))

lisp/client/mmo-client-sbcl/tests/main.lisp

@@ -0,0 +1,11 @@
+(defpackage mmo-client-sbcl/tests/main
+  (:use :cl
+        :mmo-client-sbcl
+        :rove))
+(in-package :mmo-client-sbcl/tests/main)
+
+;; NOTE: To run this test file, execute `(asdf:test-system :mmo-client-sbcl)' in your Lisp.
+
+(deftest test-target-1
+  (testing "should (= 1 1) to be true"
+    (ok (= 1 1))))

lisp/client/sbcl/install-cl-raylib.sh

@@ -1,2 +0,0 @@
-#!/bin/sh
-git clone https://github.com/defun-games/claylib ~/quicklisp/local-projects/claylib