From 2e0110e9e99034f49a59d68af509ae3015184b7a Mon Sep 17 00:00:00 2001
From: screwlisp <screwtape@sdf.org>
Date: Thu, 2 Jul 2026 23:19:05 +1200
Subject: just use package inferred.

---
 class.lisp | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 class.lisp

(limited to 'class.lisp')

diff --git a/class.lisp b/class.lisp
new file mode 100644
index 0000000..ba68fcc
--- /dev/null
+++ b/class.lisp
@@ -0,0 +1,27 @@
+(uiop:define-package
+    :simple-text-clim-frame/class
+    (:export #:my-class #:my-display)
+  (:import-from :asdf))
+
+(in-package :simple-text-clim-frame/class)
+
+(defclass my-class ()
+  ((text-slot
+    :initform #.(format
+		 nil
+		 "~{~a~^~%~}"
+		 (with-open-file
+		     (in (merge-pathnames
+			  #P"some.text"
+			  (asdf:system-source-directory
+			   "simple-text-clim-frame")))
+		   (loop for line = (read-line in nil nil)
+			 while line
+			 collect line))))))
+
+(defmethod my-display ((obj my-class) stream)
+  (with-slots
+	(text-slot)
+      obj
+    (princ text-slot stream)))
+  
-- 
cgit v1.2.3