<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:p="urn:schemas-microsoft-com:office:powerpoint" xmlns:a="urn:schemas-microsoft-com:office:access" xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema" xmlns:b="urn:schemas-microsoft-com:office:publisher" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:c="urn:schemas-microsoft-com:office:component:spreadsheet" xmlns:odc="urn:schemas-microsoft-com:office:odc" xmlns:oa="urn:schemas-microsoft-com:office:activation" xmlns:html="http://www.w3.org/TR/REC-html40" xmlns:q="http://schemas.xmlsoap.org/soap/envelope/" xmlns:rtc="http://microsoft.com/officenet/conferencing" xmlns:D="DAV:" xmlns:Repl="http://schemas.microsoft.com/repl/" xmlns:mt="http://schemas.microsoft.com/sharepoint/soap/meetings/" xmlns:x2="http://schemas.microsoft.com/office/excel/2003/xml" xmlns:ppda="http://www.passport.com/NameSpace.xsd" xmlns:ois="http://schemas.microsoft.com/sharepoint/soap/ois/" xmlns:dir="http://schemas.microsoft.com/sharepoint/soap/directory/" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:dsp="http://schemas.microsoft.com/sharepoint/dsp" xmlns:udc="http://schemas.microsoft.com/data/udc" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:sub="http://schemas.microsoft.com/sharepoint/soap/2002/1/alerts/" xmlns:ec="http://www.w3.org/2001/04/xmlenc#" xmlns:sp="http://schemas.microsoft.com/sharepoint/" xmlns:sps="http://schemas.microsoft.com/sharepoint/soap/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:udcs="http://schemas.microsoft.com/data/udc/soap" xmlns:udcxf="http://schemas.microsoft.com/data/udc/xmlfile" xmlns:udcp2p="http://schemas.microsoft.com/data/udc/parttopart" xmlns:wf="http://schemas.microsoft.com/sharepoint/soap/workflow/" xmlns:dsss="http://schemas.microsoft.com/office/2006/digsig-setup" xmlns:dssi="http://schemas.microsoft.com/office/2006/digsig" xmlns:mdssi="http://schemas.openxmlformats.org/package/2006/digital-signature" xmlns:mver="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns:mrels="http://schemas.openxmlformats.org/package/2006/relationships" xmlns:spwp="http://microsoft.com/sharepoint/webpartpages" xmlns:ex12t="http://schemas.microsoft.com/exchange/services/2006/types" xmlns:ex12m="http://schemas.microsoft.com/exchange/services/2006/messages" xmlns:pptsl="http://schemas.microsoft.com/sharepoint/soap/SlideLibrary/" xmlns:spsl="http://microsoft.com/webservices/SharePointPortalServer/PublishedLinksService" xmlns:Z="urn:schemas-microsoft-com:" xmlns:st="" xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
 /* Font Definitions */
 @font-face
        {font-family:"Cambria Math";
        panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0cm;
        margin-bottom:.0001pt;
        font-size:11.0pt;
        font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
pre
        {mso-style-priority:99;
        mso-style-link:"HTML Vorformatiert Zchn";
        margin:0cm;
        margin-bottom:.0001pt;
        font-size:10.0pt;
        font-family:"Courier New";}
span.HTMLVorformatiertZchn
        {mso-style-name:"HTML Vorformatiert Zchn";
        mso-style-priority:99;
        mso-style-link:"HTML Vorformatiert";
        font-family:"Courier New";}
span.E-MailFormatvorlage19
        {mso-style-type:personal;
        font-family:"Courier New";
        color:windowtext;}
span.E-MailFormatvorlage20
        {mso-style-type:personal-reply;
        font-family:"Courier New";
        color:windowtext;}
.MsoChpDefault
        {mso-style-type:export-only;
        font-size:10.0pt;}
@page WordSection1
        {size:612.0pt 792.0pt;
        margin:70.85pt 70.85pt 2.0cm 70.85pt;}
div.WordSection1
        {page:WordSection1;}
-->
</style>
<!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit">
  <o:idmap v:ext="edit" data="1" />
 </o:shapelayout></xml><![endif]-->
</head>

<body lang=DE link=blue vlink=purple>

<div class=WordSection1>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Someone
at #lisp (thanks to _3b) on freenode<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>helped
me by patching this file<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>cffi/src/cffi-openmcl.lisp<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>184,187c184,189<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><  
#+32-bit-target (:long %get-signed-long)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><  
#+64-bit-target (:long ccl::%%get-signed-longlong)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><  
#+32-bit-target (:unsigned-long %get-unsigned-long)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><  
#+64-bit-target (:unsigned-long ccl::%%get-unsigned-longlong)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>---<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>>  
#+(or 32-bit-target windows) (:long %get-signed-long)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>>  
#+(and 64-bit-target<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>>         
(not windows)) (:long ccl::%%get-signed-longlong)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>>  
#+(or 32-bit-target windows) (:unsigned-long %get-unsigned-long)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>>  
#+(and 64-bit-target<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>>         
(not windows)) (:unsigned-long ccl::%%get-unsigned-longlong)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>The
values are still wrong for some function calls.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>But
it does not crash anymore.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Greets
Louis<o:p></o:p></span></p>

<p class=MsoNormal><a name="_MailEndCompose"><span lang=EN-US style='font-size:
10.0pt;font-family:"Courier New"'><o:p> </o:p></span></a></p>

<div>

<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>

<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>Von:</span></b><span
style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> Louis Höfler
[mailto:louis.hoefler@gmx.de] <br>
<b>Gesendet:</b> Freitag, 30. Juli 2010 14:22<br>
<b>An:</b> cffi-devel@common-lisp.net<br>
<b>Betreff:</b> [cffi-devel] Using cffi with ccl on windows 64bit<o:p></o:p></span></p>

</div>

