X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fstrtol.lisp;h=b9b73bd805410ff22f7eb92723ce17ee2b39b1bd;hb=7004c2691d5695471c7bce9d62b82a1914cf05a2;hp=0167dbf700bd823c00ab11e32ce7ed01c362b50d;hpb=65e2a75247b894d1f562102ef1df77c7060b5048;p=uffi.git diff --git a/tests/strtol.lisp b/tests/strtol.lisp index 0167dbf..b9b73bd 100644 --- a/tests/strtol.lisp +++ b/tests/strtol.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: strtol.lisp,v 1.3 2003/08/13 18:53:42 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002-2003 by Kevin M. Rosenberg ;;;; @@ -25,6 +25,7 @@ ((nptr char-ptr) (endptr (* char-ptr)) (base :int)) + :module "c" :returning :long) (defun strtol (str &optional (base 10))