/[cl-store]/cl-store/package.lisp
ViewVC logotype

Contents of /cl-store/package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.28 - (show annotations)
Mon Sep 17 18:40:02 2007 UTC (6 years, 7 months ago) by sross
Branch: MAIN
CVS Tags: HEAD
Changes since 1.27: +1 -1 lines
faster (simple-array (unsigned-byte 8) (*)) storing. Thanks to Chris Dean
more lenient parsing of sbcl version. Thanks to Gustavo
1 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;; See the file LICENCE for licence information.
3
4 ;(in-package :cl-store.system)
5
6 (defpackage #:cl-store
7 (:use #:cl)
8 (:export #:backend #:magic-number #:stream-type
9 #:restorers #:resolving-backend #:find-backend #:defbackend
10 #:*restore-counter* #:*need-to-fix* #:*restored-values*
11 #:with-backend #:*default-backend*
12 #:*current-backend* #:*store-class-slots*
13 #:*nuke-existing-classes* #:*store-class-superclasses*
14 #:cl-store-error #:store-error #:restore-error #:store
15 #:restore #:backend-store #:store-backend-code #:store-object
16 #:backend-store-object
17 #:restore #:backend-restore #:cl-store #:referrerp
18 #:check-magic-number #:get-next-reader #:int-or-char-p
19 #:restore-object #:backend-restore-object #:serializable-slots
20 #:defstore-cl-store #:defrestore-cl-store #:register-code
21 #:output-type-code #:store-referrer #:resolving-object
22 #:internal-store-object #:setting #:simple-standard-string
23 #:float-type #:get-float-type #:make-referrer #:setting-hash
24 #:multiple-value-store #:caused-by
25 #:store-32-bit #:read-32-bit #:*check-for-circs*
26 #:*store-hash-size* #:*restore-hash-size* #:get-slot-details
27 #:*store-used-packages* #:*nuke-existing-packages*
28 #:serializable-slots-using-class
29
30 ;; Hooks into lower level circularity tracking
31 ;; to reduce consing.
32 #:with-serialization-unit #:create-serialize-hash
33
34 #:alias-backend)
35
36 #+sbcl (:import-from #:sb-mop
37 #:generic-function-name
38 #:slot-definition-name
39 #:slot-definition-allocation
40 #:slot-definition
41 #:compute-slots
42 #:slot-definition-initform
43 #:slot-definition-initargs
44 #:slot-definition-name
45 #:slot-definition-readers
46 #:slot-definition-type
47 #:slot-definition-writers
48 #:class-direct-default-initargs
49 #:class-direct-slots
50 #:class-direct-superclasses
51 #:class-slots
52 #:ensure-class)
53
54 #+ecl (:import-from #:clos
55 #:generic-function-name
56 #:compute-slots
57 #:class-direct-default-initargs
58 #:class-direct-slots
59 #:class-direct-superclasses
60 #:class-slots
61 #:ensure-class)
62
63 #+cmu (:import-from #:pcl
64 #:generic-function-name
65 #:slot-definition-name
66 #:slot-definition-allocation
67 #:compute-slots
68 #:slot-definition
69 #:slot-definition-initform
70 #:slot-definition-initargs
71 #:slot-definition-name
72 #:slot-definition-readers
73 #:slot-definition-type
74 #:slot-definition-writers
75 #:class-direct-default-initargs
76 #:class-direct-slots
77 #:class-direct-superclasses
78 #:class-slots
79 #:ensure-class)
80
81 #+cmu (:shadowing-import-from #:pcl
82 #:class-name
83 #:find-class
84 #:standard-class
85 #:class-of)
86
87 #+openmcl (:import-from #:openmcl-mop
88 #:generic-function-name
89 #:slot-definition-name
90 #:slot-definition-allocation
91 #:compute-slots
92 #:slot-definition
93 #:slot-definition-initform
94 #:slot-definition-initargs
95 #:slot-definition-name
96 #:slot-definition-readers
97 #:slot-definition-type
98 #:slot-definition-writers
99 #:class-direct-default-initargs
100 #:class-direct-slots
101 #:class-direct-superclasses
102 #:class-slots
103 #:ensure-class)
104
105 #+digitool (:import-from #:ccl
106 #:generic-function-name
107 #:slot-definition-name
108 #:slot-definition-allocation
109 #:compute-slots
110 #:slot-definition
111 #:slot-definition-initform
112 #:slot-definition-initargs
113 #:slot-definition-name
114 #:slot-definition-readers
115 #:slot-definition-type
116 #:slot-definition-writers
117 #:class-direct-default-initargs
118 #:class-direct-slots
119 #:class-direct-superclasses
120 #:class-slots
121 #:ensure-class)
122
123 #+(and clisp (not mop)) (:import-from #:clos
124 #:slot-value
125 #:std-compute-slots
126 #:slot-boundp
127 #:class-name
128 #:class-direct-default-initargs
129 #:class-direct-slots
130 #:class-slots
131 #:ensure-class)
132
133 #+lispworks (:import-from #:clos
134 #:slot-definition-name
135 #:generic-function-name
136 #:slot-definition-allocation
137 #:compute-slots
138 #:slot-definition
139 #:slot-definition-initform
140 #:slot-definition-initargs
141 #:slot-definition-name
142 #:slot-definition-readers
143 #:slot-definition-type
144 #:slot-definition-writers
145 #:class-direct-default-initargs
146 #:class-direct-slots
147 #:class-slots
148 #:class-direct-superclasses
149 #:ensure-class)
150
151 #+(and clisp mop) (:import-from #:clos
152 #:slot-definition-name
153 #:generic-function-name
154 #:slot-definition-allocation
155 #:compute-slots
156 #:slot-definition
157 #:slot-definition-initform
158 #:slot-definition-initargs
159 #:slot-definition-name
160 #:slot-definition-readers
161 #:slot-definition-type
162 #:slot-definition-writers
163 #:class-direct-default-initargs
164 #:class-direct-slots
165 #:class-slots
166 #:class-direct-superclasses
167 #:ensure-class)
168
169 #+allegro (:import-from #:mop
170 #:slot-definition-name
171 #:generic-function-name
172 #:slot-definition-allocation
173 #:slot-definition
174 #:compute-slots
175 #:slot-definition-initform
176 #:slot-definition-initargs
177 #:slot-definition-name
178 #:slot-definition-readers
179 #:slot-definition-type
180 #:slot-definition-writers
181 #:class-direct-default-initargs
182 #:class-direct-slots
183 #:class-direct-superclasses
184 #:class-slots
185 #:ensure-class)
186 )
187 ;; EOF

  ViewVC Help
Powered by ViewVC 1.1.5