X-Git-Url: http://git.kpe.io/?p=uffi.git;a=blobdiff_plain;f=src%2Fobjects.lisp;h=0e327f0269d4d457da27b457de85fc3657caa5b5;hp=42a5af355344ff179c385eb5fe40fb8ee0702ad7;hb=6b108d27ffc3f4e08f2529e71911ed02a5310a6d;hpb=79ae1e2eea28653ceee96460004c5381931c5af8

diff --git a/src/objects.lisp b/src/objects.lisp
index 42a5af3..0e327f0 100644
--- a/src/objects.lisp
+++ b/src/objects.lisp
@@ -286,5 +286,5 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated."
 ;;; macptrs" when a saved image is loaded.
 ;; This may possibly be needed for sbcl's SAVE-LISP-AND-DIE
 (defmacro def-pointer-var (name value &optional doc)
-  #-openmcl `(defvar ,name ,value ,doc)
+  #-openmcl `(defvar ,name ,value ,@(if doc (list doc)))
   #+openmcl `(ccl::defloadvar ,name ,value ,doc))