# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1508762850 14400
# Node ID 4f9d726d7ea6fc784adec1fd6a648ad00a009cba
# Parent  e0811ef78cce9d80aae90f43a77b33bac6e0d421
put-ext

diff -r e0811ef78cce -r 4f9d726d7ea6 src/high-level/bearlibterminal.lisp
--- a/src/high-level/bearlibterminal.lisp	Sat Oct 14 13:03:30 2017 -0400
+++ b/src/high-level/bearlibterminal.lisp	Mon Oct 23 08:47:30 2017 -0400
@@ -502,12 +502,14 @@
     (when code (code-point-to-character code))))
 
 
-(defun (setf cell-code) (code-point x y)
-  (blt/ll:terminal-put x y code-point)
+(defun (setf cell-code) (code-point x y &optional (dx 0) (dy 0))
+  (blt/ll:terminal-put-ext x y dx dy code-point (cffi:null-pointer))
   code-point)
 
-(defun (setf cell-char) (character x y)
-  (blt/ll:terminal-put x y (character-to-code-point character))
+(defun (setf cell-char) (character x y &optional (dx 0) (dy 0))
+  (blt/ll:terminal-put-ext x y dx dy
+                           (character-to-code-point character)
+                           (cffi:null-pointer))
   character)