change %render-line to lem-if:render-line

lem-project · Oct 1, 2023 · dc79636 · dc79636
1 parent 04966e7
commit dc79636
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/frontends/ncurses/text-buffer-impl.lisp b/frontends/ncurses/text-buffer-impl.lisp
@@ -87,7 +87,7 @@
 (defmethod draw-object ((object lem-core/display-3::image-object) x y window)
   (values))
 
-(defmethod lem-core/display-3::%render-line ((implementation lem-ncurses::ncurses) window x y objects height)
+(defmethod lem-if:render-line ((implementation lem-ncurses::ncurses) window x y objects height)
   (let ((view (lem::window-view window)))
     (charms/ll:wmove (lem-ncurses::ncurses-view-scrwin view) y x)
     (charms/ll:wclrtoeol (lem-ncurses::ncurses-view-scrwin view))

diff --git a/frontends/sdl2/text-buffer-impl.lisp b/frontends/sdl2/text-buffer-impl.lisp
@@ -221,7 +221,7 @@
     (lem-sdl2::set-render-color lem-sdl2::*display* (lem-sdl2::display-background-color lem-sdl2::*display*))
     (sdl2:render-fill-rect (lem-sdl2::current-renderer) rect)))
 
-(defmethod lem-core/display-3::%render-line ((implementation lem-sdl2::sdl2) window x y objects height)
+(defmethod lem-if:render-line ((implementation lem-sdl2::sdl2) window x y objects height)
   (clear-to-end-of-line window 0 y height)
   (redraw-physical-line window x y objects height))
 

diff --git a/src/display-3.lisp b/src/display-3.lisp
@@ -295,7 +295,7 @@
                    :finally (return (nreverse physical-line-objects)))))
 
 (defun render-line (window x y objects height)
-  (%render-line (lem-core:implementation) window x y objects height))
+  (lem-if:render-line (lem-core:implementation) window x y objects height))
 
 (defun validate-cache-p (window y height objects)
   (loop :for (cache-y cache-height cache-objects) :in (drawing-cache window)