lsp-misc/test.lsp

   1 (load "mmap.lsp")
   2
   3 (println (symbols MMap))
   4 (println MMap:%len)
   5
   6 (println (setf X (MMap "mmap.lsp")))
   7 (println (get-string (:%base X)))
   8 (:Unmap X)