pkg bbb2609103 40/76: Recognize vectors as obarrays

[Gerd Moellmann]

branch: pkg
commit bbb2609103a7724bdc9940921503cfc2fbeeec7b
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    Recognize vectors as obarrays
    
    * lisp/obarray.el (obarray-make): Ignore parameter.
    (obarray-size): Ignore parameter.
    (obarrayp): Accept vectors.
---
 lisp/obarray.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/obarray.el b/lisp/obarray.el
index 243ab39a77..91cf6805b3 100644
--- a/lisp/obarray.el
+++ b/lisp/obarray.el
@@ -30,17 +30,18 @@
 (defconst obarray-default-size 59
   "The value 59 is an arbitrary prime number that gives a good hash.")
 
-(defun obarray-make (&optional size)
+(defun obarray-make (&optional _size)
   "Return a new obarray of size SIZE or `obarray-default-size'."
   (make-package "obarray"))
 
-(defun obarray-size (ob)
+(defun obarray-size (_ob)
   "Return the number of slots of obarray OB."
   obarray-default-size)
 
 (defun obarrayp (object)
   "Return t if OBJECT is an obarray."
-  (packagep object))
+  (or (packagep object)
+      (vectorp object)))
 
 ;; Don’t use obarray as a variable name to avoid shadowing.
 (defun obarray-get (ob name)