;;;; Programmer: Kevin M. Rosenberg\r
;;;; Date Started: Feb 2002\r
;;;;\r
-;;;; $Id: compress.lisp,v 1.4 2003/03/10 17:37:05 kevin Exp $\r
+;;;; $Id: compress.lisp,v 1.5 2003/04/29 12:57:10 kevin Exp $\r
;;;;\r
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg\r
;;;;\r
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.\r
;;;; *************************************************************************\r
\r
-(in-package :cl-user)\r
+(in-package :uffi-tests)\r
\r
(eval-when (:load-toplevel :execute)\r
(unless (uffi:load-foreign-library\r
(uffi:free-foreign-object destlen)\r
(uffi:free-foreign-object dest)))))))\r
\r
-#+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
-\r
#+test-uffi\r
(progn\r
(flet ((test-compress (str)\r