[movitz-cvs] CVS update: movitz/losp/muerte/packages.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv7752

Modified Files:
	packages.lisp 
Log Message:
Use (string name) rather than name for the error when not finding a package.

Date: Sat Sep 25 17:36:16 2004
Author: ffjeld

Index: movitz/losp/muerte/packages.lisp
diff -u movitz/losp/muerte/packages.lisp:1.3 movitz/losp/muerte/packages.lisp:1.4
--- movitz/losp/muerte/packages.lisp:1.3	Tue Apr 13 16:21:09 2004
+++ movitz/losp/muerte/packages.lisp	Sat Sep 25 17:36:16 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Aug 30 15:19:43 2001
 ;;;;                
-;;;; $Id: packages.lisp,v 1.3 2004/04/13 14:21:09 ffjeld Exp $
+;;;; $Id: packages.lisp,v 1.4 2004/09/25 15:36:16 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -48,7 +48,7 @@
 
 (defun assert-package (name)
   (or (find-package name)
-      (error "There is no package named ~S." name)))
+      (error "There is no package named ~S." (string name))))
 
 (defun find-symbol-string (name start end key &optional (package *package*))
   (check-type name string)