From d854ea3fe5f730c6fdc5c83e89685bc72a8127de Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 23 Feb 2021 13:33:11 -0700 Subject: make STRING->FILENAME accept numbers Signed-off-by: Sean Whitton --- src/util.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/util.lisp') 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)) -- cgit v1.2.3