setf for rocket-row

azimut · Oct 30, 2024 · bac6936 · bac6936
1 parent a883e02
commit bac6936
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/rocketman.lisp b/src/rocketman.lisp
@@ -78,6 +78,9 @@
 (defun rocket-row ()
   (slot-value *rocket* 'rocketman::row))
 
+(defmethod (setf rocket-row) (new-value)
+  (rocketman:set-row *rocket* (max 0 new-value)))
+
 (defun rocket-load-file (file)
   (rocketman:load-file *rocket* (truename file)))