about summary refs log tree commit diff stats
path: root/shen/rms.shen
diff options
context:
space:
mode:
authorDarren Bane <dbane@tilde.institute>2022-01-07 11:49:16 +0000
committerDarren Bane <dbane@tilde.institute>2022-01-07 11:49:16 +0000
commit3f26f5eeaeb94fc05db3b7f19982ed5eb4104c2d (patch)
treeab8371d04fe30c2812ba5f28e3ea4bc22e644818 /shen/rms.shen
parent1942ee886453a3650666c9c731dcc3f64a798db1 (diff)
parentccb2aac02c83a057f9a22d59e6fbaecf25709073 (diff)
downloadlsp-3f26f5eeaeb94fc05db3b7f19982ed5eb4104c2d.tar.gz
Merge branch 'master' of /home/dbane/public_repos/lsp into master
Diffstat (limited to 'shen/rms.shen')
-rw-r--r--shen/rms.shen8
1 files changed, 8 insertions, 0 deletions
diff --git a/shen/rms.shen b/shen/rms.shen
new file mode 100644
index 0000000..f7a17cb
--- /dev/null
+++ b/shen/rms.shen
@@ -0,0 +1,8 @@
+(set *hush* true)

+(LOAD "rms-sysdep.lisp")

+(declare sqrt [number --> number])

+(specialise sqrt 1)

+(tc +)

+(load "rms-defs.shen")

+(set *hush* false)

+(output "~A~%" (rms (iota 10)))

ef='/akspecs/ranger/blame/HACKING?id=4ea0f69aed8d4c173d9abbd0a1bd76d6afe69ccb'>^
6deb64e6 ^





7cdfb0cf ^
6deb64e6 ^


f8f6f7f9 ^

1881922f ^



8ab348a8 ^


1881922f ^

8ab348a8 ^



1881922f ^

f8f6f7f9 ^
6deb64e6 ^


f8f6f7f9 ^

6deb64e6 ^








f8f6f7f9 ^
f8f6f7f9 ^
6deb64e6 ^

f8f6f7f9 ^
6deb64e6 ^





f61fbfae ^

f8f6f7f9 ^
6deb64e6 ^
b071cb85 ^

6deb64e6 ^
f61fbfae ^

f8f6f7f9 ^
f8f6f7f9 ^
b071cb85 ^

f8f6f7f9 ^
6deb64e6 ^




f8f6f7f9 ^
6deb64e6 ^
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94