[cl-store-cvs] CVS update: cl-store/default-backend.lisp

[Sean Ross]

Update of /project/cl-store/cvsroot/cl-store
In directory common-lisp.net:/tmp/cvs-serv9184

Modified Files:
	default-backend.lisp 
Log Message:

Date: Wed Nov 10 12:14:30 2004
Author: sross

Index: cl-store/default-backend.lisp
diff -u cl-store/default-backend.lisp:1.11 cl-store/default-backend.lisp:1.12
--- cl-store/default-backend.lisp:1.11	Wed Nov 10 11:43:16 2004
+++ cl-store/default-backend.lisp	Wed Nov 10 12:14:30 2004
@@ -507,7 +507,7 @@
            (let ((new-name (subseq name 21)))
              (when (not (string= new-name ""))
                (handler-case (store-object (read-from-string new-name) stream)
-                 (sb-ext:package-locked-error (c)
+                 (error (c)
                    (declare (ignore c))
                    (store-error "Unable to determine function name for ~A." obj))))))
           (t (store-error "Unable to determine function name for ~A." obj)))))