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