newlispfanclub.alh.net

In clisp, you can do something like this: (defun create-symbol (str) (intern (string-upcase str)) ) (defmacro create-functions (group-name) (let ((f1 (create-symbol (format nil "~a~a" group-name 1))) (f2 (create-symbol (format nil "~a~a" group-name 2))) ) `(progn (defun ,f1 (arg) (+ arg 1)) (defun ,...