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