[albert-cvs] CVS: albert/spres generated.lisp,1.48,1.49

[Stig E S. <st...@us...>]

Update of /cvsroot/albert/albert/spres
In directory sc8-pr-cvs1:/tmp/cvs-serv26069/spres

Modified Files:
	generated.lisp 
Log Message:
tweaking for release

Index: generated.lisp
===================================================================
RCS file: /cvsroot/albert/albert/spres/generated.lisp,v
retrieving revision 1.48
retrieving revision 1.49
diff -C2 -d -r1.48 -r1.49
*** generated.lisp	27 Oct 2003 17:40:09 -0000	1.48
--- generated.lisp	27 Oct 2003 19:02:13 -0000	1.49
***************
*** 252,263 ****
             (eol))
        (tree-put doc
!                 `(:refmeta ,nil
!                            (:refentrytitle ,nil ,title)
!                            (:manvolnum nil 3)
!                            (:refmiscinfo nil "Project name")))
        (tree-put doc
!                 `(:refnamediv ,nil
!                               (:refname ,nil ,title)
!                               (:refpurpose ,nil ,(if purpose purpose ""))))
        (unless no-desc
          (tree-put doc
--- 252,260 ----
             (eol))
        (tree-put doc
!                 `(:refmeta ,nil (:refentrytitle ,nil ,title) (:manvolnum nil 3)
!                   (:refmiscinfo nil "Project name")))
        (tree-put doc
!                 `(:refnamediv ,nil (:refname ,nil ,title)
!                   (:refpurpose ,nil ,(if purpose purpose ""))))
        (unless no-desc
          (tree-put doc
***************
*** 280,284 ****
            (tree-put doc
                      `(:simpara ,nil
!                                ,(list-to-sep-string export-list :and-word (get-word "and" doc))))))
          (put doc "</refsect1>" (eol)))
        (when inherit-list
--- 277,283 ----
            (tree-put doc
                      `(:simpara ,nil
!                       ,(list-to-sep-string export-list
!                                            :and-word
!                                            (get-word "and" doc))))))
          (put doc "</refsect1>" (eol)))
        (when inherit-list
***************
*** 303,307 ****
            (tree-put doc
                      `(:simpara ,nil
!                                ,(list-to-sep-string inherit-list :and-word (get-word "and" doc))))))
          (put doc "</refsect1>" (eol)))
        (unless (has-spres-flag? :simple-package)
--- 302,308 ----
            (tree-put doc
                      `(:simpara ,nil
!                       ,(list-to-sep-string inherit-list
!                                            :and-word
!                                            (get-word "and" doc))))))
          (put doc "</refsect1>" (eol)))
        (unless (has-spres-flag? :simple-package)
***************
*** 903,907 ****
        (tree-put doc
                  `(:programlisting ,nil
!                                   ,(get-variable-signature doc obj :linked nil :style :intuitive)))
        (when formal-pres
          (put doc "   <variablelist>" (eol) "    <title></title>" (eol))
--- 904,913 ----
        (tree-put doc
                  `(:programlisting ,nil
!                   ,(get-variable-signature doc
!                                            obj
!                                            :linked
!                                            nil
!                                            :style
!                                            :intuitive)))
        (when formal-pres
          (put doc "   <variablelist>" (eol) "    <title></title>" (eol))
***************
*** 1123,1129 ****
               (cond
                ((and (eq ?list-style :clever-sort))
!                (print-content-list-clever-sort-of-content-presenter obj
!                                                                     doc
!                                                                     content-list))
                (t
                 (warn "Fell through ~s and obj is ~s"
--- 1129,1134 ----
               (cond
                ((and (eq ?list-style :clever-sort))
!                (print-content-list-clever-sort-of-content-presenter obj doc
!                 content-list))
                (t
                 (warn "Fell through ~s and obj is ~s"