blob: 2983447df1d5ba9773f1329356dfb6bb7f32caf3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
@(do
(defvar *h* (hash :equal-based))
(defvar *s* "abcd")
(defvar *v* #(1 2 3 4 5 6 7 8))
(defvar *v2* #((1 . #\a) (2 . #\b) (3 . #\c) (4 . #\d)
(5 . #\e) (6 . #\f) (7 . #\h) (8 . #\g)))
(defun caught (x) (format t "exception!\n"))
(defun pr (x) (format t "~s\n" x))
(defun pr2 (x y) (format t "~s ~s\n" x y))
(pr (set [*h* "a"] 42))
(pr [*h* "a"])
(pr (del [*h* "a"]))
(pr (del [*h* "a"]))
(format t "~s ~s\n" (del [*s* 1]) *s*)
(format t "~s ~s\n" (del [*s* -1]) *s*)
(catch (pr (del [*s* 3]) *s*) (t (x) (caught x)))
(catch (del *h*) (t (x) (caught x)))
(pr [sort *v* >])
(pr [sort *v2* > cdr])
(pr [sort (range 1 100) >])
(pr2 (del [*v2* 1..3]) *v2*))
|
