diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-13 18:00:53 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-13 18:00:53 -0500 |
| commit | 81af1bb9542034274ff50e0941db3659dfe53597 (patch) | |
| tree | ac597a8fdb3a8e83f03b191f1bd2d11b365551e6 /the-price-of-a-cup-of-coffee.lisp | |
| parent | 5b12d257a94eb496b9dd48a3d6b1e8fe5343d296 (diff) | |
removed old code
Diffstat (limited to 'the-price-of-a-cup-of-coffee.lisp')
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 14 |
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) |