Enhancement: with-facet, from-facet

[hikettei]

• [ ] facet.lisp (as in cl-waffe2)
• [ ] create a tensor from array with sharing the pointer
• [ ] writing tests
• [ ] Default Facets: :DISK :URL :GGUF :ARRAY :LIST :ATEN etc