From 38b90775ff86c404a507fda46eda01dc9bb2adab Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sat, 26 May 2012 09:13:34 -0700 Subject: [PATCH] Use concatenate instead of format because format isn't available when compiling. --- src/code/fd-stream.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index 85aa0b8c3..5f194a010 100644 --- a/src/code/fd-stream.lisp +++ b/src/code/fd-stream.lisp @@ -1367,7 +1367,8 @@ (flet ((add-suffix (list suffix) (let ((list* nil)) (dolist (coding list) - (push (format nil "~A-~A" coding suffix) list*)) + (push (concatenate 'simple-string coding "-" suffix) + list*)) (nreverse list*)))) `((,target ,@list) ((,target :unix) ,@(add-suffix list "unix")) -- GitLab