https://twitter.com/steveluscher/status/741089564329054208

emoji-lisp.repl

CL-USER> 
(defun 🔪🍳 (ingredients)
  (case ingredients
    (🌾 '🍚)
    (🌽 '🍿)
    (🐔 '🍗)
    (🐄 '🍔)
    (t '🍲)))

(defun 🗢🌱 (thing)
  (member thing '(🍚 🍿)))

(defun 🗢 (food)
  (if (member food '(🍚 🍿 🍔 🍗))
    '💩
    '😷))

(defun 🍽 (dine food)
  (if (eql '😷 dine)
      '😷
      (🗢 food)))

(setf (fdefinition 'filter) #'remove-if-not)

#<FUNCTION REMOVE-IF-NOT>
CL-USER> (mapcar '🔪🍳 '(🌾 🌽 🐄 🐔))
(🍚 🍿 🍔 🍗)
CL-USER> (filter '🗢🌱 '(🍚 🍿 🍔 🍗))
(🍚 🍿)
CL-USER> (reduce '🍽 '(🍚 🍿))
💩
CL-USER>