Update of /cvsroot/albert/albert/spres/rules
In directory sc8-pr-cvs1:/tmp/cvs-serv5578/spres/rules
Modified Files:
package.lisp
Log Message:
fixed dodgy filenames for generated files
Index: package.lisp
===================================================================
RCS file: /cvsroot/albert/albert/spres/rules/package.lisp,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** package.lisp 27 Oct 2003 16:40:45 -0000 1.16
--- package.lisp 27 Oct 2003 17:16:45 -0000 1.17
***************
*** 222,226 ****
(file-id (strcat "package" +id-word-delim+ "contentlist" +id-word-delim+
(make-valid-entity cl-name)))
! (fname (strcat cl-name "/" "contentlist"))
(?rec-state :refsect1)
(?parent obj)
--- 222,226 ----
(file-id (strcat "package" +id-word-delim+ "contentlist" +id-word-delim+
(make-valid-entity cl-name)))
! (fname (strcat (make-valid-entity cl-name) "/" "contentlist"))
(?rec-state :refsect1)
(?parent obj)
|
