malabar-mode
malabar-mode copied to clipboard
m0smith
get/set creation fails if field already exists
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.
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.
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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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")) #<buffer Video.java> 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)
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)