From bac6936921ca469872cea90c9e33f86eb5c8de12 Mon Sep 17 00:00:00 2001 From: azimut Date: Wed, 30 Oct 2024 20:00:28 -0300 Subject: [PATCH] setf for rocket-row --- src/rocketman.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/rocketman.lisp b/src/rocketman.lisp index 4ba88fb..21c45cf 100644 --- 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)))