forked from otfrom/clork
/
repl-history.txt
57 lines (57 loc) · 1.24 KB
/
repl-history.txt
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
; SLIME 20091016
user> (in-ns 'clork)
#<Namespace clork>
clork> (def fred (struct player "lobby"))
#'clork/fred
clork> fred
{:room "lobby"}
clork> (look :kitchen)
"A kitchern with a roaring fire"
clork> (move rooms :kitchen :w)
nil
clork> (move rooms :kitchen :e)
nil
clork> (move rooms :hall :e)
nil
clork> (move rooms :hall :n)
:kitchen
clork> (player :kitchen)
; Evaluation aborted.
clork> (struct player :hall)
{:location :hall}
clork> (move-player (struct player :hall) rooms :n)
; Evaluation aborted.
clork> (move-player (struct player :hall) rooms :n)
; Evaluation aborted.
clork> (move-player (struct player :hall) rooms :n)
; Evaluation aborted.
clork> (move rooms :hall :n)
:kitchen
clork> (move-player (struct player :hall) rooms :n)
{:location :kitchen}
clork> (move-player (struct player :hall) rooms :e)
{:location nil}
clork> (move-player (struct player :hall) rooms :e)
{:location :hall}
clork>
nil
clork>
nil
clork> the-player
; Evaluation aborted.
clork> the-player
#<Atom@d2f5f1: {:location :hall}>
clork> @the-player
{:location :hall}
clork> (west)
{:location :lounge}
clork> @the-player
{:location :lounge}
clork> @the-player
{:location :hall}
clork> (west)
"A lounge with a red chez longue"
clork> (west)
A lounge with a red chez longue
nil
clork>