Perwersja

japhy dnia 01 listopada 2006, 17:33:58 (Techblog ).

; SLIME 2006-09-28
CL-USER> (defvar *symbols*)
*SYMBOLS*
CL-USER> (setf *symbols* (list :foo :bar :baz :quux))
(:FOO :BAR :BAZ :QUUX)
CL-USER> `(defpackage foobar (:export :a :b :c ,@*symbols*))
(DEFPACKAGE FOOBAR (:EXPORT :A :B :C :FOO :BAR :BAZ :QUUX))
CL-USER> #.`(defpackage foobar (:export :a :b :c ,@*symbols*))
#<The FOOBAR package>
CL-USER> (do-external-symbols (sym *) (print sym))

FOOBAR:BAR 
FOOBAR:C 
FOOBAR:B 
FOOBAR:BAZ 
FOOBAR:A 
FOOBAR:FOO 
FOOBAR:QUUX 
NIL
CL-USER>

3 komentarze »