blob: 681a968d1de2fb4630c3e20eb01e430a29c37b53 (
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
|
(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)
|
