From b7043b9eef8ba63161593f629e5396fce06123a0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Wed, 9 Jul 2025 17:01:16 -0300 Subject: Fix type initialization --- cursed.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'cursed.lisp') 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)))) -- cgit v1.2.3