| 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 |
|---|
