[Defeditor-cvs] CVS update: DefEditor/website/website.lisp

[Rahul Jain]

Update of /project/defeditor/cvsroot/DefEditor/website
In directory common-lisp.net:/tmp/cvs-serv5756

Modified Files:
	website.lisp 
Log Message:
oops, fix cvsroot for code file links

Date: Mon Feb 16 00:48:24 2004
Author: rjain

Index: DefEditor/website/website.lisp
diff -u DefEditor/website/website.lisp:1.1 DefEditor/website/website.lisp:1.2
--- DefEditor/website/website.lisp:1.1	Mon Feb 16 00:46:27 2004
+++ DefEditor/website/website.lisp	Mon Feb 16 00:48:23 2004
@@ -10,7 +10,7 @@
 (defabbreviation DefEditor (doc italic () "Def") (doc small-caps () "Editor"))
 
 (defun gen-src-link (target)
-  (concatenate 'string "/cgi-bin/viewcvs.cgi/DefEditor/src" target "?cvsroot=defdoc"
+  (concatenate 'string "/cgi-bin/viewcvs.cgi/DefEditor/src" target "?cvsroot=defeditor"
                (unless (eql (aref target (1- (length target))) #\/)
                  "&rev=HEAD&content-type=text/vnd.viewcvs-markup")))