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

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/doc/index.xml
by BKNR Commits 24 Aug '10

24 Aug '10

Revision: 4583 Author: edi URL: http://bknr.net/trac/changeset/4583 Mention BKNR repository U trunk/thirdparty/hunchentoot/doc/index.xml Modified: trunk/thirdparty/hunchentoot/doc/index.xml =================================================================== --- trunk/thirdparty/hunchentoot/doc/index.xml 2010-08-24 04:20:16 UTC (rev 4582) +++ trunk/thirdparty/hunchentoot/doc/index.xml 2010-08-24 07:11:34 UTC (rev 4583) @@ -183,8 +183,10 @@ For questions, bug reports, feature requests, improvements, or patches please use the <a href="http://common-lisp.net/mailman/listinfo/tbnl-devel">tbnl-devel - mailing list</a>. If you want to be notified about future - releases subscribe to the + mailing list</a> and take a look at + the <a href="http://bknr.net/trac/browser/trunk/thirdparty">BKNR + repository</a>. If you want to be notified about future releases + subscribe to the <a href="http://common-lisp.net/mailman/listinfo/tbnl-announce">tbnl-announce mailing list</a>. These mailing lists were made available thanks to the services of

1 0

[bknr-cvs] hans changed deployed/bos/
by BKNR Commits 24 Aug '10

24 Aug '10

Revision: 4582 Author: hans URL: http://bknr.net/trac/changeset/4582 fixes for sbcl U deployed/bos/bknr/web/src/web/menu.lisp U deployed/bos/thirdparty/kmrcl-1.97/impl.lisp Modified: deployed/bos/bknr/web/src/web/menu.lisp =================================================================== --- deployed/bos/bknr/web/src/web/menu.lisp 2010-08-22 19:33:01 UTC (rev 4581) +++ deployed/bos/bknr/web/src/web/menu.lisp 2010-08-24 04:20:16 UTC (rev 4582) @@ -43,8 +43,7 @@ (declare (ignore menu-name)) (let* ((menu (bknr.impex:parse-xml-file #+cmu (ext:unix-namestring (merge-pathnames config *default-pathname-defaults*)) - #+sbcl (sb-int:unix-namestring (merge-pathnames config *default-pathname-defaults*)) - #-(or cmu sbcl) (namestring (probe-file (merge-pathnames config *default-pathname-defaults*))) + #-cmu (namestring (probe-file (merge-pathnames config *default-pathname-defaults*))) *menu-def-classes*))) (html ((:div :class container-class) Modified: deployed/bos/thirdparty/kmrcl-1.97/impl.lisp =================================================================== --- deployed/bos/thirdparty/kmrcl-1.97/impl.lisp 2010-08-22 19:33:01 UTC (rev 4581) +++ deployed/bos/thirdparty/kmrcl-1.97/impl.lisp 2010-08-24 04:20:16 UTC (rev 4582) @@ -36,7 +36,7 @@ :name nil :type nil :version nil :defaults path) path)))) - +#+(or) (defun probe-directory (filename &key (error-if-does-not-exist nil)) (let* ((path (canonicalize-directory-name filename)) (probe

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/
by BKNR Commits 22 Aug '10

22 Aug '10

Revision: 4581 Author: edi URL: http://bknr.net/trac/changeset/4581 Revert changes because they break LispWorks implementation U trunk/thirdparty/hunchentoot/acceptor.lisp U trunk/thirdparty/hunchentoot/doc/index.xml U trunk/thirdparty/hunchentoot/headers.lisp U trunk/thirdparty/hunchentoot/hunchentoot.asd U trunk/thirdparty/hunchentoot/packages.lisp U trunk/thirdparty/hunchentoot/taskmaster.lisp D trunk/thirdparty/hunchentoot/version.lisp Change set too large, please see URL above

1 0

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/
by BKNR Commits 21 Aug '10

21 Aug '10

