From b03d6265cd9427e11c5bfd4a56822b4475c8e8cd Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 8 May 2022 10:33:49 -0400 Subject: [PATCH] * lisp/emacs-lisp/oclosure.el (oclosure-define): Fix empty case --- lisp/emacs-lisp/oclosure.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/oclosure.el b/lisp/emacs-lisp/oclosure.el index cb8c59b05a2..9775e8cc656 100644 --- a/lisp/emacs-lisp/oclosure.el +++ b/lisp/emacs-lisp/oclosure.el @@ -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) -- 2.39.2