4f9d726d7ea6

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