Revision: 4580 Author: hans URL: http://bknr.net/trac/changeset/4580 Limit number of worker threads that Hunchentoot creates in multi-threaded mode, by Scott McKay. Extend Hunchentoot's 'one-thread-per-connection-taskmaster' to support :max-thread-count keyword argument. When this configured number of threads is currently active serving new requests, no new threads will be created. In addition, a new :max-accept-count parameter has been added that controls how many concurrent connections will be accepted by Hunchentoot U trunk/thirdparty/hunchentoot/acceptor.lisp U trunk/thirdparty/hunchentoot/doc/index.xml U trunk/thirdparty/hunchentoot/headers.lisp U trunk/thirdparty/hunchentoot/hunchentoot.asd U trunk/thirdparty/hunchentoot/packages.lisp U trunk/thirdparty/hunchentoot/taskmaster.lisp A trunk/thirdparty/hunchentoot/version.lisp Change set too large, please see URL above

1 0

[bknr-cvs] hans changed trunk/thirdparty/slime/
by BKNR Commits 21 Aug '10

21 Aug '10

Revision: 4579 Author: hans URL: http://bknr.net/trac/changeset/4579 update slime U trunk/thirdparty/slime/.cvsignore U trunk/thirdparty/slime/CVS/Entries A trunk/thirdparty/slime/CVS/Template U trunk/thirdparty/slime/ChangeLog U trunk/thirdparty/slime/README U trunk/thirdparty/slime/contrib/CVS/Entries A trunk/thirdparty/slime/contrib/CVS/Template U trunk/thirdparty/slime/contrib/ChangeLog U trunk/thirdparty/slime/contrib/inferior-slime.el U trunk/thirdparty/slime/contrib/slime-asdf.el U trunk/thirdparty/slime/contrib/slime-autodoc.el U trunk/thirdparty/slime/contrib/slime-banner.el U trunk/thirdparty/slime/contrib/slime-c-p-c.el U trunk/thirdparty/slime/contrib/slime-clipboard.el U trunk/thirdparty/slime/contrib/slime-compiler-notes-tree.el U trunk/thirdparty/slime/contrib/slime-editing-commands.el U trunk/thirdparty/slime/contrib/slime-enclosing-context.el U trunk/thirdparty/slime/contrib/slime-fancy-inspector.el U trunk/thirdparty/slime/contrib/slime-fancy.el U trunk/thirdparty/slime/contrib/slime-fontifying-fu.el U trunk/thirdparty/slime/contrib/slime-fuzzy.el U trunk/thirdparty/slime/contrib/slime-highlight-edits.el A trunk/thirdparty/slime/contrib/slime-hyperdoc.el D trunk/thirdparty/slime/contrib/slime-indentation-fu.el U trunk/thirdparty/slime/contrib/slime-indentation.el U trunk/thirdparty/slime/contrib/slime-mdot-fu.el U trunk/thirdparty/slime/contrib/slime-motd.el U trunk/thirdparty/slime/contrib/slime-mrepl.el U trunk/thirdparty/slime/contrib/slime-package-fu.el U trunk/thirdparty/slime/contrib/slime-parse.el U trunk/thirdparty/slime/contrib/slime-presentation-streams.el U trunk/thirdparty/slime/contrib/slime-presentations.el U trunk/thirdparty/slime/contrib/slime-references.el U trunk/thirdparty/slime/contrib/slime-repl.el U trunk/thirdparty/slime/contrib/slime-sbcl-exts.el U trunk/thirdparty/slime/contrib/slime-scratch.el A trunk/thirdparty/slime/contrib/slime-snapshot.el U trunk/thirdparty/slime/contrib/slime-sprof.el U trunk/thirdparty/slime/contrib/slime-tramp.el U trunk/thirdparty/slime/contrib/slime-typeout-frame.el U trunk/thirdparty/slime/contrib/slime-xref-browser.el U trunk/thirdparty/slime/contrib/swank-arglists.lisp U trunk/thirdparty/slime/contrib/swank-asdf.lisp U trunk/thirdparty/slime/contrib/swank-c-p-c.lisp U trunk/thirdparty/slime/contrib/swank-fancy-inspector.lisp U trunk/thirdparty/slime/contrib/swank-fuzzy.lisp A trunk/thirdparty/slime/contrib/swank-hyperdoc.lisp D trunk/thirdparty/slime/contrib/swank-indentation-fu.lisp U trunk/thirdparty/slime/contrib/swank-kawa.scm U trunk/thirdparty/slime/contrib/swank-package-fu.lisp U trunk/thirdparty/slime/contrib/swank-presentations.lisp A trunk/thirdparty/slime/contrib/swank-snapshot.lisp U trunk/thirdparty/slime/contrib/swank-sprof.lisp U trunk/thirdparty/slime/doc/CVS/Entries A trunk/thirdparty/slime/doc/CVS/Template U trunk/thirdparty/slime/doc/Makefile U trunk/thirdparty/slime/doc/slime.texi U trunk/thirdparty/slime/hyperspec.el U trunk/thirdparty/slime/slime.el A trunk/thirdparty/slime/start-swank.lisp U trunk/thirdparty/slime/swank-abcl.lisp U trunk/thirdparty/slime/swank-allegro.lisp U trunk/thirdparty/slime/swank-backend.lisp U trunk/thirdparty/slime/swank-ccl.lisp U trunk/thirdparty/slime/swank-clisp.lisp U trunk/thirdparty/slime/swank-cmucl.lisp U trunk/thirdparty/slime/swank-corman.lisp U trunk/thirdparty/slime/swank-ecl.lisp U trunk/thirdparty/slime/swank-lispworks.lisp U trunk/thirdparty/slime/swank-loader.lisp A trunk/thirdparty/slime/swank-match.lisp D trunk/thirdparty/slime/swank-openmcl.lisp A trunk/thirdparty/slime/swank-rpc.lisp U trunk/thirdparty/slime/swank-sbcl.lisp U trunk/thirdparty/slime/swank-scl.lisp U trunk/thirdparty/slime/swank-source-file-cache.lisp U trunk/thirdparty/slime/swank.lisp D trunk/thirdparty/slime/test-all.sh U trunk/thirdparty/slime/test.sh Change set too large, please see URL above

