use chars in blit code

stylewarning · Mar 9, 2013 · 08f4362 · 08f4362
1 parent f57bbb4
commit 08f4362
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/blit.lisp b/blit.lisp
@@ -138,14 +138,14 @@
   (let* ((contents (parens-box-contents box))
 	 (h (height contents)))
     (if (= h 1)
-	(blit canvas (glue "(" contents ")") x y)
+	(blit canvas (glue #\( contents #\)) x y)
 	(progn
 	  (blit canvas contents (+ x 2) y)
-	  (blit canvas "/"  x y)
-	  (blit canvas "\\" (+ x (width contents) 3) y)
-	  (loop :for i :from 1 :to (1- h)
+	  (blit canvas #\/  x y)
+	  (blit canvas #\\ (+ x (width contents) 3) y)
+	  (loop :for i :from 1 :below h
 		:do (progn
-		      (blit canvas "|" x (+ y i))
-		      (blit canvas "|" (+ x (width contents) 3) (+ y i))))
-	  (blit canvas "\\" x (+ y (- h 1)))
-	  (blit canvas "/"  (+ x (width contents) 3) (+ y (- h 1)))))))
+		      (blit canvas #\| x (+ y i))
+		      (blit canvas #\| (+ x (width contents) 3) (+ y i))))
+	  (blit canvas #\\ x (+ y (- h 1)))
+	  (blit canvas #\/  (+ x (width contents) 3) (+ y (- h 1)))))))