X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fatoifl.lisp;h=b5cc75b2c70490de52dba3ae0cb676c46cbd2f80;hb=65e2a75247b894d1f562102ef1df77c7060b5048;hp=23bbda0b101ecba2d189f57a71b08cfe65a21ee9;hpb=5adb58ea9a2b4f0af8789ce6ac722253e1aa6153;p=uffi.git diff --git a/tests/atoifl.lisp b/tests/atoifl.lisp index 23bbda0..b5cc75b 100644 --- a/tests/atoifl.lisp +++ b/tests/atoifl.lisp @@ -2,21 +2,18 @@ ;;;; ************************************************************************* ;;;; FILE IDENTIFICATION ;;;; -;;;; Name: atoifl.cl +;;;; Name: atoifl.lisp ;;;; Purpose: UFFI Example file to atoi/atof/atol ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: atoifl.lisp,v 1.2 2003/04/29 12:57:10 kevin Exp $ +;;;; $Id: atoifl.lisp,v 1.3 2003/08/13 18:53:42 kevin Exp $ ;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of UFFI, is Copyright (c) 2002-2003 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. ;;;; ************************************************************************* -(in-package :uffi-tests) +(in-package #:uffi-tests) (uffi:def-function ("atoi" c-atoi) ((str :cstring))