4f41215153a8

Update to head
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sat, 11 Mar 2017 20:24:06 +0000
parents 05bcf3c72a27
children 0851848a9c65
branches/tags (none)
files examples/terrain.lisp src/low-level/include/BearLibTerminal.h

Changes

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)