- bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] hans changed deployed/lisp-ecoop/
by BKNR Commits 20 Nov '08

20 Nov '08

Revision: 4076 Author: hans URL: http://bknr.net/trac/changeset/4076 Copy last version that Didier changed. A deployed/lisp-ecoop/ Copied: deployed/lisp-ecoop (from rev 3392, trunk)

1 0

[bknr-cvs] hans changed deployed/lisp-ecoop/
by BKNR Commits 20 Nov '08

20 Nov '08

Revision: 4075 Author: hans URL: http://bknr.net/trac/changeset/4075 try yet again D deployed/lisp-ecoop/

1 0

[bknr-cvs] hans changed deployed/lisp-ecoop/
by BKNR Commits 20 Nov '08

20 Nov '08

Revision: 4074 Author: hans URL: http://bknr.net/trac/changeset/4074 deployed version branch, second try --his line, and those below, will be ignored-- A svn+ssh://bknr.net/svn/deployed/lisp-ecoop A deployed/lisp-ecoop/ Copied: deployed/lisp-ecoop (from rev 3314, trunk)

1 0

[bknr-cvs] hans changed deployed/lisp-ecoop/
by BKNR Commits 20 Nov '08

20 Nov '08

Revision: 4073 Author: hans URL: http://bknr.net/trac/changeset/4073 Remove, copied wrong version. D deployed/lisp-ecoop/

1 0

[bknr-cvs] hans changed trunk/thirdparty/emacs/vc-svn.el
by BKNR Commits 20 Nov '08

20 Nov '08

Revision: 4072 Author: hans URL: http://bknr.net/trac/changeset/4072 Make svn mode more tolerant when the output of svn status is not quite what it expects. U trunk/thirdparty/emacs/vc-svn.el Modified: trunk/thirdparty/emacs/vc-svn.el =================================================================== --- trunk/thirdparty/emacs/vc-svn.el 2008-11-20 16:13:02 UTC (rev 4071) +++ trunk/thirdparty/emacs/vc-svn.el 2008-11-20 16:31:19 UTC (rev 4072) @@ -184,7 +184,8 @@ (match-string 3))) ((looking-at "^I +") nil) ;; An ignored file ((looking-at " \\{40\\}") nil) ;; A file that is not in the wc nor svn? - (t (error "Couldn't parse output from `svn status -v'"))))) + (t (warn "Couldn't parse output from `svn status -v'") + nil)))) (defun vc-svn-parse-state-only ()

1 0

[bknr-cvs] hans changed deployed/lisp-ecoop/
by BKNR Commits 20 Nov '08

20 Nov '08

Revision: 4071 Author: hans URL: http://bknr.net/trac/changeset/4071 Deployed version of the elw/lisp-ecoop application A deployed/lisp-ecoop/ Copied: deployed/lisp-ecoop (from rev 2319, trunk)

1 0

[bknr-cvs] hans changed deployed/
by BKNR Commits 20 Nov '08

20 Nov '08

Revision: 4070 Author: hans URL: http://bknr.net/trac/changeset/4070 Make directory for deployed versions. A deployed/

1 0

[bknr-cvs] hans changed trunk/libraries/clixdoc/make-doc.lisp
by BKNR Commits 15 Nov '08

15 Nov '08

Revision: 4069 Author: hans URL: http://bknr.net/trac/changeset/4069 make clix-description work for things other than symbols (i.e. setf-functions) U trunk/libraries/clixdoc/make-doc.lisp Modified: trunk/libraries/clixdoc/make-doc.lisp =================================================================== --- trunk/libraries/clixdoc/make-doc.lisp 2008-11-15 12:56:45 UTC (rev 4068) +++ trunk/libraries/clixdoc/make-doc.lisp 2008-11-15 13:22:41 UTC (rev 4069) @@ -24,7 +24,10 @@ ((find name args :test #'string-equal) (with-clix-element ("arg") (text (string-downcase name)))) - ((find name *current-doc-entries* :key #'first :test #'string-equal) + ((find-if (lambda (doc-entry) + (when (symbolp doc-entry) + (string-equal name doc-entry))) + *current-doc-entries*) (with-clix-element ("ref") (text name))) (t

1 0

[bknr-cvs] hans changed trunk/libraries/release.sh
by BKNR Commits 15 Nov '08

15 Nov '08

Revision: 4068 Author: hans URL: http://bknr.net/trac/changeset/4068 commit release shell script A trunk/libraries/release.sh Added: trunk/libraries/release.sh =================================================================== --- trunk/libraries/release.sh (rev 0) +++ trunk/libraries/release.sh 2008-11-15 12:56:45 UTC (rev 4068) @@ -0,0 +1,35 @@ +#!/bin/sh + +set -e + +package=$1 +release=$2 + +if [ "$release" = "" ] +then + echo usage: $0 '<package>' '<release>' 1>&2 + exit 1 +fi + +packagerel=$1-$2 +webhost=common-lisp.net +webdir=/project/$package/public_html + +repo=`svn info yason | grep "Repository Root" | awk -F': ' '{print $2}'` + +set -x +svn status $package +svn rm -m "remove previous $packagerel from repository" $repo/releases/$package/$release +svn cp -m "release $packagerel" $repo/trunk/libraries/$package $repo/releases/$package/$release +svn co $repo/releases/$package/$release $packagerel + +if [ -f $packagerel/doc.xml ] +then + xsltproc clixdoc/clixdoc.xsl $packagerel/doc.xml > $packagerel/index.html +fi + +tar --exclude .svn --exclude '*.fasl' --exclude '*.log' \ + -cvzf $packagerel.tar.gz $packagerel/* + +scp $packagerel/index.html $packagerel.tar.gz ${webhost}:${webdir} +ssh $webhost "cd $webdir ; rm -f $package.tar.gz ; ln -s $packagerel.tar.gz $package.tar.gz"

1 0

[bknr-cvs] hans changed trunk/bknr/datastore/src/data/json.lisp
by BKNR Commits 15 Nov '08

15 Nov '08

Revision: 4067 Author: hans URL: http://bknr.net/trac/changeset/4067 Make STREAM argument in json:encode method optional. U trunk/bknr/datastore/src/data/json.lisp Modified: trunk/bknr/datastore/src/data/json.lisp =================================================================== --- trunk/bknr/datastore/src/data/json.lisp 2008-11-15 11:37:30 UTC (rev 4066) +++ trunk/bknr/datastore/src/data/json.lisp 2008-11-15 12:06:55 UTC (rev 4067) @@ -6,7 +6,7 @@ `(let ((*ignore-slots* (append *ignore-slots* ,slots))) ,@body)) -(defmethod json:encode ((object store-object) stream) +(defmethod json:encode ((object store-object) &optional (stream *standard-output*)) (json:with-output (stream) (json:with-object () (dolist (slotdef (closer-mop:class-slots (class-of object)))

1 0