Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (9 sloc) 272 Bytes
(in-package #:utils-frahm)
(defun symb (&rest args)
"Creates a new interned symbol by concatenating the string
representations of ARGS."
(intern (apply #'mkstr args)))
(defun symbs/n (prefix from to)
(loop
for i from from to to
collect (symb prefix i)))