|
Revision 2554, 427 bytes
(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-tests) |
|---|
| 5 |
|
|---|
| 6 |
(eval-when (:compile-toplevel :load-toplevel :execute) |
|---|
| 7 |
(use-package :cl-store-xml)) |
|---|
| 8 |
|
|---|
| 9 |
(add-xml-mapping "RANDOM-OBJ") |
|---|
| 10 |
|
|---|
| 11 |
(defstore-xml (obj random-obj stream) |
|---|
| 12 |
(princ-and-store "RANDOM-OBJ" (size obj) stream)) |
|---|
| 13 |
|
|---|
| 14 |
(defrestore-xml (random-obj stream) |
|---|
| 15 |
(random (restore-first stream))) |
|---|
| 16 |
|
|---|
| 17 |
;; EOF |
|---|
