academy/packages.lisp at master · whalliburton/academy · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
(defpackage academy
  (:use common-lisp)
  (:shadow if push)
  (:export help
           petals-around-the-rose
           hilbert-space-filling-curve
           show-unicode-characters
           war
           life
           smile
           visualize-one-in-chance
           visualize-chance
           cellular-automata
           visualize-math-functions
           i-ching
           bullseye
           sunbeam
           remember forget
           sun
           moiré
           multiplication-table
           peace
           turtle-race
           save-log
           hall-of-programmers
           calculator
           calculate
           play-cards
           chemical
           plants
           ))

(in-package :academy)

;;; !!! A hack to get around package locks to allow for FLETing a new PUSH.
(defmacro push (&rest args)
  `(cl:push ,@args))