get/set creation fails if field already exists

[dstu]

I'm running Emacs with M-x version giving:
GNU Emacs 23.2.1 (x86_64-pc-linux-gnu, GTK+ Version 2.20.1) of 2010-05-16 on barber, modified by Debian

I'm using the cedet bundled with this version of Emacs.

Issuing C-c C-v C-g for an existing class field gives the message:

srecode-insert-getset: Must specify field for get/set. (parts may not be impl'd yet.)

If I create a new field this way, C-c C-v C-g behaves appropriately.

[dstu]

Further notes: this bad behavior exists when the point isn't on a field. C-c C-v C-g when on a field correctly uses that field. Specifying "all" (with C-u C-c C-v C-g) behaves appropriately with existing fields. Since "all" not being specified results in just handing off to srecord-insert-getset, I would guess that the bug is with the bundled SRecode or (less likely) malabar-mode's srecode-getset-java.srt.

[seda-zz]

Using Emacs 23.2 on linux and tried C-c C-v C-g on the field but getting this error:
(subword-capitalize 1)
(progn (insert string) (goto-char (point-min)) (subword-capitalize 1) (buffer-substring-no-properties (point-min) (point-max)))
(unwind-protect (progn (insert string) (goto-char ...) (subword-capitalize 1) (buffer-substring-no-properties ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ... ...) (and ... ...)))
(with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ...) (and ... ...)))
(let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ... ...)))
(with-temp-buffer (insert string) (goto-char (point-min)) (subword-capitalize 1) (buffer-substring-no-properties (point-min) (point-max)))
subword-capitalize-string("test")
srecode-template-inserter-variable([object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"] "test" "subword-capitalize-string")
apply(srecode-template-inserter-variable ([object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"] "test" "subword-capitalize-string"))
eieio-generic-call-primary-only(srecode-insert-variable-secondname-handler ([object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"] "test" "subword-capitalize-string"))
srecode-insert-variable-secondname-handler([object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"] "test" "subword-capitalize-string")
srecode-template-inserter-variable([object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"])
apply(srecode-template-inserter-variable ([object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"]))
eieio-generic-call-primary-only(srecode-insert-method ([object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"]))
srecode-insert-method([object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"])
srecode-insert-code-stream(([object srecode-template-inserter-blank "BLANK" nil begin] "public " [object srecode-template-inserter-variable "TYPE" nil] " get" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "() {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " return " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "public void set" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "(" [object srecode-template-inserter-variable "TYPE" nil] " " [object srecode-template-inserter-variable "NAME" nil] ") {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " this." [object srecode-template-inserter-variable "NAME" nil] " = " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "" [object srecode-template-inserter-blank "BLANK" nil end]) [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"])
srecode-template([object srecode-template "getset-in-class" "declaration" (:tag :indent :blank) ([object srecode-template-inserter-blank "BLANK" nil begin] "public " [object srecode-template-inserter-variable "TYPE" nil] " get" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "() {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " return " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "public void set" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "(" [object srecode-template-inserter-variable "TYPE" nil] " " [object srecode-template-inserter-variable "NAME" nil] ") {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " this." [object srecode-template-inserter-variable "NAME" nil] " = " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "" [object srecode-template-inserter-blank "BLANK" nil end]) nil nil [object srecode-template-table "srecode-getset-java.srt" "/root/.emacs.d/site-lisp/malabar-1.4-SNAPSHOT/lisp/srecode/srecode-getset-java.srt" 1306 (19490 3202) java-mode getset 30 (#0 [object srecode-template "getset-field" "declaration" ... ... nil nil #1]) #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration:getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #1] "declaration:getset-in-class" #0)) #s(hash-table size 10 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration" #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #1] "getset-in-class" #0)))) nil]] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"])
apply(srecode-template ([object srecode-template "getset-in-class" "declaration" (:tag :indent :blank) ([object srecode-template-inserter-blank "BLANK" nil begin] "public " [object srecode-template-inserter-variable "TYPE" nil] " get" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "() {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " return " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "public void set" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "(" [object srecode-template-inserter-variable "TYPE" nil] " " [object srecode-template-inserter-variable "NAME" nil] ") {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " this." [object srecode-template-inserter-variable "NAME" nil] " = " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "" [object srecode-template-inserter-blank "BLANK" nil end]) nil nil [object srecode-template-table "srecode-getset-java.srt" "/root/.emacs.d/site-lisp/malabar-1.4-SNAPSHOT/lisp/srecode/srecode-getset-java.srt" 1306 ... java-mode getset 30 ... #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration:getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #2] "declaration:getset-in-class" #1)) #s(hash-table size 10 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration" #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #2] "getset-in-class" #1)))) nil]] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"]))
eieio-generic-call-primary-only(srecode-insert-method ([object srecode-template "getset-in-class" "declaration" (:tag :indent :blank) ([object srecode-template-inserter-blank "BLANK" nil begin] "public " [object srecode-template-inserter-variable "TYPE" nil] " get" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "() {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " return " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "public void set" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "(" [object srecode-template-inserter-variable "TYPE" nil] " " [object srecode-template-inserter-variable "NAME" nil] ") {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " this." [object srecode-template-inserter-variable "NAME" nil] " = " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "" [object srecode-template-inserter-blank "BLANK" nil end]) nil nil [object srecode-template-table "srecode-getset-java.srt" "/root/.emacs.d/site-lisp/malabar-1.4-SNAPSHOT/lisp/srecode/srecode-getset-java.srt" 1306 ... java-mode getset 30 ... #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration:getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #2] "declaration:getset-in-class" #1)) #s(hash-table size 10 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration" #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #2] "getset-in-class" #1)))) nil]] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"]))
srecode-insert-method([object srecode-template "getset-in-class" "declaration" (:tag :indent :blank) ([object srecode-template-inserter-blank "BLANK" nil begin] "public " [object srecode-template-inserter-variable "TYPE" nil] " get" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "() {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " return " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "public void set" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "(" [object srecode-template-inserter-variable "TYPE" nil] " " [object srecode-template-inserter-variable "NAME" nil] ") {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " this." [object srecode-template-inserter-variable "NAME" nil] " = " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "" [object srecode-template-inserter-blank "BLANK" nil end]) nil nil [object srecode-template-table "srecode-getset-java.srt" "/root/.emacs.d/site-lisp/malabar-1.4-SNAPSHOT/lisp/srecode/srecode-getset-java.srt" 1306 (19490 3202) java-mode getset 30 (#0 [object srecode-template "getset-field" "declaration" ... ... nil nil #1]) #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration:getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #1] "declaration:getset-in-class" #0)) #s(hash-table size 10 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration" #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #1] "getset-in-class" #0)))) nil]] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"])
srecode--insert-into-buffer([object srecode-template "getset-in-class" "declaration" (:tag :indent :blank) ([object srecode-template-inserter-blank "BLANK" nil begin] "public " [object srecode-template-inserter-variable "TYPE" nil] " get" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "() {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " return " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "public void set" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "(" [object srecode-template-inserter-variable "TYPE" nil] " " [object srecode-template-inserter-variable "NAME" nil] ") {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " this." [object srecode-template-inserter-variable "NAME" nil] " = " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "" [object srecode-template-inserter-blank "BLANK" nil end]) nil nil [object srecode-template-table "srecode-getset-java.srt" "/root/.emacs.d/site-lisp/malabar-1.4-SNAPSHOT/lisp/srecode/srecode-getset-java.srt" 1306 (19490 3202) java-mode getset 30 (#0 [object srecode-template "getset-field" "declaration" ... ... nil nil #1]) #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration:getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #1] "declaration:getset-in-class" #0)) #s(hash-table size 10 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration" #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #1] "getset-in-class" #0)))) nil]] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"])
srecode-insert-fcn([object srecode-template "getset-in-class" "declaration" (:tag :indent :blank) ([object srecode-template-inserter-blank "BLANK" nil begin] "public " [object srecode-template-inserter-variable "TYPE" nil] " get" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "() {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " return " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "public void set" [object srecode-template-inserter-variable "NAME" "subword-capitalize-string"] "(" [object srecode-template-inserter-variable "TYPE" nil] " " [object srecode-template-inserter-variable "NAME" nil] ") {" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] " this." [object srecode-template-inserter-variable "NAME" nil] " = " [object srecode-template-inserter-variable "NAME" nil] ";" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "}" [object srecode-template-inserter-newline "INDENT" nil srecode/insert] "" [object srecode-template-inserter-blank "BLANK" nil end]) nil nil [object srecode-template-table "srecode-getset-java.srt" "/root/.emacs.d/site-lisp/malabar-1.4-SNAPSHOT/lisp/srecode/srecode-getset-java.srt" 1306 (19490 3202) java-mode getset 30 (#0 [object srecode-template "getset-field" "declaration" ... ... nil nil #1]) #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration:getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #1] "declaration:getset-in-class" #0)) #s(hash-table size 10 test equal rehash-size 1.5 rehash-threshold 0.8 data ("declaration" #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("getset-field" [object srecode-template "getset-field" "declaration" ... ... nil nil #1] "getset-in-class" #0)))) nil]] [object srecode-dictionary malabar-mode #s(hash-table size 20 test equal rehash-size 1.5 rehash-threshold 0.8 data ("TAG" [object srecode-semantic-tag "test" ...] "NAME" "test" "TYPE" "String" "INDENT" t "BLANK" t "GROUPNAME" "test Accessors" "NICENAME" "est")) # nil "Unspecified. Assume Video.java"])
srecode-insert-getset()
(if (not all) (srecode-insert-getset) (let* (... ... ...) (dolist ... ...)))
malabar-insert-getset(nil)
call-interactively(malabar-insert-getset nil nil)

[seda-zz]

And when i do C-u C-c C-v C-g to generate for all, I get this error...

(void-function subword-capitalize)
(subword-capitalize 1)
(progn (insert string) (goto-char (point-min)) (subword-capitalize 1) (buffer-substring-no-properties (point-min) (point-max)))
(unwind-protect (progn (insert string) (goto-char ...) (subword-capitalize 1) (buffer-substring-no-properties ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ... ...) (and ... ...)))
(with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ...) (and ... ...)))
(let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ... ...)))
(with-temp-buffer (insert string) (goto-char (point-min)) (subword-capitalize 1) (buffer-substring-no-properties (point-min) (point-max)))
subword-capitalize-string("test")
(let* ((cap-name ...) (setter-name ...) (getter-name ...)) (unless (or ... ...) (srecode-insert-getset class field)))
(progn (let* (... ... ...) (unless ... ...)))
(if (eq (quote variable) (semantic-tag-class field)) (progn (let* ... ...)))
(when (eq (quote variable) (semantic-tag-class field)) (let* (... ... ...) (unless ... ...)))
(while --cl-dolist-temp-- (setq field (car --cl-dolist-temp--)) (when (eq ... ...) (let* ... ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- members) field) (while --cl-dolist-temp-- (setq field ...) (when ... ...) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... field) (while --cl-dolist-temp-- ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... field) (while --cl-dolist-temp-- ... ... ...) nil))
(dolist (field members) (when (eq ... ...) (let* ... ...)))
(let* ((class ...) (members ...) (member-names ...)) (dolist (field members) (when ... ...)))
(if (not all) (srecode-insert-getset) (let* (... ... ...) (dolist ... ...)))
malabar-insert-getset((4))
call-interactively(malabar-insert-getset nil nil)

[seda-zz]

Above errors occur using the latest malabar code from master