Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Object-serialization/Common-Lisp/object-serialization-1.lisp
+++ b/Task/Object-serialization/Common-Lisp/object-serialization-1.lisp
@ -0,0 +1,12 @@
+(defmacro with-serialization-to-file ((stream pathname) &body body)
+  `(with-open-file (,stream ,pathname
+                            :element-type '(unsigned-byte 8)
+                            :direction :output
+                            :if-exists :supersede)
+     ,@body))
+
+(defclass entity ()
+  ((name :initarg :name :initform "Some entity")))
+
+(defclass person (entity)
+  ((name :initarg :name :initform "The Nameless One")))