]>
Commit | Line | Data |
---|---|---|
f67539c2 TL |
1 | (in-package #:shared-implementation) |
2 | ||
3 | ;;;; Licensed under the Apache License, Version 2.0 (the "License"); | |
4 | ;;;; you may not use this file except in compliance with the License. | |
5 | ;;;; You may obtain a copy of the License at | |
6 | ;;;; | |
7 | ;;;; http://www.apache.org/licenses/LICENSE-2.0 | |
8 | ;;;; | |
9 | ;;;; Unless required by applicable law or agreed to in writing, software | |
10 | ;;;; distributed under the License is distributed on an "AS IS" BASIS, | |
11 | ;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | |
12 | ;;;; See the License for the specific language governing permissions and | |
13 | ;;;; limitations under the License. | |
14 | ||
15 | (defvar *structs* (make-hash-table)) | |
16 | ||
17 | (defun shared.shared-service-implementation:get-struct (key) | |
18 | (format t "getStruct(~a)~%" key) | |
19 | (gethash key *structs*)) | |
20 | ||
21 | (defun add-log (key value) | |
22 | (setf (gethash key *structs*) | |
23 | (make-instance 'shared:sharedstruct | |
24 | :key key | |
25 | :value (write-to-string value)))) |