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

Contents of /cl-store/xml-package.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Thu Sep 1 10:24:55 2005 UTC (8 years, 7 months ago) by sross
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +119 -4 lines
Changelog 2005-09-01
1 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;; See the file LICENCE for licence information.
3
4 (defpackage #:cl-store-xml
5 (:use #:cl #:cl-store)
6 (:export #:*xml-backend*
7 #:add-xml-mapping #:defstore-xml #:defrestore-xml #:princ-and-store
8 #:princ-xml #:restore-first #:with-tag #:first-child
9 #:second-child #:get-child)
10 (:import-from #:cl-store #:when-let #:generic-function-name #:get-function-name
11 #:force #:setting #:resolving-object)
12
13 #+sbcl (:import-from #:sb-mop
14 #:generic-function-name
15 #:slot-definition-name
16 #:slot-definition-allocation
17 #:slot-definition
18 #:compute-slots
19 #:slot-definition-initform
20 #:slot-definition-initargs
21 #:slot-definition-name
22 #:slot-definition-readers
23 #:slot-definition-type
24 #:slot-definition-writers
25 #:class-direct-default-initargs
26 #:class-direct-slots
27 #:class-direct-superclasses
28 #:class-slots
29 #:ensure-class)
30
31 #+ecl (:import-from #:clos
32 #:generic-function-name
33 #:compute-slots
34 #:class-direct-default-initargs
35 #:class-direct-slots
36 #:class-direct-superclasses
37 #:class-slots
38 #:ensure-class)
39
40 #+cmu (:import-from #:pcl
41 #:generic-function-name
42 #:slot-definition-name
43 #:slot-definition-allocation
44 #:compute-slots
45 #:slot-definition
46 #:slot-definition-initform
47 #:slot-definition-initargs
48 #:slot-definition-name
49 #:slot-definition-readers
50 #:slot-definition-type
51 #:slot-definition-writers
52 #:class-direct-default-initargs
53 #:class-direct-slots
54 #:class-direct-superclasses
55 #:class-slots
56 #:ensure-class)
57
58 #+cmu (:shadowing-import-from #:pcl
59 #:class-name
60 #:find-class
61 #:standard-class
62 #:class-of)
63
64 #+openmcl (:import-from #:openmcl-mop
65 #:generic-function-name
66 #:slot-definition-name
67 #:slot-definition-allocation
68 #:compute-slots
69 #:slot-definition
70 #:slot-definition-initform
71 #:slot-definition-initargs
72 #:slot-definition-name
73 #:slot-definition-readers
74 #:slot-definition-type
75 #:slot-definition-writers
76 #:class-direct-default-initargs
77 #:class-direct-slots
78 #:class-direct-superclasses
79 #:class-slots
80 #:ensure-class)
81
82 #+clisp (:import-from #:clos
83 #:slot-value
84 #:std-compute-slots
85 #:slot-boundp
86 #:class-name
87 #:class-direct-default-initargs
88 #:class-direct-slots
89 #:class-slots
90 #:ensure-class)
91
92 #+lispworks (:import-from #:clos
93 #:slot-definition-name
94 #:generic-function-name
95 #:slot-definition-allocation
96 #:compute-slots
97 #:slot-definition
98 #:slot-definition-initform
99 #:slot-definition-initargs
100 #:slot-definition-name
101 #:slot-definition-readers
102 #:slot-definition-type
103 #:slot-definition-writers
104 #:class-direct-default-initargs
105 #:class-direct-slots
106 #:class-slots
107 #:class-direct-superclasses
108 #:ensure-class)
109
110 #+allegro (:import-from #:mop
111 #:slot-definition-name
112 #:generic-function-name
113 #:slot-definition-allocation
114 #:slot-definition
115 #:compute-slots
116 #:slot-definition-initform
117 #:slot-definition-initargs
118 #:slot-definition-name
119 #:slot-definition-readers
120 #:slot-definition-type
121 #:slot-definition-writers
122 #:class-direct-default-initargs
123 #:class-direct-slots
124 #:class-direct-superclasses
125 #:class-slots
126 #:ensure-class)
127 )
128
129
130 ;; EOF

  ViewVC Help
Powered by ViewVC 1.1.5