Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Loading…

get/set creation fails if field already exists #34

Open
dstu opened this Issue · 4 comments

2 participants

@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

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

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

Above errors occur using the latest malabar code from master

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.