Volkan YAZICI <[EMAIL PROTECTED]> writes: > Test için (generate-class-getter-setter 'private 'public) fonksiyonunu > çağırabilirsiniz. Bundan sonra size kalan iş, bu fonksiyonu bir > kısayol tuşuna atamak. Ama bunun çözümünü bi' biskrem için bile > yapamam.
M-: (generate-class-getter-setter 'private 'public) şeklinde denediğimde çıkan sonuçlar: Debugger entered--Lisp error: (void-function loop) (loop for pos = (search-forward-regexp regexp nil t) while pos collect (let (... ... ...) (list modifier type name))) (save-excursion (goto-char (point-min)) (loop for pos = (search-forward-regexp regexp nil t) while pos collect (let ... ...))) (let ((regexp ...)) (save-excursion (goto-char ...) (loop for pos = ... while pos collect ...))) extract-class-variables(private public) apply(extract-class-variables (private public)) (mapconcat (lambda (var) (apply ... ...)) (apply (quote extract-class-variables) modifiers) "\n") (insert (mapconcat (lambda ... ...) (apply ... modifiers) "\n")) generate-class-getter-setter(private public) eval((generate-class-getter-setter (quote private) (quote public))) eval-expression((generate-class-getter-setter (quote private) (quote public)) nil) call-interactively(eval-expression) -- ghost in the shell Cafer 'cfb' Şimşek http://cafer.org _______________________________________________ cs-lisp mailing list cs-lisp@cs.bilgi.edu.tr http://church.cs.bilgi.edu.tr/lcg http://cs.bilgi.edu.tr/mailman/listinfo/cs-lisp