X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Frun-examples.lisp;h=3df9206980d53b298d568dd258efc7ae250121d7;hb=54929de80ac68bb7ef45a28e70945c7243d39c82;hp=c6414e8e26742c81cae0daaaf23a5fcd05b1f1e2;hpb=ebedde4e67b858b1f65c5eb4dc7bc45978ed1e40;p=uffi.git diff --git a/examples/run-examples.lisp b/examples/run-examples.lisp index c6414e8..3df9206 100644 --- a/examples/run-examples.lisp +++ b/examples/run-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) @@ -21,7 +18,7 @@ (pushnew :examples-uffi cl:*features*) (flet ((load-test (name) - (load (make-pathname :defaults *load-truename* :name name)))) + (load (make-pathname :defaults *load-truename* :name name)))) (load-test "c-test-fns") (load-test "arrays") (load-test "union") @@ -36,4 +33,4 @@ (setq cl:*features* (remove :examples-uffi cl:*features*)) - +