Data commit

Task/Break-OO-privacy/PicoLisp/break-oo-privacy-1.l

@@ -0,0 +1,12 @@
+(class +Example)
+# "_name"
+
+(dm T (Name)
+   (=: "_name" Name) )
+
+(dm string> ()
+   (pack "Hello, I am " (: "_name")) )
+
+(====)  # Close transient scope
+
+(setq Foo (new '(+Example) "Eric"))

Task/Break-OO-privacy/PicoLisp/break-oo-privacy-2.l

@@ -0,0 +1,20 @@
+: (string> Foo)                        # Access via method call
+-> "Hello, I am Eric"
+
+: (get Foo '"_name")                   # Direct access doesn't work
+-> NIL
+
+: (get Foo (loc "_name" +Example))     # Locating the transient symbol works
+-> "Eric"
+
+: (put Foo (loc "_name" +Example) "Edith")
+-> "Edith"
+
+: (string> Foo)                        # Ditto
+-> "Hello, I am Edith"
+
+: (get Foo '"_name")
+-> NIL
+
+: (get Foo (loc "_name" +Example))
+-> "Edith"