1 0

[bknr-cvs] hans changed deployed/quickhoney/projects/quickhoney/
by BKNR Commits 16 Aug '10

16 Aug '10

Revision: 4578 Author: hans URL: http://bknr.net/trac/changeset/4578 save changes from old production system U deployed/quickhoney/projects/quickhoney/src/handlers.lisp U deployed/quickhoney/projects/quickhoney/src/init.lisp U deployed/quickhoney/projects/quickhoney/src/load.lisp U deployed/quickhoney/projects/quickhoney/src/quickhoney.asd A deployed/quickhoney/projects/quickhoney/src/run.sh U deployed/quickhoney/projects/quickhoney/website/static/index.css U deployed/quickhoney/projects/quickhoney/website/static/javascript.js U deployed/quickhoney/projects/quickhoney/website/templates/index.xml Modified: deployed/quickhoney/projects/quickhoney/src/handlers.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/handlers.lisp 2010-08-05 19:51:03 UTC (rev 4577) +++ deployed/quickhoney/projects/quickhoney/src/handlers.lisp 2010-08-16 10:46:22 UTC (rev 4578) @@ -334,13 +334,6 @@ :spider-keywords spider-keywords)))) (with-http-response () (with-http-body () - (let ((tinyurl (drakma:http-request - (format nil "http://tinyurl.com/api-create.php?url=~A" - (hunchentoot:url-encode (format nil "http://quickhoney.com~A/~A" - (handler-path handler) image-name)))))) - (twitter:update-status (bknr-session-user) - (format nil "Uploaded new image ~A: ~A" - image-name tinyurl))) (html (:html (:head (:title "Upload successful") @@ -405,8 +398,6 @@ (apply #'make-store-image :image uploaded-image args) (apply #'import-image (upload-pathname uploaded-file) args)))) (declare (ignore item)) ; for now - (twitter:update-status (bknr-session-user) - (format nil "Posted news item: http://quickhoney.com/news/~A" name)) (with-http-response () (with-http-body () (html (:html @@ -596,6 +587,10 @@ (defclass shutdown-handler (admin-only-handler page-handler) ()) +(defvar *acceptor* nil) + (defmethod handle ((handler shutdown-handler)) - (hunchentoot:stop-server hunchentoot:*server*) + (when *acceptor* + (hunchentoot:stop *acceptor*) + (setf *acceptor* nil)) "Shutting down HTTP server") Modified: deployed/quickhoney/projects/quickhoney/src/init.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/init.lisp 2010-08-05 19:51:03 UTC (rev 4577) +++ deployed/quickhoney/projects/quickhoney/src/init.lisp 2010-08-16 10:46:22 UTC (rev 4578) @@ -36,8 +36,10 @@ (format t "; loading site configuration file~%") (let ((*package* (find-package :quickhoney.config))) (load "site-config.lisp"))) - (bt:make-thread (curry #'hunchentoot:start-server - :port *webserver-port* - :threaded nil - :persistent-connections-p nil) + (setf *acceptor* (make-instance 'hunchentoot:acceptor + :port *webserver-port* + :taskmaster (make-instance 'hunchentoot:single-threaded-taskmaster) + :persistent-connections-p nil + :request-dispatcher 'bknr.web:bknr-dispatch)) + (bt:make-thread (curry #'hunchentoot:start *acceptor*) :name (format nil "HTTP server on port ~A" *webserver-port*))) Modified: deployed/quickhoney/projects/quickhoney/src/load.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/load.lisp 2010-08-05 19:51:03 UTC (rev 4577) +++ deployed/quickhoney/projects/quickhoney/src/load.lisp 2010-08-16 10:46:22 UTC (rev 4578) @@ -1,3 +1,20 @@ +;; -*- Lisp -*- + +(require 'asdf) + +(defun setup-registry (directory-path) + (format t "; adding components under ~A to asdf registry~%" directory-path) + (mapc (lambda (asd-pathname) + (pushnew (make-pathname :name nil + :type nil + :version nil + :defaults asd-pathname) + asdf:*central-registry* + :test #'equal)) + (directory (merge-pathnames #p"**/*.asd" directory-path)))) + +(setup-registry #P"../../../") + (push :cl-gd-gif *features*) (asdf:oos 'asdf:load-op :quickhoney) Modified: deployed/quickhoney/projects/quickhoney/src/quickhoney.asd =================================================================== --- deployed/quickhoney/projects/quickhoney/src/quickhoney.asd 2010-08-05 19:51:03 UTC (rev 4577) +++ deployed/quickhoney/projects/quickhoney/src/quickhoney.asd 2010-08-16 10:46:22 UTC (rev 4578) @@ -27,7 +27,7 @@ :cl-gd :unit-test :yason - :cl-pdf) + #+(or) :cl-pdf) :components ((:file "packages") (:file "config" :depends-on ("packages")) @@ -41,8 +41,8 @@ (:file "webserver" :depends-on ("handlers")) (:file "daily" :depends-on ("config")) - (:file "turtle" :depends-on ("packages")) - (:file "pixel-pdf" :depends-on ("turtle")) + #+(or) (:file "turtle" :depends-on ("packages")) + #+(or) (:file "pixel-pdf" :depends-on ("turtle")) (:file "money" :depends-on ("packages")) (:file "shop" :depends-on ("money")) Added: deployed/quickhoney/projects/quickhoney/src/run.sh =================================================================== --- deployed/quickhoney/projects/quickhoney/src/run.sh (rev 0) +++ deployed/quickhoney/projects/quickhoney/src/run.sh 2010-08-16 10:46:22 UTC (rev 4578) @@ -0,0 +1,8 @@ +#!/bin/sh + +while true +do + sbcl --dynamic-space-size 800 --no-userinit --load load.lisp --eval '(quickhoney::startup)' + ps axw | mail -s 'quickhoney crashed' hans.huebner(a)gmail.com + sleep 10 +done Property changes on: deployed/quickhoney/projects/quickhoney/src/run.sh ___________________________________________________________________ Added: svn:executable + * Modified: deployed/quickhoney/projects/quickhoney/website/static/index.css =================================================================== --- deployed/quickhoney/projects/quickhoney/website/static/index.css 2010-08-05 19:51:03 UTC (rev 4577) +++ deployed/quickhoney/projects/quickhoney/website/static/index.css 2010-08-16 10:46:22 UTC (rev 4578) @@ -120,20 +120,20 @@ #menu.contact a#m_contact img.unselected { visibility: hidden } #m_home { top: 30px; left: 36px; } +/* #m_pixel { top: 36px; left: 247px; } #m_vector { top: 36px; left: 317px; } #m_pen { top: 36px; left: 398px; } #m_news { top: 36px; left: 450px; } #m_shop { top: 36px; left: 523px; } #m_contact { top: 36px; left: 586px; } +*/ -/* #m_pixel { top: 36px; left: 259px; } #m_vector { top: 36px; left: 340px; } #m_pen { top: 36px; left: 435px; } #m_news { top: 36px; left: 500px; } #m_contact { top: 36px; left: 586px; } -*/ #menu img.selected { visibility: hidden; Modified: deployed/quickhoney/projects/quickhoney/website/static/javascript.js =================================================================== --- deployed/quickhoney/projects/quickhoney/website/static/javascript.js 2010-08-05 19:51:03 UTC (rev 4577) +++ deployed/quickhoney/projects/quickhoney/website/static/javascript.js 2010-08-16 10:46:22 UTC (rev 4578) @@ -653,8 +653,8 @@ /* workaround for IE, which does not display the overlapping menu items expectedly */ map(function (keyword) { - $('m_' + keyword).style.zIndex = (keyword == pagename) ? 101 : 100; - }, ['pixel', 'vector', 'pen', 'news', 'shop', 'contact']); /* , 'shop' disabled */ + $('m_' + keyword).style.zIndex = (keyword == pagename) ? 101 : 100; + }, ['pixel', 'vector', 'pen', 'news', 'contact']); /* , 'shop' disabled */ // Activate the menu by coloring the menu choices correctly $('menu').className = pagename; Modified: deployed/quickhoney/projects/quickhoney/website/templates/index.xml =================================================================== --- deployed/quickhoney/projects/quickhoney/website/templates/index.xml 2010-08-05 19:51:03 UTC (rev 4577) +++ deployed/quickhoney/projects/quickhoney/website/templates/index.xml 2010-08-16 10:46:22 UTC (rev 4578) @@ -40,10 +40,12 @@ <img alt="" class="unselected" src="/image/news-unselected" /> <img alt="" class="selected" src="/image/news-selected" /> </a> +  <a href="#contact" id="m_contact"> <img alt="" class="unselected" src="/image/contact-unselected" /> <img alt="" class="selected" src="/image/contact-selected" /> @@ -184,9 +186,11 @@ Keywords:<br /> <input type="text" id="upload_keywords" name="spider-keywords" value="" size="60" /><br /> <input type="checkbox" id="explicit" name="explicit" value="1" /> Explicit<br/> +  </p> <p class="cms"> <input type="submit" name="upload" value="upload" /> @@ -253,9 +257,11 @@ Keywords:<br /> <input type="text" id="edit_keywords" name="spider-keywords" value="" size="60" /><br /> <input type="checkbox" id="edit_explicit" name="explicit" value="1" /> Explicit<br/> +  </p> <p class="cms"> <button type="submit" onclick="do_edit();">edit</button>

1 0