* lisp/emacs-lisp/oclosure.el (oclosure-define): Fix empty case

This commit is contained in:
Stefan Monnier 2022-05-08 10:33:49 -04:00
parent 7546179a01
commit b03d6265cd

View file

@ -223,7 +223,7 @@ list of slot properties. The currently known properties are the following:
`:mutable': A non-nil value mean the slot can be mutated.
`:type': Specifies the type of the values expected to appear in the slot."
(declare (doc-string 2) (indent 1))
(unless (stringp docstring)
(unless (or (stringp docstring) (null docstring))
(push docstring slots)
(setq docstring nil))
(let* ((options (when (consp name)