| 1 | (in-package :cl-user)
|
|---|
| 2 |
|
|---|
| 3 | (cl:defpackage :wood
|
|---|
| 4 | (:use :cl)
|
|---|
| 5 | #-portable
|
|---|
| 6 | (:import-from #+ccl :ccl #+LispWorks :lispworks
|
|---|
| 7 | #:variable-information)
|
|---|
| 8 | #+ccl
|
|---|
| 9 | (:import-from :ccl
|
|---|
| 10 | :function-information)
|
|---|
| 11 | (:export #:load-wood
|
|---|
| 12 | #:reload
|
|---|
| 13 | #:open-pheap #:close-pheap #:with-open-pheap #:root-object #:flush-pheap
|
|---|
| 14 | #:make-shared-buffer #:make-shared-buffer-pool
|
|---|
| 15 | #:pheap #:p-loading-pheap
|
|---|
| 16 | #:p-load #:p-store #:p-stored? #:p-loaded?
|
|---|
| 17 | #:p-make-area #:with-consing-area
|
|---|
| 18 | #:p-cons #:p-list #:p-list-in-area #:p-make-list
|
|---|
| 19 | #:p-make-uvector #:p-make-array #:p-vector
|
|---|
| 20 | #:p-listp #:p-consp #:p-atom #:p-uvectorp #:p-packagep #:p-symbolp
|
|---|
| 21 | #:p-stringp #:p-simple-string-p #:p-vectorp #:p-simple-vector-p #:p-arrayp
|
|---|
| 22 | #:pload-barrier-p
|
|---|
| 23 | #:p-car #:p-cdr #:p-caar #:p-cadr #:p-cdar #:p-cddr
|
|---|
| 24 | #:p-caaar #:p-caadr #:p-cadar #:p-caddr #:p-cdaar #:p-cdadr #:p-cddar
|
|---|
| 25 | #:p-cdddr #:p-caaaar #:p-caaadr #:p-caadar #:p-caaddr #:p-cadaar
|
|---|
| 26 | #:p-cadadr #:p-caddar #:p-cadddr #:p-cdaaar #:p-cdaadr #:p-cdadar
|
|---|
| 27 | #:p-cdaddr #:p-cddaar #:p-cddadr #:p-cdddar #:p-cddddr
|
|---|
| 28 | #:p-nth #:p-nthcdr #:p-last #:p-delq #:p-dolist #:p-assoc
|
|---|
| 29 | #:p-instance-class #:p-slot-value
|
|---|
| 30 | #:p-uvsize #:p-uvref #:p-uvector-subtype-p #:p-svref #:p-%svref #:p-length
|
|---|
| 31 | #:p-aref #:p-array-rank #:p-array-dimensions #:p-array-dimension
|
|---|
| 32 | #:p-intern #:p-find-symbol #:p-find-package #:p-make-package
|
|---|
| 33 | #:p-symbol-name #:p-symbol-package #:p-symbol-value
|
|---|
| 34 | #:p-package-name #:p-package-nicknames
|
|---|
| 35 | #:p-make-btree #:p-btree-p #:p-btree-lookup #:p-btree-store #:p-btree-delete
|
|---|
| 36 | #:p-clear-btree #:p-map-btree #:p-do-btree #:p-btree-count #:p-map-btree-keystrings
|
|---|
| 37 | #:p-make-hash-table #:p-hash-table-p #:p-gethash #:p-remhash #:p-clrhash
|
|---|
| 38 | #:p-hash-table-size #:p-maphash #:p-hash-table-count
|
|---|
| 39 | #:wood-slot-names-vector #:wood-slot-value #:initialize-persistent-instance
|
|---|
| 40 | #:p-make-load-function #:p-make-load-function-object #:p-make-load-function-using-pheap
|
|---|
| 41 | #:p-make-load-function-saving-slots #:progn-load-functions #:progn-init-functions
|
|---|
| 42 | #:p-store-pptr #:opened-pheap
|
|---|
| 43 | #:p-make-pload-barrier #:p-load-through-barrier
|
|---|
| 44 | #:gc-pheap-file #:clear-memory<->disk-tables
|
|---|
| 45 | #:with-egc #:*avoid-cons-caching*
|
|---|
| 46 | #:pptr-p #:pptr #:pptr-pointer #:pptr-pheap #:pptr-equal
|
|---|
| 47 | #:wood-disk-resident-slot-names #:define-disk-resident-slots
|
|---|
| 48 | #:pheap-pathname #:move-pheap-file
|
|---|
| 49 | #:with-databases-locked #:with-databases-unlocked #:databases-locked-p
|
|---|
| 50 | #:with-transaction #:start-transaction #:commit-transaction #:abort-transaction
|
|---|
| 51 | #:read-long #:read-unsigned-long #:read-string #:read-pointer
|
|---|
| 52 | #:read-low-24-bits #:read-8-bits
|
|---|
| 53 | #:fill-long #:fill-word #:fill-byte
|
|---|
| 54 | ))
|
|---|