strcat-fast

master
Avril 4 years ago
parent 7282faabfa
commit bbcb4d7c83
Signed by: flanchan
GPG Key ID: 284488987C31F630

@ -107,6 +107,11 @@
(t (write-to-string x)))) (t (write-to-string x))))
str)))) str))))
(defmacro strcat-fast (&rest strings)
"Concat all strings, they need to be strings. Use `strcat' instead unless you can guarantee you won't violate that."
`(concatenate 'string
,@strings))
(defmacro until (stmt) (defmacro until (stmt)
"Repeat stmt until its return is not NIL, then return that value." "Repeat stmt until its return is not NIL, then return that value."
`(let ((ret nil)) `(let ((ret nil))

Loading…
Cancel
Save