registry.el: Don't use <class> as a variable

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e6f112..0c9d9ce 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-01-08  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * registry.el: Don't use <class> as a variable.
+

 2014-12-29  Paul Eggert  <eggert@cs.ucla.edu>
 
        system-name's returned value can vary
 2014-12-29  Paul Eggert  <eggert@cs.ucla.edu>
 
        system-name's returned value can vary

diff --git a/lisp/registry.el b/lisp/registry.el
index 45bfa07..bafb5c8 100644 (file)
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -142,7 +142,7 @@
          :type hash-table
          :documentation "The data hashtable.")))
 ;; Do this separately, since defclass doesn't allow expressions in :initform.
          :type hash-table
          :documentation "The data hashtable.")))
 ;; Do this separately, since defclass doesn't allow expressions in :initform.

-(oset-default registry-db max-size most-positive-fixnum)
+(oset-default 'registry-db max-size most-positive-fixnum)

 
 (defmethod initialize-instance :BEFORE ((this registry-db) slots)
   "Check whether a registry object needs to be upgraded."
 
 (defmethod initialize-instance :BEFORE ((this registry-db) slots)
   "Check whether a registry object needs to be upgraded."