</div>

<p class=MsoNormal><o:p> </o:p></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Hello
everyone. I try to use cffi on windows 64bit.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>I
recompiled the testlibraries with vs2010.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>If
I run the test I get this:<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>(require
'asdf)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>(setf
asdf:*central-registry*<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> 
'(*default-pathname-defaults*<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>       
#P"C:\\Users\\Lis\\Documents\\work\\trivial-features\\"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>       
#P"C:\\Users\\Lis\\Documents\\work\\babel\\"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>       
#P"C:\\Users\\Lis\\Documents\\work\\rt\\"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>       
#P"C:\\Users\\Lis\\Documents\\work\\alexandria\\"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>   
#P"C:\\Users\\Lis\\Documents\\work\\cffi\\"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> 
))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>(asdf:load-system
'trivial-features)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>(asdf:load-system
'babel)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>(asdf:load-system
'alexandria)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>(asdf:load-system
'rt)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>(asdf:load-system
'cffi)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>(asdf:load-system
'cffi-tests)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>(asdf:test-system
'cffi-tests)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;;;;;;;;;;;;;;;;;;;;
OUTPUT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>C:\Users\Lis\Documents\work\lisp_ccl>SET
PATH=C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program
Files (x86)\Common Files\Softimage;C:\Program Files\Common Files\Softimage;c:\Program
Files (x86)\Microsoft SQL Server\100\Tools\Binn\;c:\Program Files\Microsoft SQL
Server\100\Tools\Binn\;c:\Program Files\Microsoft SQL
Server\100\DTS\Binn\;C:\Program Files\Intel\WiFi\bin\;C:\Program Files\Common
Files\Intel\WirelessCommon\;C:\Program Files\ThinkPad\Bluetooth
Software\;C:\Program Files\ThinkPad\Bluetooth
Software\syswow64;;C:\Users\Lis\Documents\work\cffi\tests\libtest\x64\Debug;C:\Users\Lis\Documents\work\cffi\tests\libtest2\x64\Debug
<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>C:\Users\Lis\Documents\work\lisp_ccl>C:\ccl\wx86cl64.exe
-e "(load
\"C:\\Users\\Lis\\Documents\\work\\lisp_ccl\\cffi_test.lisp\")" <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
loading system definition from
C:/Users/Lis/Documents/work/trivial-features/trivial-features.asd into
#<Package "ASDF0"><o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
registering #<SYSTEM TRIVIAL-FEATURES #x210076D07D> as TRIVIAL-FEATURES<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
loading system definition from C:/Users/Lis/Documents/work/babel/babel.asd into
#<Package "ASDF0"><o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
registering #<SYSTEM BABEL #x21007FBAAD> as BABEL<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
loading system definition from C:/Users/Lis/Documents/work/alexandria/alexandria.asd
into #<Package "ASDF0"><o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
registering #<SYSTEM :ALEXANDRIA #x210080329D> as ALEXANDRIA<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
loading system definition from C:/Users/Lis/Documents/work/rt/rt.asd into
#<Package "ASDF0"><o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
registering #<SYSTEM :RT #x2100AFC34D> as RT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
loading system definition from C:/Users/Lis/Documents/work/cffi/cffi.asd into
#<Package "ASDF0"><o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
registering #<SYSTEM CFFI #x2100B2CBFD> as CFFI<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
loading system definition from C:/Users/Lis/Documents/work/cffi/cffi-tests.asd
into #<Package "ASDF0"><o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
registering #<SYSTEM CFFI-TESTS #x2100C426AD> as CFFI-TESTS<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;Compiler
warnings for "home:Documents;work;cffi;tests;funcall.lisp.newest" :<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;  
In (EXPAND-TO-FOREIGN (T CHECK-NIL-SKIP-TYPE)): Unused lexical variable VAL<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
Warning: COMPILE-FILE warned while performing #<COMPILE-OP NIL
#x2100AB2C5D> on #<CL-SOURCE-FILE "funcall" #x2100AB98BD>.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>, in process listener(1).<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
Warning: Redefining test FOREIGN-ALLOC.6<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;
While executing: REGRESSION-TEST::REPORT-ERROR, in process listener(1).<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;;;
running tests (uncompiled)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Doing
235 pending tests of 235 tests total.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FUNCALL.CHAR
FUNCALL.INT.1 FUNCALL.INT.2 FUNCALL.LONG FUNCALL.LONG-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FUNCALL.FLOAT
FUNCALL.DOUBLE FUNCALL.STRING.1 FUNCALL.STRING.2 FUNCALL.STRING.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FUNCALL.VARARGS.CHAR
FUNCALL.VARARGS.INT FUNCALL.VARARGS.LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
FUNCALL.VARARGS.DOUBLE failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-POINTER-AS-STRING (S 100) (SETF (MEM-REF S :CHAR) 0)
(FOREIGN-FUNCALL "sprintf" :POINTER S :STRING "%.2f"
:DOUBLE (COERCE PI 'DOUBLE-FLOAT) :INT))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: "3.14"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: "f".<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FUNCALL.VARARGS.STRING<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
FUNCALL.DOUBLE26 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(FOREIGN-FUNCALL "sum_double26" :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE
3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE
3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE
3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE
3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE
3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 81.64D0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 75.36D0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
FUNCALL.FLOAT26 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(FOREIGN-FUNCALL "sum_float26" :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0
:FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0
:FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0
:FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0
:FLOAT 5.0 :FLOAT 5.0 :FLOAT)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 130.0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 120.0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FUNCALL.F-S-P.1
FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL DEFCFUN.CHAR<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.DOCSTRING
DEFCFUN.INT DEFCFUN.LONG DEFCFUN.LONG-LONG DEFCFUN.FLOAT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.DOUBLE
DEFCFUN.STRING.1 DEFCFUN.STRING.2 DEFCFUN.STRING.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.NOARGS<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.NOOP failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(NOOP)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
values: <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: NIL.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.VARARGS.DOCSTRINGS
DEFCFUN.VARARGS.CHAR DEFCFUN.VARARGS.SHORT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.VARARGS.INT
DEFCFUN.VARARGS.LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.VARARGS.FLOAT failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :FLOAT
(FLOAT PI)))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: "3.14"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: "f".<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.VARARGS.DOUBLE failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :DOUBLE
(FLOAT PI 1.0D0)))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: "3.14"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: "f".<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.VARARGS.STRING<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.BFF.1 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(SUM-127-NO-LL 1442906394 520035521 -4715 50335 -13557.0 -30892.0D0 24061483
-23737.0 22 2348 4986 104895680 8073.0D0 -571698147 102484400 (MAKE-POINTER
507907275) 12733353 7824 -1275845284 13602.0 (MAKE-POINTER 286958390) -8042.0
-773681663 -1289932452 31199 -154985357 -170994216 16845.0D0 177 218969221
2794350893 6068863 26327 127699339 (MAKE-POINTER 184352771) 18512.0D0
-12345.0D0 -179853040 -19981 37268 -792845398 116 -1084653028 50494 (MAKE-POINTER
2105239646) -1710519651 1557813312 2839.0D0 90 180 30580.0 -532698978 8623
9537.0D0 -10882 54 184357206 14929.0 -8190.0 -25615.0 (MAKE-POINTER 235310526)
(MAKE-POINTER 220476977) 7476055 1576685 -117 -11781 31479 23282640
(MAKE-POINTER 8627281) -17834.0 10391.0D0 -1904504370 114393659 -17062
637873619 16078 -891210259 8107 0 760.0D0 -21268 104 14133.0 10 588598141
310.0D0 20 1351785456 16159552 -10121.0D0 -25866 24821 68232851 60 -24132.0
-1660411658 13387.0 -786516668 -499825680 -1128144619 111849719 2746091587 -2
95 14488 326328135 64781 18204 150716680 -703859275 103 16809.0D0 852235610 -43
21088 242356110 324325428 -22380 23 24814.0 (MAKE-POINTER 40362014) -14322.0D0
-1864262539 523684371 -21 49995 -29175.0)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 796447501<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: -474122548.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.BFF.2 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(SUM-127 (MAKE-POINTER 2746181372) (MAKE-POINTER 177623060) -32334.0 3158055028
(MAKE-POINTER 242315091) 4288001754991016425 -21047.0D0 287.0D0 18722 243379286
-8677366518541007140 581399424 -13872 4240394881 1353358999 226 969197676
-26207.0D0 6484 11150 1241680089902988480 106068320 61865 2253 (MAKE-POINTER
866809333) -31613 35616 11715 1393601698 8940888681199591845 (MAKE-POINTER
1524606024) 805638893 3315410736 3432596795 (MAKE-POINTER 1490355706) 696175657106383698
-25438.0 1294381547 26724 (MAKE-POINTER 3196569545) 2506913373410783697
-4405955718732597856 4075932032 3224670123 2183829215657835866 1318320964 -22
-3786.0D0 -2017024146 1579225515 -626617701 -1456 (MAKE-POINTER 3561444187)
395687791 1968033632506257320 -1847773261 48853 142937735275669133 -17974.0
(MAKE-POINTER 2791749948) -14140.0 2707 3691328585 3306.0 1132012981
303633191773289330 (MAKE-POINTER 981183954) 9114.0D0 8664374572369470
-19013.0D0 -10288.0D0 -3679345119891954339 (MAKE-POINTER 3538786709) 23761
-154264605 (MAKE-POINTER 2694396308) 7023 997.0D0 1009561368 241 (MAKE-POINTER
2612292671) 48 1431872408 -32675.0D0 (MAKE-POINTER 1587599336) 958916472
-9857.0D0 111 -14370.0D0 -7308 -967514912 488790941 2146978095 -24111.0D0 13711
86681861 717987770 111 1013402998690933877 17234.0D0 -8772.0 3959216275 -8711
(MAKE-POINTER 3142780851) 9480.0 -3820453146461186120 1616574376
-3336232268263990050 -1906114671562979758 -27925.0D0 9695970875869913114
27033.0D0 1096518219 -12 104 3392025403 -27911 60 89 509297051 -533066551
29158.0 110 54 -9802.0D0 593950442165910888 -79)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 7758614658402721936<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 4968426957827221156.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.UNDEFINED<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.DOUBLE26 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(SUM-DOUBLE26 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0
3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0
3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 81.64D0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 75.36D0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.FLOAT26 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(SUM-FLOAT26 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0
5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 130.0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 120.0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.CHAR
CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT CALLBACKS.UNSIGNED-SHORT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.INT
CALLBACKS.UNSIGNED-INT CALLBACKS.LONG CALLBACKS.UNSIGNED-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.LONG-LONG
CALLBACKS.UNSIGNED-LONG-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.FLOAT failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(EXPECT-FLOAT-SUM (CALLBACK SUM-FLOAT))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.DOUBLE
CALLBACKS.POINTER CALLBACKS.STRING<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.STRING-NOT-DOCSTRING
CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.VOID
CALLBACKS.FUNCALL.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.FUNCALL.2 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(FOREIGN-FUNCALL-POINTER (CALLBACK SUM-2F) NIL FOO-FLOAT 1.0 FOO-FLOAT 2.0
FOO-FLOAT 3.0 FOO-FLOAT 4.0 FOO-FLOAT 5.0 FOO-FLOAT)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 6.0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 0.0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.BFF.1 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 2008547941<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: #<SIMPLE-ERROR #x2100EEBBAD>.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.BFF.2 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(CALL-SUM-127 (CALLBACK SUM-127))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 8166570665645582011<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: #<SIMPLE-ERROR #x2100EEB6AD>.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.NON-EXISTANT
CALLBACKS.DOUBLE26<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.DOUBLE26.FUNCALL failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(FOREIGN-FUNCALL-POINTER (CALLBACK DOUBLE26) NIL :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 81.64D0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 75.36D0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.FLOAT26 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(CALL-FLOAT26 (CALLBACK FLOAT26))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 130.0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 0.0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.FLOAT26.FUNCALL failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(FOREIGN-FUNCALL-POINTER (CALLBACK FLOAT26) NIL :FLOAT 5.0 :FLOAT 5.0 :FLOAT
5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT
5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT
5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT
5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 130.0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 0.0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.UNINTERNED
FOREIGN-GLOBALS.REF.CHAR FOREIGN-GLOBALS.REF.UNSIGNED-CHAR<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.SHORT
FOREIGN-GLOBALS.REF.UNSIGNED-SHORT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.INT
FOREIGN-GLOBALS.REF.UNSIGNED-INT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
FOREIGN-GLOBALS.REF.UNSIGNED-LONG failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
*VAR-UNSIGNED-LONG*<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 4294967295<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 4767060209866637311.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.FLOAT
FOREIGN-GLOBALS.REF.DOUBLE<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.POINTER
FOREIGN-GLOBALS.REF.STRING<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.LONG-LONG
FOREIGN-GLOBALS.REF.UNSIGNED-LONG-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.SET.INT
FOREIGN-GLOBALS.SET.STRING<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.SET.LONG-LONG
FOREIGN-GLOBALS.GET-VAR-POINTER.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.GET-VAR-POINTER.2
FOREIGN-GLOBALS.REF.UPPERCASEINT1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.UPPER-CASE-INT1
FOREIGN-GLOBALS.REF.MIXEDCASEINT1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.MIXED-CASE-INT1
FOREIGN-GLOBALS.REF.UPPERCASEINT2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.UPPER-CASE-INT2
FOREIGN-GLOBALS.REF.MIXEDCASEINT2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.MIXED-CASE-INT2
FOREIGN-GLOBALS.REF.UPPERCASEINT3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.UPPER-CASE-INT3
FOREIGN-GLOBALS.REF.MIXEDCASEINT3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.MIXED-CASE-INT3
FOREIGN-GLOBALS.SYMBOL-NAME<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.READ-ONLY.1
DEFCVAR.DOCSTRING DEREF.CHAR DEREF.UNSIGNED-CHAR<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.SHORT
DEREF.UNSIGNED-SHORT DEREF.INT DEREF.UNSIGNED-INT DEREF.LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.UNSIGNED-LONG
DEREF.LONG-LONG DEREF.UNSIGNED-LONG-LONG DEREF.FLOAT.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.FLOAT.2
DEREF.FLOAT.3 DEREF.DOUBLE.1 DEREF.DOUBLE.2 DEREF.DOUBLE.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.POINTER.NULL
LISP-STRING-TO-FOREIGN.EMPTY WITH-FOREIGN-POINTER.EVALX2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> WITH-FOREIGN-POINTER.CONSTANT-SIZE
MEM-REF.LEFT-TO-RIGHT %MEM-REF.LEFT-TO-RIGHT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> %MEM-SET.LEFT-TO-RIGHT
MEM-AREF.EVAL-TYPE-X2 MEM-AREF.LEFT-TO-RIGHT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> MEM-REF.NESTED
MEM-AREF.NESTED DEREF.AGGREGATE DEREF.ARRAY-OF-AGGREGATES<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> POINTER.1
POINTER.2 POINTER.NULL FOREIGN-POINTER-TYPE.NIL MAKE-POINTER.HIGH<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> INC-POINTER.ZERO
FOREIGN-ALLOC.1 FOREIGN-ALLOC.2 FOREIGN-ALLOC.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-ALLOC.4
FOREIGN-ALLOC.5 FOREIGN-ALLOC.6 FOREIGN-ALLOC.7 FOREIGN-ALLOC.8<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-ALLOC.9
DEREF.NONCONST.CHAR DEREF.NONCONST.UNSIGNED-CHAR<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.NONCONST.SHORT
DEREF.NONCONST.UNSIGNED-SHORT DEREF.NONCONST.INT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.NONCONST.UNSIGNED-INT
DEREF.NONCONST.LONG DEREF.NONCONST.UNSIGNED-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.NONCONST.LONG-LONG
DEREF.NONCONST.UNSIGNED-LONG-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.NONCONST.FLOAT.1
DEREF.NONCONST.FLOAT.2 DEREF.NONCONST.FLOAT.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.NONCONST.DOUBLE.1
DEREF.NONCONST.DOUBLE.2 DEREF.NONCONST.DOUBLE.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> MEM-REF.RT.1
MEM-REF.RT.2 INCF-POINTER.1 INCF-POINTER.2 POINTERP.1 POINTERP.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> POINTERP.3
POINTERP.4 POINTERP.5 POINTERP.6 MEM-REF.SETF.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> POINTER-EQ.NON-POINTERS.1
POINTER-EQ.NON-POINTERS.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> NULL-POINTER-P.NON-POINTER.1
NULL-POINTER-P.NON-POINTER.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> NULL-POINTER-P.NON-POINTER.3
STRING.CONVERSION.BASIC STRING.CONVERSION.BASIC.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> STRING.ENCODING.ASCII<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRING.ENCODING.UTF-16.BASIC failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-STRING (S *ASCII-TEST-STRING* :ENCODING :UTF-16)
(FOREIGN-STRING-TO-LISP S :ENCODING :UTF-16))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
values: "
!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>                
190<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
values: ""<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>              
190.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> STRING.SHORT-WRITE.1
STRING.ENCODING.UTF-8.BASIC<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRING.ENCODINGS.ALL.BASIC failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(LET (FAILED) (DOLIST (ENCODING (LIST-LATIN-COMPATIBLE-ENCODINGS) FAILED)
(WITH-FOREIGN-STRING (PTR *BASIC-LATIN-ALPHABET* :ENCODING ENCODING) (LET
((STRING (FOREIGN-STRING-TO-LISP PTR :ENCODING ENCODING))) (UNLESS (STRING=
*BASIC-LATIN-ALPHABET* STRING) (PUSH ENCODING FAILED))))))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: NIL<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: #<SIMPLE-ERROR #x2100D3DC5D>.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> STRING.ENCODINGS.DEFAULT
STRUCT.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRUCT.2 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-OBJECT (TV 'TIMEVAL) (SETF (FOREIGN-SLOT-VALUE TV 'TIMEVAL
'TV-SECS) 0) (SETF (FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-USECS) 1) (VALUES
(FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-SECS) (FOREIGN-SLOT-VALUE TV 'TIMEVAL
'TV-USECS)))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
values: 0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>                
1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
values: 4294967296<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>              
1.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRUCT.3 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-OBJECT (TV 'TIMEVAL) (WITH-FOREIGN-SLOTS ((TV-SECS TV-USECS) TV
TIMEVAL) (SETF TV-SECS 100 TV-USECS 200) (VALUES TV-SECS TV-USECS)))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
values: 100<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>                
200<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
values: 858993459300<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>              
200.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> STRUCT.4
STRUCT.NAMES STRUCT.5 STRUCT.STRING.1 STRUCT.STRING.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> STRUCT.ALIGNMENT.1
STRUCT.ALIGNMENT.2 STRUCT.ALIGNMENT.3 STRUCT.ALIGNMENT.4<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> STRUCT.ALIGNMENT.5
STRUCT.ALIGNMENT.6 STRUCT.ALIGNMENT.7 STRUCT.NESTED-SETF<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> STRUCT.ALIGNMENT.8<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRUCT-WRAPPER.1 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-EXAMPLE-TIMEVAL PTR (LET ((OBJ (MAKE-INSTANCE 'TIMEVAL :POINTER PTR)))
(VALUES (TIMEVAL-TV-SECS OBJ) (TIMEVAL-TV-USECS OBJ))))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
values: 42<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>                
1984<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
values: 8521215115306<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>              
1984.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRUCT-WRAPPER.2 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-EXAMPLE-TIMEVAL PTR (LET ((OBJ (MAKE-INSTANCE 'TIMEVAL2 :POINTER PTR)))
(TIMEVAL2-TV-SECS OBJ)))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 42<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 8521215115306.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> UNION.1
ENUM.1 ENUM.2 ENUM.3 BITFIELD.1 BITFIELD.2 BITFIELD.3 BITFIELD.4<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> MISC-TYPES.STRING+PTR
MISC-TYPES.BOOLEAN.1 MISC-TYPES.BOOLEAN.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> MISC-TYPES.WRAPPER
MISC-TYPES.SIZED-INTS MISC-TYPES.EXPAND.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> MISC-TYPES.EXPAND.2
MISC-TYPES.EXPAND.3 MISC-TYPES.EXPAND.4 MISC-TYPES.EXPAND.5<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> MISC-TYPES.EXPAND.6<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
FOREIGN-SYMBOL-POINTER.1 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(COMPARE-AGAINST-ABS (FOREIGN-SYMBOL-POINTER "abs"))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: T<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: NIL.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-SYMBOL-POINTER.2
LIBRARY.ERROR.1 LIBRARY.T-CLAUSE SHAREABLE-VECTOR.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> SHAREABLE-VECTOR.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>25
out of 235 total tests failed: FUNCALL.VARARGS.DOUBLE, FUNCALL.DOUBLE26,
FUNCALL.FLOAT26, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
DEFCFUN.NOOP, DEFCFUN.VARARGS.FLOAT, DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
DEFCFUN.BFF.2, DEFCFUN.DOUBLE26, DEFCFUN.FLOAT26, CALLBACKS.FLOAT, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
CALLBACKS.FUNCALL.2, CALLBACKS.BFF.1, CALLBACKS.BFF.2, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
CALLBACKS.DOUBLE26.FUNCALL, CALLBACKS.FLOAT26, CALLBACKS.FLOAT26.FUNCALL, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
FOREIGN-GLOBALS.REF.UNSIGNED-LONG, STRING.ENCODING.UTF-16.BASIC, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
STRING.ENCODINGS.ALL.BASIC, STRUCT.2, STRUCT.3, STRUCT-WRAPPER.1, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
STRUCT-WRAPPER.2, FOREIGN-SYMBOL-POINTER.1.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>20
unexpected failures: FUNCALL.VARARGS.DOUBLE, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
FUNCALL.DOUBLE26, FUNCALL.FLOAT26, DEFCFUN.VARARGS.FLOAT, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2, DEFCFUN.DOUBLE26, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
DEFCFUN.FLOAT26, CALLBACKS.FLOAT, CALLBACKS.FUNCALL.2, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
CALLBACKS.DOUBLE26.FUNCALL, CALLBACKS.FLOAT26, CALLBACKS.FLOAT26.FUNCALL, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
FOREIGN-GLOBALS.REF.UNSIGNED-LONG, STRUCT.2, STRUCT.3, STRUCT-WRAPPER.1, <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>  
STRUCT-WRAPPER.2, FOREIGN-SYMBOL-POINTER.1.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>;;;
running tests (compiled)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Doing
235 pending tests of 235 tests total.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FUNCALL.CHAR
FUNCALL.INT.1 FUNCALL.INT.2 FUNCALL.LONG FUNCALL.LONG-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FUNCALL.FLOAT
FUNCALL.DOUBLE FUNCALL.STRING.1 FUNCALL.STRING.2 FUNCALL.STRING.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FUNCALL.VARARGS.CHAR
FUNCALL.VARARGS.INT FUNCALL.VARARGS.LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
FUNCALL.VARARGS.DOUBLE failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-POINTER-AS-STRING (S 100) (SETF (MEM-REF S :CHAR) 0)
(FOREIGN-FUNCALL "sprintf" :POINTER S :STRING "%.2f"
:DOUBLE (COERCE PI 'DOUBLE-FLOAT) :INT))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: "3.14"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: "f".<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FUNCALL.VARARGS.STRING<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
FUNCALL.DOUBLE26 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(FOREIGN-FUNCALL "sum_double26" :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE
3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 81.64D0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 69.08D0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
FUNCALL.FLOAT26 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(FOREIGN-FUNCALL "sum_float26" :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0
:FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0
:FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0
:FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0
:FLOAT 5.0 :FLOAT 5.0 :FLOAT)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 130.0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: -1.5589412E+37.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FUNCALL.F-S-P.1
FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL DEFCFUN.CHAR<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.DOCSTRING
DEFCFUN.INT DEFCFUN.LONG DEFCFUN.LONG-LONG DEFCFUN.FLOAT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.DOUBLE
DEFCFUN.STRING.1 DEFCFUN.STRING.2 DEFCFUN.STRING.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.NOARGS<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.NOOP failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(NOOP)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
values: <o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: NIL.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.VARARGS.DOCSTRINGS
DEFCFUN.VARARGS.CHAR DEFCFUN.VARARGS.SHORT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.VARARGS.INT
DEFCFUN.VARARGS.LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.VARARGS.FLOAT failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :FLOAT
(FLOAT PI)))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: "3.14"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: "f".<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.VARARGS.DOUBLE failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :DOUBLE
(FLOAT PI 1.0D0)))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: "3.14"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: "f".<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.VARARGS.STRING<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.BFF.1 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(SUM-127-NO-LL 1442906394 520035521 -4715 50335 -13557.0 -30892.0D0 24061483
-23737.0 22 2348 4986 104895680 8073.0D0 -571698147 102484400 (MAKE-POINTER
507907275) 12733353 7824 -1275845284 13602.0 (MAKE-POINTER 286958390) -8042.0 -773681663
-1289932452 31199 -154985357 -170994216 16845.0D0 177 218969221 2794350893
6068863 26327 127699339 (MAKE-POINTER 184352771) 18512.0D0 -12345.0D0
-179853040 -19981 37268 -792845398 116 -1084653028 50494 (MAKE-POINTER
2105239646) -1710519651 1557813312 2839.0D0 90 180 30580.0 -532698978 8623
9537.0D0 -10882 54 184357206 14929.0 -8190.0 -25615.0 (MAKE-POINTER 235310526)
(MAKE-POINTER 220476977) 7476055 1576685 -117 -11781 31479 23282640
(MAKE-POINTER 8627281) -17834.0 10391.0D0 -1904504370 114393659 -17062
637873619 16078 -891210259 8107 0 760.0D0 -21268 104 14133.0 10 588598141
310.0D0 20 1351785456 16159552 -10121.0D0 -25866 24821 68232851 60 -24132.0
-1660411658 13387.0 -786516668 -499825680 -1128144619 111849719 2746091587 -2
95 14488 326328135 64781 18204 150716680 -703859275 103 16809.0D0 852235610 -43
21088 242356110 324325428 -22380 23 24814.0 (MAKE-POINTER 40362014) -14322.0D0
-1864262539 523684371 -21 49995 -29175.0)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 796447501<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: -474122548.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.BFF.2 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(SUM-127 (MAKE-POINTER 2746181372) (MAKE-POINTER 177623060) -32334.0 3158055028
(MAKE-POINTER 242315091) 4288001754991016425 -21047.0D0 287.0D0 18722 243379286
-8677366518541007140 581399424 -13872 4240394881 1353358999 226 969197676
-26207.0D0 6484 11150 1241680089902988480 106068320 61865 2253 (MAKE-POINTER
866809333) -31613 35616 11715 1393601698 8940888681199591845 (MAKE-POINTER
1524606024) 805638893 3315410736 3432596795 (MAKE-POINTER 1490355706)
696175657106383698 -25438.0 1294381547 26724 (MAKE-POINTER 3196569545)
2506913373410783697 -4405955718732597856 4075932032 3224670123
2183829215657835866 1318320964 -22 -3786.0D0 -2017024146 1579225515 -626617701
-1456 (MAKE-POINTER 3561444187) 395687791 1968033632506257320 -1847773261 48853
142937735275669133 -17974.0 (MAKE-POINTER 2791749948) -14140.0 2707 3691328585
3306.0 1132012981 303633191773289330 (MAKE-POINTER 981183954) 9114.0D0
8664374572369470 -19013.0D0 -10288.0D0 -3679345119891954339 (MAKE-POINTER
3538786709) 23761 -154264605 (MAKE-POINTER 2694396308) 7023 997.0D0 1009561368
241 (MAKE-POINTER 2612292671) 48 1431872408 -32675.0D0 (MAKE-POINTER
1587599336) 958916472 -9857.0D0 111 -14370.0D0 -7308 -967514912 488790941
2146978095 -24111.0D0 13711 86681861 717987770 111 1013402998690933877 17234.0D0
-8772.0 3959216275 -8711 (MAKE-POINTER 3142780851) 9480.0 -3820453146461186120
1616574376 -3336232268263990050 -1906114671562979758 -27925.0D0
9695970875869913114 27033.0D0 1096518219 -12 104 3392025403 -27911 60 89
509297051 -533066551 29158.0 110 54 -9802.0D0 593950442165910888 -79)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 7758614658402721936<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 4968426957827221156.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEFCFUN.UNDEFINED<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.DOUBLE26 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(SUM-DOUBLE26 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0
3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0
3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 81.64D0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 75.36D0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
DEFCFUN.FLOAT26 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(SUM-FLOAT26 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0
5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 130.0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 120.0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.CHAR
CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT CALLBACKS.UNSIGNED-SHORT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.INT
CALLBACKS.UNSIGNED-INT CALLBACKS.LONG CALLBACKS.UNSIGNED-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.LONG-LONG
CALLBACKS.UNSIGNED-LONG-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.FLOAT failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(EXPECT-FLOAT-SUM (CALLBACK SUM-FLOAT))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.DOUBLE
CALLBACKS.POINTER CALLBACKS.STRING<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.STRING-NOT-DOCSTRING
CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.VOID
CALLBACKS.FUNCALL.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.FUNCALL.2 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(FOREIGN-FUNCALL-POINTER (CALLBACK SUM-2F) NIL FOO-FLOAT 1.0 FOO-FLOAT 2.0
FOO-FLOAT 3.0 FOO-FLOAT 4.0 FOO-FLOAT 5.0 FOO-FLOAT)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 6.0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 0.0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.BFF.1 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 2008547941<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: #<SIMPLE-ERROR #x2100DF17DD>.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.BFF.2 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(CALL-SUM-127 (CALLBACK SUM-127))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 8166570665645582011<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: #<SIMPLE-ERROR #x2100DEF61D>.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.NON-EXISTANT
CALLBACKS.DOUBLE26<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.DOUBLE26.FUNCALL failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(FOREIGN-FUNCALL-POINTER (CALLBACK DOUBLE26) NIL :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0
:DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE
3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 81.64D0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 69.08D0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.FLOAT26 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(CALL-FLOAT26 (CALLBACK FLOAT26))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 130.0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 0.0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
CALLBACKS.FLOAT26.FUNCALL failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(FOREIGN-FUNCALL-POINTER (CALLBACK FLOAT26) NIL :FLOAT 5.0 :FLOAT 5.0 :FLOAT
5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT
5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT
5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT
5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT)<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 130.0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: -2.0.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> CALLBACKS.UNINTERNED
FOREIGN-GLOBALS.REF.CHAR FOREIGN-GLOBALS.REF.UNSIGNED-CHAR<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.SHORT
FOREIGN-GLOBALS.REF.UNSIGNED-SHORT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.INT
FOREIGN-GLOBALS.REF.UNSIGNED-INT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
FOREIGN-GLOBALS.REF.UNSIGNED-LONG failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
*VAR-UNSIGNED-LONG*<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 4294967295<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 4767060209866637311.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.FLOAT
FOREIGN-GLOBALS.REF.DOUBLE<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.POINTER
FOREIGN-GLOBALS.REF.STRING<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.LONG-LONG
FOREIGN-GLOBALS.REF.UNSIGNED-LONG-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.SET.INT
FOREIGN-GLOBALS.SET.STRING<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.SET.LONG-LONG
FOREIGN-GLOBALS.GET-VAR-POINTER.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.GET-VAR-POINTER.2
FOREIGN-GLOBALS.REF.UPPERCASEINT1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.UPPER-CASE-INT1
FOREIGN-GLOBALS.REF.MIXEDCASEINT1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.MIXED-CASE-INT1
FOREIGN-GLOBALS.REF.UPPERCASEINT2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.UPPER-CASE-INT2
FOREIGN-GLOBALS.REF.MIXEDCASEINT2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.MIXED-CASE-INT2
FOREIGN-GLOBALS.REF.UPPERCASEINT3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.UPPER-CASE-INT3
FOREIGN-GLOBALS.REF.MIXEDCASEINT3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.REF.MIXED-CASE-INT3
FOREIGN-GLOBALS.SYMBOL-NAME<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-GLOBALS.READ-ONLY.1
DEFCVAR.DOCSTRING DEREF.CHAR DEREF.UNSIGNED-CHAR<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.SHORT
DEREF.UNSIGNED-SHORT DEREF.INT DEREF.UNSIGNED-INT DEREF.LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.UNSIGNED-LONG
DEREF.LONG-LONG DEREF.UNSIGNED-LONG-LONG DEREF.FLOAT.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.FLOAT.2
DEREF.FLOAT.3 DEREF.DOUBLE.1 DEREF.DOUBLE.2 DEREF.DOUBLE.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.POINTER.NULL
LISP-STRING-TO-FOREIGN.EMPTY WITH-FOREIGN-POINTER.EVALX2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> WITH-FOREIGN-POINTER.CONSTANT-SIZE
MEM-REF.LEFT-TO-RIGHT %MEM-REF.LEFT-TO-RIGHT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> %MEM-SET.LEFT-TO-RIGHT
MEM-AREF.EVAL-TYPE-X2 MEM-AREF.LEFT-TO-RIGHT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> MEM-REF.NESTED
MEM-AREF.NESTED DEREF.AGGREGATE DEREF.ARRAY-OF-AGGREGATES<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> POINTER.1
POINTER.2 POINTER.NULL FOREIGN-POINTER-TYPE.NIL MAKE-POINTER.HIGH<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> INC-POINTER.ZERO
FOREIGN-ALLOC.1 FOREIGN-ALLOC.2 FOREIGN-ALLOC.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-ALLOC.4
FOREIGN-ALLOC.5 FOREIGN-ALLOC.6 FOREIGN-ALLOC.7 FOREIGN-ALLOC.8<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> FOREIGN-ALLOC.9
DEREF.NONCONST.CHAR DEREF.NONCONST.UNSIGNED-CHAR<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.NONCONST.SHORT
DEREF.NONCONST.UNSIGNED-SHORT DEREF.NONCONST.INT<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.NONCONST.UNSIGNED-INT
DEREF.NONCONST.LONG DEREF.NONCONST.UNSIGNED-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.NONCONST.LONG-LONG
DEREF.NONCONST.UNSIGNED-LONG-LONG<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.NONCONST.FLOAT.1
DEREF.NONCONST.FLOAT.2 DEREF.NONCONST.FLOAT.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> DEREF.NONCONST.DOUBLE.1
DEREF.NONCONST.DOUBLE.2 DEREF.NONCONST.DOUBLE.3<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> MEM-REF.RT.1
MEM-REF.RT.2 INCF-POINTER.1 INCF-POINTER.2 POINTERP.1 POINTERP.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> POINTERP.3
POINTERP.4 POINTERP.5 POINTERP.6 MEM-REF.SETF.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> POINTER-EQ.NON-POINTERS.1
POINTER-EQ.NON-POINTERS.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> NULL-POINTER-P.NON-POINTER.1
NULL-POINTER-P.NON-POINTER.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> NULL-POINTER-P.NON-POINTER.3
STRING.CONVERSION.BASIC STRING.CONVERSION.BASIC.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> </span><span
style='font-size:10.0pt;font-family:"Courier New"'>STRING.ENCODING.ASCII<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRING.ENCODING.UTF-16.BASIC failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-STRING (S *ASCII-TEST-STRING* :ENCODING :UTF-16)
(FOREIGN-STRING-TO-LISP S :ENCODING :UTF-16))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
values: "
!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~"<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>                
</span><span style='font-size:10.0pt;font-family:"Courier New"'>190<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>Actual
values: ""<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>              
190.<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'> </span><span
lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>STRING.SHORT-WRITE.1
STRING.ENCODING.UTF-8.BASIC<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRING.ENCODINGS.ALL.BASIC failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(LET (FAILED) (DOLIST (ENCODING (LIST-LATIN-COMPATIBLE-ENCODINGS) FAILED)
(WITH-FOREIGN-STRING (PTR *BASIC-LATIN-ALPHABET* :ENCODING ENCODING) (LET
((STRING (FOREIGN-STRING-TO-LISP PTR :ENCODING ENCODING))) (UNLESS (STRING=
*BASIC-LATIN-ALPHABET* STRING) (PUSH ENCODING FAILED))))))<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: NIL<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: #<SIMPLE-ERROR #x2100E8629D>.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> STRING.ENCODINGS.DEFAULT
STRUCT.1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRUCT.2 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-OBJECT (TV 'TIMEVAL) (SETF (FOREIGN-SLOT-VALUE TV 'TIMEVAL
'TV-SECS) 0) (SETF (FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-USECS) 1) (VALUES
(FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-SECS) (FOREIGN-SLOT-VALUE TV 'TIMEVAL
'TV-USECS)))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
values: 0<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>            
    1<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
values: 4294967296<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>              
1.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRUCT.3 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-FOREIGN-OBJECT (TV 'TIMEVAL) (WITH-FOREIGN-SLOTS ((TV-SECS TV-USECS) TV
TIMEVAL) (SETF TV-SECS 100 TV-USECS 200) (VALUES TV-SECS TV-USECS)))<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>Expected
values: 100<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>          
      200<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
values: 858993459300<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>              
200.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> STRUCT.4
STRUCT.NAMES STRUCT.5 STRUCT.STRING.1 STRUCT.STRING.2<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> STRUCT.ALIGNMENT.1
STRUCT.ALIGNMENT.2 STRUCT.ALIGNMENT.3 STRUCT.ALIGNMENT.4<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> STRUCT.ALIGNMENT.5
STRUCT.ALIGNMENT.6 STRUCT.ALIGNMENT.7 STRUCT.NESTED-SETF<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> </span><span
style='font-size:10.0pt;font-family:"Courier New"'>STRUCT.ALIGNMENT.8<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRUCT-WRAPPER.1 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-EXAMPLE-TIMEVAL PTR (LET ((OBJ (MAKE-INSTANCE 'TIMEVAL :POINTER PTR)))
(VALUES (TIMEVAL-TV-SECS OBJ) (TIMEVAL-TV-USECS OBJ))))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
values: 42<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>                
1984<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
values: 8521215115306<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>              
1984.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Test
STRUCT-WRAPPER.2 failed<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Form:
(WITH-EXAMPLE-TIMEVAL PTR (LET ((OBJ (MAKE-INSTANCE 'TIMEVAL2 :POINTER PTR)))
(TIMEVAL2-TV-SECS OBJ)))<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Expected
value: 42<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Actual
value: 8521215115306.<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'> UNION.1
ENUM.1 ENUM.2 ENUM.3 BITFIELD.1 BITFIELD.2<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>%rax
= 0x000000c600000000      %r8  = 0x0000000000427410<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>%rcx
= 0x000000ffffffffff      %r9  =
0x0000005c0010002e<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>%rdx
= 0x0000000000427400      %r10 = 0x0000000000000000<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>%rbx
= 0x00000005b3da9550      %r11 = 0x0000000000000202<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>%rsp
= 0x0000000002b2ee30      %r12 = 0x0000000002b2f4e8<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>%rbp
= 0x0000000000000000      %r13 = 0x000000000000000b<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>%rsi
= 0x0000000000420000      %r14 = 0x000000014029a38e<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>%rdi
= 0x0000000000427410      %r15 = 0x0000002100f4359d<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'>%rip
= 0x0000000077241c30   %rflags = 0x00010206<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Exception
on foreign stack<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Exception
occurred while executing foreign code<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>?
for help<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>[3420]
Clozure CL kernel debugger:<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Does
someone know why this happens?<o:p></o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>

<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:"Courier New"'>Thank
you Louis.<o:p></o:p></span></p>

</div>

</body>

</html>