8 lines
178 B
Text
8 lines
178 B
Text
> (slurp '"simple-object.lfe")
|
|
#(ok simple-object)
|
|
> (set my-fish (fish-class '"Carp"))
|
|
#Fun<lfe_eval.10.91765564>
|
|
> (get-habitat my-fish)
|
|
"water"
|
|
> (get-species my-fish)
|
|
"Carp"
|