Data commit

Task/Classes/EchoLisp/classes-1.l

@@ -0,0 +1,11 @@
+(lib 'gloops) ; load oo library
+
+(define-class Person null (name (age :initform 66)))
+(define-method tostring (Person) (lambda (p)  ( format "🚶 %a " p.name)))
+(define-method mailto (Person Person) (lambda( p o) (printf "From %a to️  %a : ..." p o)))
+
+;; define a sub-class of Person with same methods
+(define-class Writer (Person)  (books))
+(define-method tostring (Writer) (lambda (w)( format "🎩 %a" w.name)))
+(define-method mailto (Person Writer)
+	(lambda (p w) (printf " From %a (age %d). Dear writer of %a ..." p p.age  w.books )))

Task/Classes/EchoLisp/classes-2.l

@@ -0,0 +1,16 @@
+;; instantiate
+(define simone     (make-instance Person  :name  'simone :age 42)) ;; slots values by name
+(define antoinette (make-instance Person :name 'antoinette :age 37))
+(define albert     (Person "albert" 33)) ;; quick way : slots values in order
+(define simon (make-instance Writer :name "simon"   :books '(my-life my-bike)))
+
+
+(mailto simone simon) ;; method Person-Writer
+(mailto simone antoinette) ;; method Person-Person
+(mailto simon albert) ;; no method Writer-Person : call 'super' Person-Person
+(mailto simon simon) ;; no mehod Writer-Writer : call 'super' Person-Writer
+   →
+   From 🚶 simone (age 42). Dear writer of (my-life my-bike) ...
+   From 🚶 simone to️ 🚶 antoinette : ...
+   From 🎩 simon to️ 🚶 albert : ...
+   From 🎩 simon (age 66). Dear writer of (my-life my-bike) ...