9 lines
178 B
Text
9 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"
|