---
Cheers,
Chris "ski" Kacoroski "When we try to pick out anything by itself
ยทยทยท@grace.rt.cs.boeing.com we find it connected to the entire universe"
John Muir
Code for symbols in package problem
SIS 1 > (defpackage "A" (:use "COMMON-LISP"))
SIS 2 > (in-package "A")
A 3 > (defun list-package-symbols (&optional (pack *package*))
"ski-06/08/93: Function that returns all the symbols in a package,
not symbols inherited from other packages"
(loop for x being each present-symbol in pack
collect x into p-list
finally (return p-list)))
LIST-PACKAGE-SYMBOLS
A 4 > (setf test 10)
TEST
A 5 > (list-package-symbols)
(LIST-PACKAGE-SYMBOLS P-LISP X PACK TEST)
A 6 > (unintern 'test)
T
A 7 > (list-package-symbols)
(LIST-PACKAGE-SYMBOLS P-LISP X PACK TEST)
A 8 > (unintern 'TEST)
T
A 9 > (list-package-symbols)
(LIST-PACKAGE-SYMBOLS P-LISP X PACK TEST)
A 10 > test
Error: the variable TEST is unbound
1 (continue) Try evaluating it again
2 Return a value to use
3 Return a value to set it to
4 (abort) return to level 0.
5 return to top loop level 0.
6 Destroy process.
A 11 : 1 > :a
A 12