summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBoutade <thegoofist@protonmail.com>2019-10-13 18:00:53 -0500
committerBoutade <thegoofist@protonmail.com>2019-10-13 18:00:53 -0500
commit81af1bb9542034274ff50e0941db3659dfe53597 (patch)
treeac597a8fdb3a8e83f03b191f1bd2d11b365551e6
parent5b12d257a94eb496b9dd48a3d6b1e8fe5343d296 (diff)
removed old code
-rw-r--r--the-price-of-a-cup-of-coffee.lisp14
1 files changed, 1 insertions, 13 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp
index 8311c0f..2a12ffe 100644
--- a/the-price-of-a-cup-of-coffee.lisp
+++ b/the-price-of-a-cup-of-coffee.lisp
@@ -111,19 +111,7 @@
(defun action-key-pressed ()
(print "Action"))
-(defun walking-face (dir)
- (case dir
- (:left 'walking-left)
- (:right 'walking-right)
- (:up 'walking-up)
- (:down 'walking-down)))
-
-(defun standing-face (dir)
- (case dir
- (:left 'facing-left)
- (:right 'facing-right)
- (:up 'facing-up)
- (:down 'facing-down)))
+
(defun any-p (arg &rest preds)