Use packages instead of obarrays in obarray.el

diff --git a/lisp/obarray.el b/lisp/obarray.el
index dd62de01a8c84c4f6cc95d1126ea03ba747926b6..243ab39a778054eef6298f1e93d84a433036ea5c 100644 (file)
--- a/lisp/obarray.el
+++ b/lisp/obarray.el
@@ -32,19 +32,15 @@
 
 (defun obarray-make (&optional size)
   "Return a new obarray of size SIZE or `obarray-default-size'."
-  (let ((size (or size obarray-default-size)))
-    (if (< 0 size)
-        (make-vector size 0)
-      (signal 'wrong-type-argument '(size 0)))))
+  (make-package "obarray"))
 
 (defun obarray-size (ob)
   "Return the number of slots of obarray OB."
-  (length ob))
+  obarray-default-size)
 
 (defun obarrayp (object)
   "Return t if OBJECT is an obarray."
-  (and (vectorp object)
-       (< 0 (length object))))
+  (packagep object))
 
 ;; Don’t use obarray as a variable name to avoid shadowing.
 (defun obarray-get (ob name)
@@ -67,4 +63,5 @@ Return t on success, nil otherwise."
   (mapatoms fn ob))
 
 (provide 'obarray)
+
 ;;; obarray.el ends here