-#+test-uffi\r
-(progn\r
- (flet ((test-compress (str)\r
- (multiple-value-bind (compressed len) (compress str)\r
- (multiple-value-bind (uncompressed len2) (uncompress compressed)\r
- (util.test:test str uncompressed :test #'string=\r
- :fail-info "Error uncompressing a compressed string")))))\r
- (test-compress "")\r
- (test-compress "test")\r
- (test-compress "test2")))\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