# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1489263846 0
# Node ID 4f41215153a8da32f58d5f0d674a45546755c0bf
# Parent  05bcf3c72a2715d36efc1ba8362c207a0b0ee7cb
Update to head

diff -r 05bcf3c72a27 -r 4f41215153a8 examples/terrain.lisp
--- a/examples/terrain.lisp	Mon Mar 06 11:47:47 2017 +0000
+++ b/examples/terrain.lisp	Sat Mar 11 20:24:06 2017 +0000
@@ -1,9 +1,9 @@
-(in-package :cl-user)
-
 (ql:quickload '(:cl-blt :losh :iterate))
 
-(use-package :losh)
-(use-package :iterate)
+(defpackage :cl-blt.examples.terrain
+  (:use :cl :losh :iterate))
+
+(in-package :cl-blt.examples.terrain)
 
 ;;;; Heightmap ----------------------------------------------------------------
 (defconstant +world-exponent+ 9)
diff -r 05bcf3c72a27 -r 4f41215153a8 src/low-level/include/BearLibTerminal.h
--- a/src/low-level/include/BearLibTerminal.h	Mon Mar 06 11:47:47 2017 +0000
+++ b/src/low-level/include/BearLibTerminal.h	Sat Mar 11 20:24:06 2017 +0000
@@ -345,7 +345,7 @@
 	else if (!buffer)
 		buffer = (char*)malloc(buffer_size);
 
-	while (true)
+	while (1)
 	{
 		buffer[buffer_size-1] = '\0';
 		rc = vsnprintf(buffer, buffer_size, s, args);
@@ -377,7 +377,7 @@
 	else if (!buffer)
 		buffer = (wchar_t*)malloc(buffer_size * sizeof(wchar_t));
 
-	while (true)
+	while (1)
 	{
 		buffer[buffer_size-1] = L'\0';
 #if defined(_WIN32)