Advertisement
Guest User

Untitled

a guest
Mar 22nd, 2019
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 2.06 KB | None | 0 0
  1. NETFARM> *schema-schema*
  2. #<SCHEMA :SLOTS (#<SLOT :NAME "slots" :READER-TYPE LISTS {100DA57173}>
  3.                  #<SLOT :NAME "traits" :READER-TYPE LISTS {100DA572C3}>)
  4.          :TRAITS NIL {100DA57433}>
  5. NETFARM> (schema->object *schema-schema*)
  6. #<OBJECT :SCHEMA #<SCHEMA :SLOTS (#<SLOT :NAME "slots"
  7.                                          :READER-TYPE LISTS {100DA57173}>
  8.                                   #<SLOT :NAME "traits"
  9.                                          :READER-TYPE LISTS {100DA572C3}>)
  10.                           :TRAITS NIL {100DA57433}>
  11.          :SIGNATURES NIL
  12.          :METADATA #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DBFC503}>
  13.          :COMPUTED-VALUES #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DBFC923}>
  14.          :SOURCE NIL
  15.          :VALUES #<HASH-TABLE :TEST EQUAL :COUNT 2 {100DBFCD43}> {100DBFC123}>
  16. NETFARM> (render-object *)
  17. "---
  18. ---
  19. slots slots lists
  20. slots traits lists
  21. "
  22. NETFARM> (parse-block *)
  23. #<VAGUE-OBJECT :VERSION 1
  24.                :SOURCE NIL
  25.                :SIGNATURES NIL
  26.                :METADATA #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DC02A33}>
  27.                :VALUES #<HASH-TABLE :TEST EQUAL :COUNT 1 {100DC02E53}>
  28.                :COMPUTED-VALUES #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DC034D3}> {100DCA8E73}>
  29. NETFARM> (apply-schema * *schema-schema*)
  30. #<OBJECT :SCHEMA #<SCHEMA :SLOTS (#<SLOT :NAME "slots"
  31.                                          :READER-TYPE LISTS {100DA57173}>
  32.                                   #<SLOT :NAME "traits"
  33.                                          :READER-TYPE LISTS {100DA572C3}>)
  34.                           :TRAITS NIL {100DA57433}>
  35.          :SIGNATURES NIL
  36.          :METADATA #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DC02A33}>
  37.          :COMPUTED-VALUES #<HASH-TABLE :TEST EQUAL :COUNT 0 {100DC034D3}>
  38.          :SOURCE NIL
  39.          :VALUES #<HASH-TABLE :TEST EQUAL :COUNT 1 {100DD50B03}> {100DD50723}>
  40. NETFARM> (object->schema *)
  41. #<SCHEMA :SLOTS (#<SLOT :NAME "slots" :READER-TYPE LISTS {100DD53BD3}>
  42.                  #<SLOT :NAME "traits" :READER-TYPE LISTS {100DD53C13}>)
  43.          :TRAITS NIL {100DD53B73}>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement