[albert-cvs] CVS: albert/spres/rules package.lisp,1.16,1.17

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

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)