Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- NETFARM> *schema-schema*
- #<SCHEMA :SLOTS (#<SLOT :NAME "slots" :READER-TYPE LISTS {100DA57173}>
- #<SLOT :NAME "traits" :READER-TYPE LISTS {100DA572C3}>)
- :TRAITS NIL {100DA57433}>
- NETFARM> (schema->object *schema-schema*)
- #<OBJECT :SCHEMA #<SCHEMA :SLOTS (#<SLOT :NAME "slots"
- :READER-TYPE LISTS {100DA57173}>
- #<SLOT :NAME "traits"
- :READER-TYPE LISTS {100DA572C3}>)
- :TRAITS NIL {100DA57433}>
- :SIGNATURES NIL
- :METADATA #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DBFC503}>
- :COMPUTED-VALUES #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DBFC923}>
- :SOURCE NIL
- :VALUES #<HASH-TABLE :TEST EQUAL :COUNT 2 {100DBFCD43}> {100DBFC123}>
- NETFARM> (render-object *)
- "---
- ---
- slots slots lists
- slots traits lists
- "
- NETFARM> (parse-block *)
- #<VAGUE-OBJECT :VERSION 1
- :SOURCE NIL
- :SIGNATURES NIL
- :METADATA #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DC02A33}>
- :VALUES #<HASH-TABLE :TEST EQUAL :COUNT 1 {100DC02E53}>
- :COMPUTED-VALUES #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DC034D3}> {100DCA8E73}>
- NETFARM> (apply-schema * *schema-schema*)
- #<OBJECT :SCHEMA #<SCHEMA :SLOTS (#<SLOT :NAME "slots"
- :READER-TYPE LISTS {100DA57173}>
- #<SLOT :NAME "traits"
- :READER-TYPE LISTS {100DA572C3}>)
- :TRAITS NIL {100DA57433}>
- :SIGNATURES NIL
- :METADATA #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DC02A33}>
- :COMPUTED-VALUES #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DC034D3}>
- :SOURCE NIL
- :VALUES #<HASH-TABLE :TEST EQUAL :COUNT 1 {100DD50B03}> {100DD50723}>
- NETFARM> (object->schema *)
- #<SCHEMA :SLOTS (#<SLOT :NAME "slots" :READER-TYPE LISTS {100DD53BD3}>
- #<SLOT :NAME "traits" :READER-TYPE LISTS {100DD53C13}>)
- :TRAITS NIL {100DD53B73}>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement