X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Fstrtol.cl;h=4d3a090f658f32442922127b01e334c41e33c1a1;hb=29dc3a388a41590a7fda00cb6b606ffe03b3c3d6;hp=a115b2a8019e856058a0b21edbaf14d0a247574f;hpb=47f88e60899603d0ae74d3ff28cac9852067e3d4;p=uffi.git diff --git a/examples/strtol.cl b/examples/strtol.cl index a115b2a..4d3a090 100644 --- a/examples/strtol.cl +++ b/examples/strtol.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: strtol.cl,v 1.12 2002/03/23 16:32:39 kevin Exp $ +;;;; $Id: strtol.cl,v 1.13 2002/04/02 21:29:45 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -59,7 +59,7 @@ of first non-valid character" -#+test-uffi +#+examples-uffi (progn (flet ((print-results (str) (multiple-value-bind (result flag) (strtol str)