X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Ftest-examples.lisp;h=79fb65a61572eed571a20cac2a5bd68e66157f21;hb=27073cc090c29aa5dcf9ed9becdf3e73b937b0bb;hp=5f780d44558cbb93971ab3c4684185953c3c833e;hpb=a95b9a217335917d96b8c0cced4f49c3e4846115;p=uffi.git diff --git a/examples/test-examples.lisp b/examples/test-examples.lisp index 5f780d4..79fb65a 100644 --- a/examples/test-examples.lisp +++ b/examples/test-examples.lisp @@ -7,13 +7,8 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: test-examples.lisp,v 1.1 2002/09/30 10:02:36 kevin Exp $ +;;;; This file, part of UFFI, is Copyright (c) 2002-2010 by Kevin M. Rosenberg ;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002 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 +21,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")