From rjain at common-lisp.net Mon Feb 16 02:17:14 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Sun, 15 Feb 2004 21:17:14 -0500 Subject: [Defeditor-cvs] CVS update: Module imported: DefEditor Message-ID: Update of /project/defeditor/cvsroot/DefEditor In directory common-lisp.net:/tmp/cvs-serv24714 Log Message: Initial Import Status: Vendor Tag: rjain Release Tags: start N DefEditor/structure.lisp N DefEditor/lisp-structure-reader.lisp N DefEditor/lisp-structure.lisp N DefEditor/presentation.lisp N DefEditor/package.lisp No conflicts created by this import Date: Sun Feb 15 21:17:14 2004 Author: rjain New module DefEditor added From rjain at common-lisp.net Mon Feb 16 02:20:14 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Sun, 15 Feb 2004 21:20:14 -0500 Subject: [Defeditor-cvs] CVS update: DefEditor/structure.lisp Message-ID: Update of /project/defeditor/cvsroot/DefEditor In directory common-lisp.net:/tmp/cvs-serv18976 Modified Files: structure.lisp Log Message: stylistic tweak Date: Sun Feb 15 21:20:14 2004 Author: rjain Index: DefEditor/structure.lisp diff -u DefEditor/structure.lisp:1.1.1.1 DefEditor/structure.lisp:1.2 --- DefEditor/structure.lisp:1.1.1.1 Sun Feb 15 21:17:14 2004 +++ DefEditor/structure.lisp Sun Feb 15 21:20:14 2004 @@ -18,8 +18,8 @@ (list (structure-content structure))) (defmethod (setf structure-contents) (new-value (structure structure-branch-item)) - (if (and (consp new-value) (endp (cdr new-value))) - (setf (structure-content structure) (car new-value)) + (if (and (consp new-value) (endp (rest new-value))) + (setf (structure-content structure) (first new-value)) (error "Can't set single-item branch's contents to multiple items."))) (defclass structure-leaf (structure-element) From rjain at common-lisp.net Mon Feb 16 02:22:04 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Sun, 15 Feb 2004 21:22:04 -0500 Subject: [Defeditor-cvs] CVS update: Directory change: DefEditor/src Message-ID: Update of /project/defeditor/cvsroot/DefEditor/src In directory common-lisp.net:/tmp/cvs-serv22176/src Log Message: Directory /project/defeditor/cvsroot/DefEditor/src added to the repository Date: Sun Feb 15 21:22:04 2004 Author: rjain New directory DefEditor/src added From rjain at common-lisp.net Mon Feb 16 02:23:09 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Sun, 15 Feb 2004 21:23:09 -0500 Subject: [Defeditor-cvs] CVS update: DefEditor/lisp-structure-reader.lisp DefEditor/lisp-structure.lisp DefEditor/package.lisp DefEditor/presentation.lisp DefEditor/structure.lisp Message-ID: Update of /project/defeditor/cvsroot/DefEditor In directory common-lisp.net:/tmp/cvs-serv27300 Removed Files: lisp-structure-reader.lisp lisp-structure.lisp package.lisp presentation.lisp structure.lisp Log Message: move code into src/ dir Date: Sun Feb 15 21:23:09 2004 Author: rjain From rjain at common-lisp.net Mon Feb 16 02:23:10 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Sun, 15 Feb 2004 21:23:10 -0500 Subject: [Defeditor-cvs] CVS update: DefEditor/src/lisp-structure-reader.lisp DefEditor/src/lisp-structure.lisp DefEditor/src/package.lisp DefEditor/src/presentation.lisp DefEditor/src/structure.lisp Message-ID: Update of /project/defeditor/cvsroot/DefEditor/src In directory common-lisp.net:/tmp/cvs-serv27300/src Added Files: lisp-structure-reader.lisp lisp-structure.lisp package.lisp presentation.lisp structure.lisp Log Message: move code into src/ dir Date: Sun Feb 15 21:23:09 2004 Author: rjain From rjain at common-lisp.net Mon Feb 16 02:24:05 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Sun, 15 Feb 2004 21:24:05 -0500 Subject: [Defeditor-cvs] CVS update: DefEditor/src/COPYRIGHT Message-ID: Update of /project/defeditor/cvsroot/DefEditor/src In directory common-lisp.net:/tmp/cvs-serv9825/src Added Files: COPYRIGHT Log Message: add copyright notice Date: Sun Feb 15 21:24:05 2004 Author: rjain From rjain at common-lisp.net Mon Feb 16 02:46:30 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Sun, 15 Feb 2004 21:46:30 -0500 Subject: [Defeditor-cvs] CVS update: Directory change: DefEditor/website Message-ID: Update of /project/defeditor/cvsroot/DefEditor/website In directory common-lisp.net:/tmp/cvs-serv15175/website Log Message: Directory /project/defeditor/cvsroot/DefEditor/website added to the repository Date: Sun Feb 15 21:46:30 2004 Author: rjain New directory DefEditor/website added From rjain at common-lisp.net Mon Feb 16 05:46:27 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Mon, 16 Feb 2004 00:46:27 -0500 Subject: [Defeditor-cvs] CVS update: DefEditor/website/Makefile DefEditor/website/website.lisp Message-ID: Update of /project/defeditor/cvsroot/DefEditor/website In directory common-lisp.net:/tmp/cvs-serv1847/website Added Files: Makefile website.lisp Log Message: add a website for this project Date: Mon Feb 16 00:46:27 2004 Author: rjain From rjain at common-lisp.net Mon Feb 16 05:48:24 2004 From: rjain at common-lisp.net (Rahul Jain) Date: Mon, 16 Feb 2004 00:48:24 -0500 Subject: [Defeditor-cvs] CVS update: DefEditor/website/website.lisp Message-ID: 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")))