| Max-Gerd Retzlaff | 04057ac | 2022-08-23 17:38:34 +0200 | [diff] [blame] | 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)))) |