--- 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)
--- 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)