From 81af1bb9542034274ff50e0941db3659dfe53597 Mon Sep 17 00:00:00 2001 From: Boutade Date: Sun, 13 Oct 2019 18:00:53 -0500 Subject: removed old code --- the-price-of-a-cup-of-coffee.lisp | 14 +------------- 1 file changed, 1 insertion(+), 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) -- cgit v1.2.3