[graphic-forms-cvs] r398 - trunk/docs/manual

[junrue at common-lisp.net]

Author: junrue
Date: Sat Nov 18 09:05:48 2006
New Revision: 398

Modified:
   trunk/docs/manual/gf-data.xsl
Log:
fixed multi-arg setf syntax

Modified: trunk/docs/manual/gf-data.xsl
==============================================================================
--- trunk/docs/manual/gf-data.xsl	(original)
+++ trunk/docs/manual/gf-data.xsl	Sat Nov 18 09:05:48 2006
@@ -209,7 +209,7 @@
       syntax
     </xsl:element>
 
-    <xsl:element name="para">
+    <para role="normal">
       <xsl:attribute name="role">normal</xsl:attribute>
       (<xsl:value-of select="concat(../../@name,':',../@name)"/>
        <xsl:element name="emphasis">
@@ -223,26 +223,23 @@
           <xsl:if test="not(position()=last())">, </xsl:if>
         </xsl:for-each>
       </xsl:element>
-    </xsl:element>
+    </para>
 
     <xsl:if test="@with-setf">
       <xsl:element name="para">
         <xsl:attribute name="role">normal</xsl:attribute>
         (setf (<xsl:value-of select="concat(../../@name,':',../@name,' ')"/>
-               <emphasis>
-                 <xsl:call-template name="first-word">
-                   <xsl:with-param name="raw-text" select="arguments/argument[1]/@name"/>
-                 </xsl:call-template>
-               </emphasis>)
         <emphasis>
-          <xsl:for-each select="arguments/argument">
-            <xsl:if test="position() > 1">
-              <xsl:value-of select="concat(' ', @name)"/>
-            </xsl:if>
+          <xsl:for-each select="arguments/argument | arguments/notarg">
+            <xsl:value-of select="concat(' ', @name)"/>
           </xsl:for-each>
         </emphasis>
         <xsl:element name="emphasis">
-          <xsl:apply-templates select="return"/>
+          <xsl:for-each select="return/*">
+            <xsl:if test="position()=last()">)</xsl:if>
+            <xsl:value-of select="' '"/>
+            <xsl:apply-templates select="."/>
+          </xsl:for-each>
         </xsl:element>)
       </xsl:element>
     </xsl:if>