diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 13:33:11 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 13:33:27 -0700 |
| commit | d854ea3fe5f730c6fdc5c83e89685bc72a8127de (patch) | |
| tree | 6106caec9086555e810c47c460cd0514d2699826 /src/util.lisp | |
| parent | 441b281f5b68ccef67226ec731faf34c75014ce1 (diff) | |
| download | consfigurator-d854ea3fe5f730c6fdc5c83e89685bc72a8127de.tar.gz | |
make STRING->FILENAME accept numbers
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/util.lisp')
| -rw-r--r-- | src/util.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/util.lisp b/src/util.lisp index 4e93ea0..9c6c4ec 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -72,7 +72,8 @@ (defun string->filename (s) (apply #'concatenate 'string - (loop for c across s + (loop for c + across (etypecase s (string s) (number (write-to-string s))) if (or (char= c #\.) (alpha-char-p c) (digit-char-p c)) |