(load "mmap.lsp")

(println (symbols MMap))
(println MMap:%len)

(println (setf X (MMap "mmap.lsp")))
(println (get-string (:%base X)))
(:Unmap X)