8 lines
254 B
Common Lisp
8 lines
254 B
Common Lisp
|
(defmacro prependf (s &rest strs)
|
||
|
|
"Prepend the given string variable with additional strings. The string variable is modified in-place."
|
||
|
|
`(setf ,s (concatenate 'string ,@strs ,s)))
|
||
|
|
|
||
|
|
(defvar *str* "foo")
|
||
|
|
(prependf *str* "bar")
|
||
|
|
(format T "~a~%" *str*)
|