package.lisp

Revision 2554, 8.4 kB (checked in by ksprotte, 11 months ago)
added cl-store
Property svn:executable set to ``*

Line
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-allocation
39	#:slot-definition
40	#:compute-slots
41	#:slot-definition-initform
42	#:slot-definition-initargs
43	#:slot-definition-name
44	#:slot-definition-readers
45	#:slot-definition-type
46	#:slot-definition-writers
47	#:class-direct-default-initargs
48	#:class-direct-slots
49	#:class-direct-superclasses
50	#:class-slots
51	#:ensure-class)
52
53	#+ecl (:import-from #:clos
54	#:generic-function-name
55	#:compute-slots
56	#:class-direct-default-initargs
57	#:class-direct-slots
58	#:class-direct-superclasses
59	#:class-slots
60	#:ensure-class)
61
62	#+cmu (:import-from #:pcl
63	#:generic-function-name
64	#:slot-definition-allocation
65	#:compute-slots
66	#:slot-definition
67	#:slot-definition-initform
68	#:slot-definition-initargs
69	#:slot-definition-name
70	#:slot-definition-readers
71	#:slot-definition-type
72	#:slot-definition-writers
73	#:class-direct-default-initargs
74	#:class-direct-slots
75	#:class-direct-superclasses
76	#:class-slots
77	#:ensure-class)
78
79	#+cmu (:shadowing-import-from #:pcl
80	#:class-name
81	#:find-class
82	#:standard-class
83	#:class-of)
84
85	#+openmcl (:import-from #:openmcl-mop
86	#:generic-function-name
87	#:slot-definition-allocation
88	#:compute-slots
89	#:slot-definition
90	#:slot-definition-initform
91	#:slot-definition-initargs
92	#:slot-definition-name
93	#:slot-definition-readers
94	#:slot-definition-type
95	#:slot-definition-writers
96	#:class-direct-default-initargs
97	#:class-direct-slots
98	#:class-direct-superclasses
99	#:class-slots
100	#:ensure-class)
101
102	#+digitool (:import-from #:ccl
103	#:generic-function-name
104	#:slot-definition-allocation
105	#:compute-slots
106	#:slot-definition
107	#:slot-definition-initform
108	#:slot-definition-initargs
109	#:slot-definition-name
110	#:slot-definition-readers
111	#:slot-definition-type
112	#:slot-definition-writers
113	#:class-direct-default-initargs
114	#:class-direct-slots
115	#:class-direct-superclasses
116	#:class-slots
117	#:ensure-class)
118
119	#+(and clisp (not mop)) (:import-from #:clos
120	#:slot-value
121	#:std-compute-slots
122	#:slot-boundp
123	#:class-name
124	#:class-direct-default-initargs
125	#:class-direct-slots
126	#:class-slots
127	#:ensure-class)
128
129	#+lispworks (:import-from #:clos
130	#:generic-function-name
131	#:slot-definition-allocation
132	#:compute-slots
133	#:slot-definition
134	#:slot-definition-initform
135	#:slot-definition-initargs
136	#:slot-definition-name
137	#:slot-definition-readers
138	#:slot-definition-type
139	#:slot-definition-writers
140	#:class-direct-default-initargs
141	#:class-direct-slots
142	#:class-slots
143	#:class-direct-superclasses
144	#:ensure-class)
145
146	#+(and clisp mop) (:import-from #:clos
147	#:generic-function-name
148	#:slot-definition-allocation
149	#:compute-slots
150	#:slot-definition
151	#:slot-definition-initform
152	#:slot-definition-initargs
153	#:slot-definition-name
154	#:slot-definition-readers
155	#:slot-definition-type
156	#:slot-definition-writers
157	#:class-direct-default-initargs
158	#:class-direct-slots
159	#:class-slots
160	#:class-direct-superclasses
161	#:ensure-class)
162
163	#+allegro (:import-from #:mop
164	#:generic-function-name
165	#:slot-definition-allocation
166	#:slot-definition
167	#:compute-slots
168	#:slot-definition-initform
169	#:slot-definition-initargs
170	#:slot-definition-name
171	#:slot-definition-readers
172	#:slot-definition-type
173	#:slot-definition-writers
174	#:class-direct-default-initargs
175	#:class-direct-slots
176	#:class-direct-superclasses
177	#:class-slots
178	#:ensure-class)
179	#+abcl (:import-from #:mop
180
181	;; All the commented out methods are defined in
182	;; abcl/custom.lisp
183
184	#:generic-function-name
185	;;#:slot-definition-allocation
186	#:slot-definition
187	#:compute-slots
188	;;#:slot-definition-initform
189	;;#:slot-definition-initargs
190	;;#:slot-definition-name
191	;;#:slot-definition-readers
192	;;#:slot-definition-type
193	;;#:slot-definition-writers
194	#:class-direct-default-initargs
195	#:class-direct-slots
196	#:class-direct-superclasses
197	; #:class-slots
198	#:ensure-class)
199	)
200	;; EOF

Note: See TracBrowser for help on using the browser.

Download in other formats:

Original Format