diff options
| -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) |