blob: eb736d9d8ee85b242cbdbdf116fa37d2838c3f4b (
plain)
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
|
(load "../common")
(defpackage lottery
(:local draw)
(:fallback usr))
(defpackage graphics
(:local draw)
(:fallback usr))
(defpackage gui-lottery
(:fallback lottery graphics usr pub)
(:use-syms-as lottery:draw ldraw
graphics:draw gdraw))
(in-package gui-lottery)
(mtest
(package-name (symbol-package 'ldraw)) "lottery"
(package-name (symbol-package 'gdraw)) "graphics"
(symbol-name 'ldraw) "draw"
(symbol-name 'gdraw) "draw")
(mtest
(tostring 'ldraw) "draw"
(tostring 'gdraw) "graphics:draw")
(mtest
(use-sym-as 3 '#:foo) :error
(use-sym-as 'ldraw 3) :error
(use-sym-as 'x 'x) x)
(mtest
(find-symbol "ldraw") lottery:draw
(find-symbol "gdraw") graphics:draw
(unuse-sym 'ldraw) lottery:draw
(unuse-sym 'gdraw) graphics:draw
(find-symbol "ldraw") nil
(find-symbol "gdraw") nil)
|
