Guard against struct not getting set in setter macro.

diff --git a/dbgr/common/helper.el b/dbgr/common/helper.el
index 5f70f5aadcef05e5e27839d1b3a1897479a7594b..bc917e418f607cc642c8331434fcf60089e12ab6 100644 (file)
--- a/dbgr/common/helper.el
+++ b/dbgr/common/helper.el
@@ -59,8 +59,9 @@ gives:
   `(defun ,(intern (concat variable-name "-" field "=")) (value)
      ;; FIXME: figure out how to add docstring
      ;; ,(concat "Sets field" ,field " of " ,variable-name " to VALUE")
-     (setf (,(intern (concat variable-name "-" field))
-           ,(intern variable-name)) value)
+     (if ,(intern variable-name)
+        (setf (,(intern (concat variable-name "-" field))
+               ,(intern variable-name)) value))
     ))
 
 ;; (defun dbgr-struct-field (var-sym field-sym)