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)