[cl-store-cvs] CVS update: cl-store/default-backend.lisp - cl-store-cvs@common-lisp.net - mailman3.common-lisp.net

10 Nov 2004

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

    