-#+examples-uffi\r
-(progn\r
- (flet ((print-results (str)\r
- (multiple-value-bind (compressed len) (compress str)\r
- (let ((*print-length* nil))\r
- (format t "~&(compress ~S) => " str)\r
- (format t "~S~%" (map 'list #'char-code compressed))))))\r
- (print-results "")\r
- (print-results "test")\r
- (print-results "test2")))\r
+(deftest compress.1 (map 'list #'char-code (compress ""))\r
+ (120 156 3 0 0 0 0 1))\r
+(deftest compress.2 (map 'list #'char-code (compress "test"))\r
+ (120 156 43 73 45 46 1 0 4 93 1 193))\r
+(deftest compress.3 (map 'list #'char-code (compress "test2"))\r
+ (120 156 43 73 45 46 49 2 0 6 80 1 243))\r
+\r
+(defun compress-uncompress (str)\r
+ (multiple-value-bind (compressed len) (compress str)\r
+ (declare (ignore len))\r
+ (multiple-value-bind (uncompressed len2) (uncompress compressed)\r
+ (declare (ignore len2))\r
+ uncompressed)))\r