X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Ftest-examples.lisp;h=09ac2c160e989fa17ce1c23a887850a314fb23cd;hb=72190043201239567658cfbae1c36bbd7233419b;hp=11159410606a2cba3d1a97133ccc2e9e08576ff4;hpb=ebedde4e67b858b1f65c5eb4dc7bc45978ed1e40;p=uffi.git diff --git a/examples/test-examples.lisp b/examples/test-examples.lisp index 1115941..09ac2c1 100644 --- a/examples/test-examples.lisp +++ b/examples/test-examples.lisp @@ -9,11 +9,8 @@ ;;;; ;;;; $Id$ ;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg ;;;; -;;;; UFFI users are granted the rights to distribute and use this software -;;;; as governed by the terms of the Lisp Lesser GNU Public License -;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* #-uffi (asdf:oos 'asdf:load-op :uffi) @@ -26,7 +23,7 @@ (util.test:with-tests (:name "UFFI-Tests") (setq util.test:*break-on-test-failures* nil) (flet ((load-test (name) - (load (make-pathname :name name :defaults *load-truename*)))) + (load (make-pathname :name name :defaults *load-truename*)))) (load-test "c-test-fns") (load-test "arrays") (load-test "union")