RosettaCodeData/Task/Add-a-variable-to-a-class-instance-at-runtime/PicoLisp/add-a-variable-to-a-class-instance-at-runtime.l

: (setq MyObject (new '(+MyClass)))       # Create some object
-> $385605941
: (put MyObject 'newvar '(some value))    # Set variable
-> (some value)
: (show MyObject)                         # Show the object
$385605941 (+MyClass)
   newvar (some value)
-> $385605941