diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-07-09 17:01:16 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-07-09 17:01:16 -0300 |
| commit | b7043b9eef8ba63161593f629e5396fce06123a0 (patch) | |
| tree | 61a7c4ca2a6b47ca209ae00f825fa76f25bbd1cc | |
| parent | 31fa68324c6af5719d8901acd58c67847e915921 (diff) | |
| download | cursed-b7043b9eef8ba63161593f629e5396fce06123a0.tar.gz cursed-b7043b9eef8ba63161593f629e5396fce06123a0.zip | |
| -rw-r--r-- | cursed.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cursed.lisp b/cursed.lisp index b3fedd7..4afdb75 100644 --- a/cursed.lisp +++ b/cursed.lisp @@ -1,8 +1,8 @@ (in-package #:cursed) (defclass text () - ((data :type 'simple-string :initarg :data :reader data :initform nil) - (index :type '(unsigned-byte 44) :initarg :index :accessor index :initform 0))) + ((data :type simple-string :initarg :data :reader data :initform "") + (index :type (unsigned-byte 44) :initarg :index :accessor index :initform 0))) (defun has-data? (cursor) (< (index cursor) (length (data cursor)))) |