registry.el (registry-db): Temporary fix old Emacsen compilation

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62baeb5..3a3a2a9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-03-11  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * registry.el (registry-db): Temporary fix old Emacsen compilation.
+
 2015-03-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * gnus-registry.el (gnus-registry-handle-action)

diff --git a/lisp/registry.el b/lisp/registry.el
index f26101f..ef076a5 100644 (file)
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -110,6 +110,7 @@
 (defvar registry-db-version 0.2
   "The current version of the registry format.")
 
+(eval (backquote
 (defclass registry-db (eieio-persistent)
   ((version :initarg :version
             :initform nil
@@ -121,7 +122,7 @@
             ;; value rather than an expression, so in order to get the value
             ;; of `most-positive-fixnum', we need to use an
             ;; expression that's not just a symbol.
-             :initform (symbol-value 'most-positive-fixnum)
+             :initform ,(symbol-value 'most-positive-fixnum)
              :type integer
              :custom integer
              :documentation "The maximum number of registry entries.")
@@ -146,6 +147,7 @@
    (data :initarg :data
          :type hash-table
          :documentation "The data hashtable.")))
+))
 
 (defmethod initialize-instance :BEFORE ((this registry-db) slots)
   "Check whether a registry object needs to be upgraded."