const.l

(defconstant *CONST1* 1)
(defconstant *CONST2* 2)
(defconstant *CONST3* 3)
(defconstant *CONST4* 4)
(defconstant *CONST5* 5)
(defconstant *CONST6* 6)
(defconstant *CONST7* 7)
(defconstant *CONST8* 8)
(defconstant *CONST9* 9)
(defconstant *CONST10* 10)
(defconstant *CONST11* 11)
(defconstant *CONST12* 12)
(defconstant *CONST13* 13)
(defconstant *CONST14* 14)
(defconstant *CONST15* 15)
(defconstant *CONST16* 16)
(defconstant *CONST17* 17)
(defconstant *CONST18* 18)
(defconstant *CONST19* 19)
(defconstant *CONST20* 20)
(defconstant *CONST21* 21)
(defconstant *CONST22* 22)
(defconstant *CONST23* 23)
(defconstant *CONST24* 24)
(defconstant *CONST25* 25)
(defconstant *CONST26* 26)
(defconstant *CONST27* 27)
(defconstant *CONST28* 28)
(defconstant *CONST29* 29)
(defconstant *CONST30* 30)
(defconstant *CONST31* 31)
(defconstant *CONST32* 32)
(defconstant *CONST33* 33)
(defconstant *CONST34* 34)
(defconstant *CONST35* 35)
(defconstant *CONST36* 36)
(defconstant *CONST37* 37)
(defconstant *CONST38* 38)
(defconstant *CONST39* 39)
(defconstant *CONST40* 40)
(defconstant *CONST41* 41)
(defconstant *CONST42* 42)
(defconstant *CONST43* 43)
(defconstant *CONST45* 45)
(defconstant *CONST46* 46)
(defconstant *CONST47* 47)
(defconstant *CONST48* 48)
(defconstant *CONST49* 49)
(defconstant *CONST51* 51)
(defconstant *CONST52* 52)
(defconstant *CONST53* 53)
(defconstant *CONST54* 54)
(defconstant *CONST55* 55)
(defconstant *CONST56* 56)
(defconstant *CONST57* 57)
(defconstant *CONST58* 58)
(defconstant *CONST59* 59)
(defconstant *CONST60* 60)
(defconstant *CONST61* 61)
(defconstant *CONST62* 62)
(defconstant *CONST63* 63)
(defconstant *CONST64* 64)
(defconstant *CONST65* 65)

(make-package "HOGE")
(defconstant hoge::*CONST1* 1)
(defconstant hoge::*CONST2* 2)
(defconstant hoge::*CONST3* 3)
(defconstant hoge::*CONST4* 4)
(defconstant hoge::*CONST5* 5)
(defconstant hoge::*CONST6* 6)
(defconstant hoge::*CONST7* 7)
(defconstant hoge::*CONST8* 8)
(defconstant hoge::*CONST9* 9)
(defconstant hoge::*CONST10* 10)
(defconstant hoge::*CONST11* 11)
(defconstant hoge::*CONST12* 12)
(defconstant hoge::*CONST13* 13)
(defconstant hoge::*CONST14* 14)
(defconstant hoge::*CONST15* 15)
(defconstant hoge::*CONST16* 16)
(defconstant hoge::*CONST17* 17)
(defconstant hoge::*CONST18* 18)
(defconstant hoge::*CONST19* 19)
(defconstant hoge::*CONST20* 20)
(defconstant hoge::*CONST21* 21)
(defconstant hoge::*CONST22* 22)
(defconstant hoge::*CONST23* 23)
(defconstant hoge::*CONST24* 24)
(defconstant hoge::*CONST25* 25)
(defconstant hoge::*CONST26* 26)
(defconstant hoge::*CONST27* 27)
(defconstant hoge::*CONST28* 28)
(defconstant hoge::*CONST29* 29)
(defconstant hoge::*CONST30* 30)
(defconstant hoge::*CONST31* 31)
(defconstant hoge::*CONST32* 32)
(defconstant hoge::*CONST33* 33)
(defconstant hoge::*CONST34* 34)
(defconstant hoge::*CONST35* 35)
(defconstant hoge::*CONST36* 36)
(defconstant hoge::*CONST37* 37)
(defconstant hoge::*CONST38* 38)
(defconstant hoge::*CONST39* 39)
(defconstant hoge::*CONST40* 40)
(defconstant hoge::*CONST41* 41)
(defconstant hoge::*CONST42* 42)
(defconstant hoge::*CONST43* 43)
(defconstant hoge::*CONST45* 45)
(defconstant hoge::*CONST46* 46)
(defconstant hoge::*CONST47* 47)
(defconstant hoge::*CONST48* 48)
(defconstant hoge::*CONST49* 49)
(defconstant hoge::*CONST51* 51)
(defconstant hoge::*CONST52* 52)
(defconstant hoge::*CONST53* 53)
(defconstant hoge::*CONST54* 54)
(defconstant hoge::*CONST55* 55)
(defconstant hoge::*CONST56* 56)
(defconstant hoge::*CONST57* 57)
(defconstant hoge::*CONST58* 58)
(defconstant hoge::*CONST59* 59)
(defconstant hoge::*CONST60* 60)
(defconstant hoge::*CONST61* 61)
(defconstant hoge::*CONST62* 62)
(defconstant hoge::*CONST63* 63)
(defconstant hoge::*CONST64* 64)
(defconstant hoge::*CONST65* 65)

