From f2beedb8e9db72c3933d3c66c68eebcab6816566 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 21 Mar 2021 16:53:42 -0700 Subject: fix docstrings in DEFINE-FUNCTION-PROPERTY-COMBINATOR Signed-off-by: Sean Whitton --- src/propspec.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/propspec.lisp') diff --git a/src/propspec.lisp b/src/propspec.lisp index 67e8c18..dec1c3e 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -269,7 +269,7 @@ expression." (multiple-value-bind (forms declarations docstring) (parse-body body :documentation t) `(defun ,name ,args - ,@docstring + ,@(and docstring `(,docstring)) ,@declarations (flet ((:retprop (&rest all &key args &allow-other-keys) (let ((psym (gensym ,(symbol-name name))) -- cgit v1.2.3