[crypticl-cvs] CVS update: crypticl/src/common.lisp

[Taale Skogan]

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 ()