diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-19 23:09:43 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-19 23:09:43 -0500 |
| commit | c065c7d856bce3fab29c768ea99f65afd0c80a06 (patch) | |
| tree | 857947958f9795623ad4b261b7268ebcff5994b2 | |
| parent | 265e36ba6ef581785ead4fe1e50f35daf1152404 (diff) | |
sigh ...
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index e779f69..4171cba 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -1006,9 +1006,9 @@ ;;; GAME LOOP -(defun start-debug () - (bt:make-thread (lambda () (swank:create-server :port 4006 :dont-close t))) - (start)) +;; (defun start-debug () +;; (bt:make-thread (lambda () (swank:create-server :port 4006 :dont-close t))) +;; (start)) (defun start () @@ -1027,10 +1027,9 @@ (unwind-protect (sdl2:with-init (:everything) (sdl2:with-window (win :w 1024 :h 600 :title "The Price Of A Cup Of Coffee" :flags '(:shown)) - (sdl2:with-renderer (renderer win :flags '(:accelerated)) + (sdl2:with-renderer (renderer win :flags '(:accelerated )) (boot-and-show-title renderer) (boot-up renderer) - ;; (play-track *cold-day-track*) (sdl2:with-event-loop (:method :poll) (:keydown (:keysym keysym) (if (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-escape) |