blob: f7a17cbf1d936a4e5546ce8d0eaa6332aec8df3c (
plain) (
blame)
1
2
3
4
5
6
7
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)))
|