(make-package "FUGA")
(shadow '*CONST1* (find-package "FUGA"))
(defconstant fuga::*CONST1* 1)
(shadow '*CONST2* (find-package "FUGA"))
(defconstant fuga::*CONST2* 2)
(shadow '*CONST3* (find-package "FUGA"))
(defconstant fuga::*CONST3* 3)
(shadow '*CONST4* (find-package "FUGA"))
(defconstant fuga::*CONST4* 4)
(shadow '*CONST5* (find-package "FUGA"))
(defconstant fuga::*CONST5* 5)
(shadow '*CONST6* (find-package "FUGA"))
(defconstant fuga::*CONST6* 6)
(shadow '*CONST7* (find-package "FUGA"))
(defconstant fuga::*CONST7* 7)
(shadow '*CONST8* (find-package "FUGA"))
(defconstant fuga::*CONST8* 8)
(shadow '*CONST9* (find-package "FUGA"))
(defconstant fuga::*CONST9* 9)
(shadow '*CONST10* (find-package "FUGA"))
(defconstant fuga::*CONST10* 10)
(shadow '*CONST11* (find-package "FUGA"))
(defconstant fuga::*CONST11* 11)
(shadow '*CONST12* (find-package "FUGA"))
(defconstant fuga::*CONST12* 12)
(shadow '*CONST13* (find-package "FUGA"))
(defconstant fuga::*CONST13* 13)
(shadow '*CONST14* (find-package "FUGA"))
(defconstant fuga::*CONST14* 14)
(shadow '*CONST15* (find-package "FUGA"))
(defconstant fuga::*CONST15* 15)
(shadow '*CONST16* (find-package "FUGA"))
(defconstant fuga::*CONST16* 16)
(shadow '*CONST17* (find-package "FUGA"))
(defconstant fuga::*CONST17* 17)
(shadow '*CONST18* (find-package "FUGA"))
(defconstant fuga::*CONST18* 18)
(shadow '*CONST19* (find-package "FUGA"))
(defconstant fuga::*CONST19* 19)
(shadow '*CONST20* (find-package "FUGA"))
(defconstant fuga::*CONST20* 20)
(shadow '*CONST21* (find-package "FUGA"))
(defconstant fuga::*CONST21* 21)
(shadow '*CONST22* (find-package "FUGA"))
(defconstant fuga::*CONST22* 22)
(shadow '*CONST23* (find-package "FUGA"))
(defconstant fuga::*CONST23* 23)
(shadow '*CONST24* (find-package "FUGA"))
(defconstant fuga::*CONST24* 24)
(shadow '*CONST25* (find-package "FUGA"))
(defconstant fuga::*CONST25* 25)
(shadow '*CONST26* (find-package "FUGA"))
(defconstant fuga::*CONST26* 26)
(shadow '*CONST27* (find-package "FUGA"))
(defconstant fuga::*CONST27* 27)
(shadow '*CONST28* (find-package "FUGA"))
(defconstant fuga::*CONST28* 28)
(shadow '*CONST29* (find-package "FUGA"))
(defconstant fuga::*CONST29* 29)
(shadow '*CONST30* (find-package "FUGA"))
(defconstant fuga::*CONST30* 30)
(shadow '*CONST31* (find-package "FUGA"))
(defconstant fuga::*CONST31* 31)
(shadow '*CONST32* (find-package "FUGA"))
(defconstant fuga::*CONST32* 32)
(shadow '*CONST33* (find-package "FUGA"))
(defconstant fuga::*CONST33* 33)
(shadow '*CONST34* (find-package "FUGA"))
(defconstant fuga::*CONST34* 34)
(shadow '*CONST35* (find-package "FUGA"))
(defconstant fuga::*CONST35* 35)
(shadow '*CONST36* (find-package "FUGA"))
(defconstant fuga::*CONST36* 36)
(shadow '*CONST37* (find-package "FUGA"))
(defconstant fuga::*CONST37* 37)
(shadow '*CONST38* (find-package "FUGA"))
(defconstant fuga::*CONST38* 38)
(shadow '*CONST39* (find-package "FUGA"))
(defconstant fuga::*CONST39* 39)
(shadow '*CONST40* (find-package "FUGA"))
(defconstant fuga::*CONST40* 40)
(shadow '*CONST41* (find-package "FUGA"))
(defconstant fuga::*CONST41* 41)
(shadow '*CONST42* (find-package "FUGA"))
(defconstant fuga::*CONST42* 42)
(shadow '*CONST43* (find-package "FUGA"))
(defconstant fuga::*CONST43* 43)
(shadow '*CONST45* (find-package "FUGA"))
(defconstant fuga::*CONST45* 45)
(shadow '*CONST46* (find-package "FUGA"))
(defconstant fuga::*CONST46* 46)
(shadow '*CONST47* (find-package "FUGA"))
(defconstant fuga::*CONST47* 47)
(shadow '*CONST48* (find-package "FUGA"))
(defconstant fuga::*CONST48* 48)
(shadow '*CONST49* (find-package "FUGA"))
(defconstant fuga::*CONST49* 49)
(shadow '*CONST51* (find-package "FUGA"))
(defconstant fuga::*CONST51* 51)
(shadow '*CONST52* (find-package "FUGA"))
(defconstant fuga::*CONST52* 52)
(shadow '*CONST53* (find-package "FUGA"))
(defconstant fuga::*CONST53* 53)
(shadow '*CONST54* (find-package "FUGA"))
(defconstant fuga::*CONST54* 54)
(shadow '*CONST55* (find-package "FUGA"))
(defconstant fuga::*CONST55* 55)
(shadow '*CONST56* (find-package "FUGA"))
(defconstant fuga::*CONST56* 56)
(shadow '*CONST57* (find-package "FUGA"))
(defconstant fuga::*CONST57* 57)
(shadow '*CONST58* (find-package "FUGA"))
(defconstant fuga::*CONST58* 58)
(shadow '*CONST59* (find-package "FUGA"))
(defconstant fuga::*CONST59* 59)
(shadow '*CONST60* (find-package "FUGA"))
(defconstant fuga::*CONST60* 60)
(shadow '*CONST61* (find-package "FUGA"))
(defconstant fuga::*CONST61* 61)
(print "shadow fuga 62")
(shadow '*CONST62* (find-package "FUGA"))
(print "const fuga 62")
(defconstant fuga::*CONST62* 62)
(print "shadow fuga 63")
(shadow '*CONST63* (find-package "FUGA"))
(print "const fuga 63")
(defconstant fuga::*CONST63* 63)
(print "shadow fuga 64")
(shadow '*CONST64* (find-package "FUGA"))
(print "const fuga 64")
(defconstant fuga::*CONST64* 64)
(print "shadow fuga 65")
(shadow '*CONST65* (find-package "FUGA"))
(print "const fuga 65")
(defconstant fuga::*CONST65* 65)

(exit)