libera/#commonlisp - IRC Chatlog

17:34:33 jjnkn how to correctly generate defun with a computed name in a macro? i'm getting a function named |name| instead of just name, and don't understand why

17:35:07 jjnkn for example, generating a function with a name of 2 symbols joined by -

17:35:38 jjnkn i'm computing the name like this: (intern (format nil "~(~a~)-~(~a~)" sym1 sym2))

17:36:52 bike by default symbols are all upcased

17:37:12 bike like if you write (defun foo ...), the symbol will have an actual name of FOO. you can try it, do (symbol-name 'defun). you'll get "DEFUN"

17:38:00 bike so stick in some string-upcases and it'll probably be fine

17:38:50 jjnkn oh, that's right

17:39:00 gilberth Why not take the SYMBOL-NAME of sym1 and sym2 and be set?

17:39:02 jjnkn and i was doing the opposite - converting to lowercase

17:39:21 edgar-rft jjnkn: you need (format nil "~:@(~a~)-~:@(~a~)" 'a 'b) because the default readtable-case is :UPOCASE

17:39:38 edgar-rft * :UPCASE of course

17:40:02 gilberth ACTION wants :UFOCASE.

17:40:38 edgar-rft :UPOCASE is for people with a LIFP