Update of /project/crypticl/cvsroot/crypticl/src In directory common-lisp.net:/tmp/cvs-serv1773

Modified Files: common.lisp Log Message: Make print-external-symbols work from toplevel in any package as intended.

Date: Sat Oct 1 18:34:46 2005 Author: tskogan

Index: crypticl/src/common.lisp diff -u crypticl/src/common.lisp:1.3 crypticl/src/common.lisp:1.4 --- crypticl/src/common.lisp:1.3 Thu Nov 25 22:56:52 2004 +++ crypticl/src/common.lisp Sat Oct 1 18:34:44 2005 @@ -13,7 +13,7 @@ (in-package crypticl)

(defun print-external-symbols () - (do-external-symbols (symbl *package* nil) + (do-external-symbols (symbl 'crypticl nil) (print symbl)))

(defclass Crypto ()