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

20:08:19 jmercouris Why does uiop accept arbitrary keywords and not complain?

20:08:31 jmercouris I have to say, I was expecting at least some error

20:09:00 jmercouris for example: (uiop:launch-program (list "ls") :oputput :interactive)

20:09:08 jmercouris "oputput" is not a keyword arg for launch-program

20:09:30 jmercouris anyways, that's the end of my rant

20:09:40 jmercouris a heads up for anyone who hasn't yet encountered this

20:34:41 bike jmercouris: launch-program specifically has &allow-other-keys, probably because different implementations might have their own keywords

20:47:16 jmercouris bike: aha, that makes sense

21:42:41 _death maybe it would've been preferable for it not to have &allow-other-keys, so that someone who wants to pass implementation-specific keys would have to specify :allow-other-keys t

21:49:10 _death it also passes :allow-other-keys t to the implementation's run-program, which is why it doesn't signal an error