-
-
- The datastore
+
- The datastore manual describes the persistence mechanism including the CLOS-based indexing facility
-- The KlammerScript manual and The KlammerScript manual and reference describe the Lisp to Javascript converter
From bknr at bknr.net Mon Feb 6 09:42:19 2006 From: bknr at bknr.net (bknr at bknr.net) Date: Mon, 6 Feb 2006 03:42:19 -0600 (CST) Subject: [bknr-cvs] r1822 - trunk/projects/quickhoney/website/static Message-ID: <20060206094219.DFBBB2A038@common-lisp.net> Author: hhubner Date: 2006-02-06 03:42:15 -0600 (Mon, 06 Feb 2006) New Revision: 1822 Modified: trunk/projects/quickhoney/website/static/javascript.js Log: Add explicit cell border (how did this get lost?) Modified: trunk/projects/quickhoney/website/static/javascript.js =================================================================== --- trunk/projects/quickhoney/website/static/javascript.js 2006-02-01 07:04:35 UTC (rev 1821) +++ trunk/projects/quickhoney/website/static/javascript.js 2006-02-06 09:42:15 UTC (rev 1822) @@ -527,17 +527,17 @@ document.getElementById("path").innerHTML = path_links.join(" / "); } -/* home image */ +/* home image - called from homeimage.onload */ function home_loaded(image) { debug('home_loaded - image is ' + image + ' width: ' + image.width); + image.style.left = (36 + (648 - image.width) / 2) + 'px'; + image.style.top = (114 + (648 - image.height) / 2) + 'px'; + reveal_image(image); - document.getElementById("homeimage").style.left = (36 + (648 - image.width) / 2) + 'px'; - document.getElementById("homeimage").style.top = (114 + (648 - image.height) / 2) + 'px'; - if (logged_in) { var current_home_image = image.src.substring(image.src.indexOf('/image/') + 7); if (current_home_image != 'trans') { @@ -744,7 +744,7 @@ thumbnail_html += '' + '' + ''; } @@ -876,17 +876,6 @@ detail_window.focus(); } -/* nice_jobs() is a special form of a subdirectory which does not have a parent directory */ - -function nice_jobs() { - - document.getElementById("clients").style.visibility = 'hidden'; - - current_directory = 'clients'; - current_image = null; - subdirectory('nicejobs'); -} - /* Used from image-detail to load the current image */ function load_image() { @@ -964,7 +953,7 @@ document.getElementById("debugger").style.visibility = 'visible'; document.getElementById("debugger").style.left = '730px'; document.getElementById("debugger").style.width = '400px'; - document.getElementById("debugger").style.heigth = '640px'; + document.getElementById("debugger").style.height = '640px'; } else { document.getElementById("debugger").style.left = "1px"; document.getElementById("debugger").style.right = "1px"; From bknr at bknr.net Mon Feb 6 18:33:09 2006 From: bknr at bknr.net (bknr at bknr.net) Date: Mon, 6 Feb 2006 12:33:09 -0600 (CST) Subject: [bknr-cvs] r1823 - trunk/projects/quickhoney/src Message-ID: <20060206183309.9EB672A038@common-lisp.net> Author: hhubner Date: 2006-02-06 12:33:09 -0600 (Mon, 06 Feb 2006) New Revision: 1823 Modified: trunk/projects/quickhoney/src/config.lisp trunk/projects/quickhoney/src/init.lisp Log: Deployment changes. Modified: trunk/projects/quickhoney/src/config.lisp =================================================================== --- trunk/projects/quickhoney/src/config.lisp 2006-02-06 09:42:15 UTC (rev 1822) +++ trunk/projects/quickhoney/src/config.lisp 2006-02-06 18:33:09 UTC (rev 1823) @@ -3,10 +3,10 @@ ;; URL f?r BASE HREFs (defparameter *website-url* "http://quickhoney.com") -(defparameter *root-directory* #p"home:bknr-svn/quickhoney/") +(defparameter *root-directory* #p"home:bknr-svn/projects/quickhoney/") (defparameter *store-directory* (merge-pathnames #p"datastore/" *root-directory*)) (defparameter *website-directory* (merge-pathnames #p"website/" *root-directory*)) -(defparameter *webserver-port* 8080) \ No newline at end of file +(defparameter *webserver-port* 8080) Modified: trunk/projects/quickhoney/src/init.lisp =================================================================== --- trunk/projects/quickhoney/src/init.lisp 2006-02-06 09:42:15 UTC (rev 1822) +++ trunk/projects/quickhoney/src/init.lisp 2006-02-06 18:33:09 UTC (rev 1823) @@ -1,6 +1,7 @@ (in-package :quickhoney) (defun startup () + (setq cxml::*default-catalog* '("/home/hans/share/xml/catalog")) (when *store* (close-store)) (make-instance 'store @@ -14,3 +15,6 @@ (bknr.cron:make-cron-job "snapshot" 'snapshot-store 0 5 :every :every)) (actor-start (make-instance 'cron-actor)) (publish-quickhoney)) + +(eval-when (load) + (startup)) From bknr at bknr.net Mon Feb 6 18:36:31 2006 From: bknr at bknr.net (bknr at bknr.net) Date: Mon, 6 Feb 2006 12:36:31 -0600 (CST) Subject: [bknr-cvs] r1824 - in trunk/bknr/src: . data indices utils Message-ID: <20060206183631.A52207200C@common-lisp.net> Author: hhubner Date: 2006-02-06 12:36:30 -0600 (Mon, 06 Feb 2006) New Revision: 1824 Modified: trunk/bknr/src/bknr-datastore.asd trunk/bknr/src/bknr-utils.asd trunk/bknr/src/data/blob.lisp trunk/bknr/src/data/encoding.lisp trunk/bknr/src/data/object.lisp trunk/bknr/src/data/package.lisp trunk/bknr/src/data/txn.lisp trunk/bknr/src/indices/indexed-class.lisp trunk/bknr/src/indices/package.lisp trunk/bknr/src/utils/package.lisp trunk/bknr/src/utils/smbpasswd.lisp trunk/bknr/src/utils/utils.lisp Log: SBCL and OpenMCL compatibility changes by Hoan Ton-That. Modified: trunk/bknr/src/bknr-datastore.asd =================================================================== --- trunk/bknr/src/bknr-datastore.asd 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/bknr-datastore.asd 2006-02-06 18:36:30 UTC (rev 1824) @@ -16,8 +16,11 @@ :licence "BSD" :description "baikonour - launchpad for lisp satellites" - :depends-on (:cl-interpol :unit-test :bknr-utils :bknr-indices - :acl-compat) + :depends-on (:cl-interpol + :unit-test + :bknr-utils + :bknr-indices + #+(not allegro) :acl-compat) :components ((:module "data" :components ((:file "package") (:file "encoding" :depends-on ("package")) Modified: trunk/bknr/src/bknr-utils.asd =================================================================== --- trunk/bknr/src/bknr-utils.asd 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/bknr-utils.asd 2006-02-06 18:36:30 UTC (rev 1824) @@ -28,7 +28,7 @@ (:module "utils" :components ((:file "package") (:file "utils" :depends-on ("package")) (:file "class" :depends-on ("package" "utils")) - #+(or cmu allegro sbcl) + #+(or cmu allegro openmcl sbcl) (:file "smbpasswd" :depends-on ("utils")) (:file "actor" :depends-on ("utils")) (:file "reader" :depends-on ("utils")) Modified: trunk/bknr/src/data/blob.lisp =================================================================== --- trunk/bknr/src/data/blob.lisp 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/data/blob.lisp 2006-02-06 18:36:30 UTC (rev 1824) @@ -154,13 +154,7 @@ blob)) (defmethod rename-file-to-blob ((blob blob) pathname) - ;; xxx fixme: hier sollte ggf. copy-file benutzt werden, damit das - ;; auch ?ber Filesystemgrenzen hinweg funktioniert. - #+cmu - (unix:unix-rename (namestring pathname) - (namestring (blob-pathname blob))) - #+allegro - (rename-file pathname (blob-pathname blob))) + (move-file pathname (blob-pathname blob))) (defmethod restore-subsystem ((store store) (subsystem blob-subsystem) &key until) (declare (ignore until)) Modified: trunk/bknr/src/data/encoding.lisp =================================================================== --- trunk/bknr/src/data/encoding.lisp 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/data/encoding.lisp 2006-02-06 18:36:30 UTC (rev 1824) @@ -120,6 +120,9 @@ (defun %write-char (char stream) (write-byte (char-code char) stream)) +(defun %write-string (string stream) + (dotimes (i (length string)) + (%write-char (char string i) stream))) ;;;; binary encoding @@ -168,10 +171,10 @@ (defun %encode-string (object stream) (%encode-integer (length object) stream) + #+allegro + (excl::stream-write-sequence stream object) #-allegro - (write-string object stream) - #+allegro - (excl::stream-write-sequence stream object)) + (%write-string object stream)) (defun encode-string (object stream) (%write-char #\s stream) @@ -196,26 +199,36 @@ object)) (defun %encode-single-float (object stream) - #+cmu - (%encode-int32 (kernel:single-float-bits object) stream) #+allegro (map nil #'(lambda (short) (%encode-int16 short stream)) - (multiple-value-list (excl::single-float-to-shorts object)))) + (multiple-value-list (excl::single-float-to-shorts object))) + #+cmu + (%encode-int32 (kernel:single-float-bits object) stream) + #+openmcl + (%encode-int32 (ccl::single-float-bits object) stream) + #+sbcl + (%encode-int32 (sb-kernel:single-float-bits object) stream)) (defun encode-single-float (object stream) (%write-char #\f stream) (%encode-single-float object stream)) (defun %encode-double-float (object stream) - #+cmu - (%encode-int32 (kernel:double-float-high-bits object) stream) - #+cmu - (%encode-int32 (kernel:double-float-low-bits object) stream) - #+allegro + #+cmucl (map nil #'(lambda (short) (%encode-int16 short stream)) - (multiple-value-list (excl::double-float-to-shorts object)))) + (multiple-value-list (excl::double-float-to-shorts object))) + #+cmu + (progn (%encode-int32 (kernel:double-float-high-bits object) stream) + (%encode-int32 (kernel:double-float-low-bits object) stream)) + #+openmcl + (multiple-value-bind (hi lo) (ccl::double-float-bits object) + (%encode-int32 hi stream) + (%encode-int32 lo stream)) + #+sbcl + (progn (%encode-int32 (sb-kernel:double-float-high-bits object) stream) + (%encode-int32 (sb-kernel:double-float-low-bits object) stream))) (defun encode-double-float (object stream) (%write-char #\d stream) @@ -327,21 +340,31 @@ result)) (defun %decode-single-float (stream) + #+allegro + (excl::shorts-to-single-float (%decode-uint16 stream) + (%decode-uint16 stream)) #+cmu (kernel:make-single-float (%decode-sint32 stream)) - #+allegro - (excl::shorts-to-single-float (%decode-uint16 stream) - (%decode-uint16 stream))) + #+openmcl + (make-single-float (%decode-sint32 stream)) + #+sbcl + (sb-kernel:make-single-float (%decode-sint32 stream))) (defun %decode-double-float (stream) - #+cmu - (kernel:make-double-float (%decode-sint32 stream) - (%decode-uint32 stream)) #+allegro (excl::shorts-to-double-float (%decode-uint16 stream) (%decode-uint16 stream) (%decode-uint16 stream) - (%decode-uint16 stream))) + (%decode-uint16 stream)) + #+cmu + (kernel:make-double-float (%decode-sint32 stream) + (%decode-uint32 stream)) + #+openmcl + (make-double-float (%decode-sint32 stream) + (%decode-uint32 stream)) + #+sbcl + (sb-kernel:make-double-float (%decode-sint32 stream) + (%decode-uint32 stream))) (defun %decode-array (stream) (let* ((element-type (%decode-symbol stream)) @@ -380,3 +403,44 @@ (t (decode-object tag stream))))) (defgeneric decode-object (tag stream)) + +;;;; OpenMCL does not have these functions +(defun make-single-float (bits) + (cond + ;; IEEE float special cases + ((zerop bits) 0.0) + ((= bits #x-80000000) -0.0) + (t (let* ((sign (ecase (ldb (byte 1 31) bits) + (0 1.0) + (1 -1.0))) + (iexpt (ldb (byte 8 23) bits)) + (expt (if (zerop iexpt) ; denormalized + -126 + (- iexpt 127))) + (mant (* (logior (ldb (byte 23 0) bits) + (if (zerop iexpt) + 0 + (ash 1 23))) + (expt 0.5 23)))) + (* sign (expt 2.0 expt) mant))))) + +#+openmcl +(defun make-double-float (hi lo) + (cond + ;; IEEE float special cases + ((and (zerop hi) (zerop lo)) 0.0d0) + ((and (= hi #x-80000000) (zerop lo)) -0.0d0) + (t (let* ((bits (logior (ash hi 32) lo)) + (sign (ecase (ldb (byte 1 63) bits) + (0 1.0d0) + (1 -1.0d0))) + (iexpt (ldb (byte 11 52) bits)) + (expt (if (zerop iexpt) ; denormalized + -1022 + (- iexpt 1023))) + (mant (* (logior (ldb (byte 52 0) bits) + (if (zerop iexpt) + 0 + (ash 1 52))) + (expt 0.5d0 52)))) + (* sign (expt 2.0d0 expt) mant))))) Modified: trunk/bknr/src/data/object.lisp =================================================================== --- trunk/bknr/src/data/object.lisp 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/data/object.lisp 2006-02-06 18:36:30 UTC (rev 1824) @@ -211,6 +211,15 @@ (:metaclass persistent-class) , at class-options))) +(defmacro defpersistent-class (class (&rest superclasses) slots &rest class-options) + (let ((superclasses (or superclasses '(store-object)))) + (when (member :metaclass class-options :key #'car) + (error "Can not define a persistent class with a metaclass.")) + `(eval-when (:compile-toplevel :load-toplevel :execute) + (defclass ,class ,superclasses ,slots + (:metaclass persistent-class) + , at class-options)))) + #+nil (define-persistent-class foo () ((a :read))) Modified: trunk/bknr/src/data/package.lisp =================================================================== --- trunk/bknr/src/data/package.lisp 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/data/package.lisp 2006-02-06 18:36:30 UTC (rev 1824) @@ -7,9 +7,10 @@ :mp #+(not allegro) :acl-compat.mp + #+allegro :aclmop #+cmu :pcl - #+sbcl :sb-mop - #+allegro :aclmop) + #+openmcl :openmcl-mop + #+sbcl :sb-mop) #+(not allegro) (:shadowing-import-from :acl-compat.mp process-kill process-wait) (:shadowing-import-from :cl-interpol quote-meta-chars) @@ -41,6 +42,7 @@ #:persistent-xml-class #:persistent-xml-class-importer #:define-persistent-class + #:defpersistent-class #:store-object #:store-object-store Modified: trunk/bknr/src/data/txn.lisp =================================================================== --- trunk/bknr/src/data/txn.lisp 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/data/txn.lisp 2006-02-06 18:36:30 UTC (rev 1824) @@ -297,7 +297,9 @@ ;; dabei waere sync()-Semantik zu erwarten. (finish-output stream) #+cmu - (unix:unix-fsync (kernel::fd-stream-fd stream))) + (unix:unix-fsync (kernel::fd-stream-fd stream)) + #+sbcl + (sb-posix:fsync (sb-kernel::fd-stream-fd stream))) (defvar *disable-sync* nil) @@ -431,7 +433,7 @@ (close-transaction-log-stream store) ;; CMUCL will, dass das directory existiert, ACL nicht - #+cmu + #+(or cmu sbcl) (ensure-directories-exist backup-directory) (when *store-debug* @@ -490,7 +492,9 @@ (copy-stream s r)))) (format t "~&; truncating transaction log at position ~D.~%" p) #+cmu - (unix:unix-truncate (ext:unix-namestring pathname) p))))) + (unix:unix-truncate (ext:unix-namestring pathname) p) + #+sbcl + (sb-posix:truncate (namestring pathname) p))))) (defgeneric restore-subsystem (store subsystem &key until)) Modified: trunk/bknr/src/indices/indexed-class.lisp =================================================================== --- trunk/bknr/src/indices/indexed-class.lisp 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/indices/indexed-class.lisp 2006-02-06 18:36:30 UTC (rev 1824) @@ -235,12 +235,12 @@ ;;; avoid late instantiation -#+(or allegro cmu sbcl) +#+(or allegro cmu openmcl sbcl) (defmethod initialize-instance :after ((class indexed-class) &key &allow-other-keys) (compute-class-indices class (indexed-class-index-definitions class)) (reinitialize-class-indices class)) -#+(or allegro cmu sbcl) +#+(or allegro cmu openmcl sbcl) (defmethod reinitialize-instance :after ((class indexed-class) &key &allow-other-keys) (compute-class-indices class (indexed-class-index-definitions class)) (reinitialize-class-indices class)) Modified: trunk/bknr/src/indices/package.lisp =================================================================== --- trunk/bknr/src/indices/package.lisp 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/indices/package.lisp 2006-02-06 18:36:30 UTC (rev 1824) @@ -11,6 +11,7 @@ :bknr.skip-list #+allegro :aclmop #+cmu :pcl + #+openmcl :openmcl-mop #+sbcl :sb-pcl) (:export #:index-add #:index-get Modified: trunk/bknr/src/utils/package.lisp =================================================================== --- trunk/bknr/src/utils/package.lisp 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/utils/package.lisp 2006-02-06 18:36:30 UTC (rev 1824) @@ -5,15 +5,11 @@ :cl-ppcre :cl-interpol :cxml-xmls - #+cmu - :extensions :md5 -; #+sbcl -; :sb-ext - #+(not allegro) - :acl-compat.mp - #+allegro - :mp) + #+cmu :extensions +; #+sbcl :sb-ext + #+(not allegro) :acl-compat.mp + #+allegro :mp) (:shadowing-import-from :cl-interpol quote-meta-chars) #+(not allegro) (:shadowing-import-from :acl-compat.mp process-kill process-wait) Modified: trunk/bknr/src/utils/smbpasswd.lisp =================================================================== --- trunk/bknr/src/utils/smbpasswd.lisp 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/utils/smbpasswd.lisp 2006-02-06 18:36:30 UTC (rev 1824) @@ -32,6 +32,10 @@ (unless (zerop (process-exit-code process)) (error (make-condition 'smb-password-error :message (get-output-stream-string stream)))) (process-close process))) + #+openmcl + (ccl::run-program +smb-wrapper-program+ + args + :output stream) #+sbcl (let ((process (sb-ext:run-program +smb-wrapper-program+ args :output stream :error :output))) Modified: trunk/bknr/src/utils/utils.lisp =================================================================== --- trunk/bknr/src/utils/utils.lisp 2006-02-06 18:33:09 UTC (rev 1823) +++ trunk/bknr/src/utils/utils.lisp 2006-02-06 18:36:30 UTC (rev 1824) @@ -134,6 +134,7 @@ (let ((hostname #+allegro (sys:getenv "HOST") #+cmu (cdr (assoc :host ext:*environment-list*)) + #+openmcl (ccl::getenv "HOST") #+sbcl (sb-ext:posix-getenv "HOST"))) (unless hostname (error "HOST environment variable not set, can't continue")) @@ -169,7 +170,7 @@ (when (< read-count 4096) (return))))))) (defun move-file (file1 file2) - #+allegro + #+(or allegro openmcl) (rename-file file1 file2) #+cmu (unix:unix-rename (namestring file1) @@ -524,6 +525,8 @@ (aclmop:class-direct-subclasses class) #+cmu (pcl:class-direct-subclasses class) + #+openmcl + (openmcl-mop:class-direct-subclasses class) #+sbcl (sb-mop:class-direct-subclasses class))) (apply #'append subclasses From bknr at bknr.net Tue Feb 7 11:18:44 2006 From: bknr at bknr.net (bknr at bknr.net) Date: Tue, 7 Feb 2006 05:18:44 -0600 (CST) Subject: [bknr-cvs] r1825 - trunk/projects/bknr-website/templates Message-ID: <20060207111844.208442A03A@common-lisp.net> Author: hhubner Date: 2006-02-07 05:18:43 -0600 (Tue, 07 Feb 2006) New Revision: 1825 Modified: trunk/projects/bknr-website/templates/applications.xml Log: eboy has switched to a blog-based system, change link to point to the bknr based site. Modified: trunk/projects/bknr-website/templates/applications.xml =================================================================== --- trunk/projects/bknr-website/templates/applications.xml 2006-02-06 18:36:30 UTC (rev 1824) +++ trunk/projects/bknr-website/templates/applications.xml 2006-02-07 11:18:43 UTC (rev 1825) @@ -4,7 +4,7 @@
Applications
The following public web sites are based on BKNR (in order of going on-line):
-
-
- eboy +
- eboy
- Create Rainforest
- Quickhoney
- LISP ECOOP05 Workshop (now in archive mode) From bknr at bknr.net Wed Feb 8 06:02:22 2006 From: bknr at bknr.net (bknr at bknr.net) Date: Wed, 8 Feb 2006 00:02:22 -0600 (CST) Subject: [bknr-cvs] r1826 - in trunk/bknr: . src/data Message-ID: <20060208060222.067502A03B@common-lisp.net> Author: hhubner Date: 2006-02-08 00:02:22 -0600 (Wed, 08 Feb 2006) New Revision: 1826 Modified: trunk/bknr/init.lisp trunk/bknr/src/data/object-tests.lisp Log: >From Tchadvar Roussanov: Here is a minor patch to make object-tests.lisp working with sbcl-0.9.9. It also includes sbcl changes to init.lisp for logical path translations (assuming installation in user's home directory). Note that in order for datastore to compile I have to replace cxml and porableaserve with their latest cvs versions. Modified: trunk/bknr/init.lisp =================================================================== --- trunk/bknr/init.lisp 2006-02-07 11:18:43 UTC (rev 1825) +++ trunk/bknr/init.lisp 2006-02-08 06:02:22 UTC (rev 1826) @@ -1,78 +1,106 @@ -(in-package :cl-user) - -;;;;;;;;;;;;; -;; Tweak this -(eval-when (:execute :compile-toplevel :load-toplevel) - #+allegro - (setf (logical-pathname-translations "bknr") - `(("**;*.*.*" "bknr/**/")) - (logical-pathname-translations "bknr-thirdparty") - `(("**;*.*.*" "thirdparty/**/")) - (logical-pathname-translations "eboy") - `(("**;*.*.*" "eboy/**/"))) - - #+cmu - (setf (logical-pathname-translations "bknr") - `(("**;*.*.*" "home:bknr-sputnik/bknr/**/")) - (logical-pathname-translations "bknr-thirdparty") - `(("**;*.*.*" "home:bknr-sputnik/thirdparty/**/")) - (logical-pathname-translations "eboy") - `(("**;*.*.*" "home:bknr-sputnik/eboy/**/")))) - -(eval-when (:execute :compile-toplevel :load-toplevel) - (load #p"bknr-thirdparty:asdf;asdf")) - -(push (translate-logical-pathname #p"bknr:src;") asdf:*central-registry*) -(push (translate-logical-pathname #p"eboy:src;") asdf:*central-registry*) - -(defparameter *patch-directory* "bknr:patches;") - -(defun load-patches (&optional (directory *patch-directory*)) - (dolist (file (directory (merge-pathnames directory #p"patch-*.lisp"))) - (warn "; Loading patch from file ~A~%" file) - (load file))) - -(defun fix-dpd () - #+cmu - ;; Die Sache mit dem aktuellen Verzeichnis hat CMUCL noch immer nicht im - ;; Griff. Nachbessern! - (setf *default-pathname-defaults* - (pathname - (concatenate 'string - (nth-value 1 (unix:unix-current-directory)) - "/")))) - -(defun make-wild-pathname (type directory) - (merge-pathnames (make-pathname :type type - :directory '(:relative :wild-inferiors)) - directory)) - -(defun setup-registry () - (mapc #'(lambda (asd-pathname) - (pushnew (make-pathname :directory (pathname-directory asd-pathname)) - asdf:*central-registry* - :test #'equal)) - (append (directory #p"bknr-thirdparty:**;*.asd") - (directory #p"bknr:**;*.asd")))) - -(defun clean-registry (&optional (dirs asdf:*central-registry*)) - (let ((files (mapcan #'directory - (mapcan #'(lambda (dir) - (when (pathnamep dir) - (list (make-wild-pathname "fas" dir) - (make-wild-pathname "lib" dir) - (make-wild-pathname "x86f" dir) - (make-wild-pathname "fasl" dir)))) - dirs)))) - (dolist (file files) - (when (probe-file file) - (format t "Deleting binary file ~S~%" file) - (delete-file file))))) - -#+cmu -(load-patches) - -(setup-registry) -(fix-dpd) - -(push :cl-gd-gif *features*) +(in-package :cl-user) + +;;;;;;;;;;;;; +;; Tweak this +(eval-when (:execute :compile-toplevel :load-toplevel) + #+allegro + (setf (logical-pathname-translations "bknr") + `(("**;*.*.*" "bknr/**/")) + (logical-pathname-translations "bknr-thirdparty") + `(("**;*.*.*" "thirdparty/**/")) + (logical-pathname-translations "eboy") + `(("**;*.*.*" "eboy/**/"))) + + #+cmu + (setf (logical-pathname-translations "bknr") + `(("**;*.*.*" "home:bknr-sputnik/bknr/**/")) + (logical-pathname-translations "bknr-thirdparty") + `(("**;*.*.*" "home:bknr-sputnik/thirdparty/**/")) + (logical-pathname-translations "eboy") + `(("**;*.*.*" "home:bknr-sputnik/eboy/**/"))) + + #+sbcl + (setf (logical-pathname-translations "bknr") + `(("**;*.*.*" + ,(merge-pathnames + (make-pathname :directory '(:relative "bknr-svn" "bknr" :wild-inferiors) + :name :wild + :type :wild + :version :wild) + (user-homedir-pathname)))) + (logical-pathname-translations "bknr-thirdparty") + `(("**;*.*.*" + ,(merge-pathnames + (make-pathname :directory '(:relative "bknr-svn" "thirdparty" :wild-inferiors) + :name :wild + :type :wild + :version :wild) + (user-homedir-pathname)))) + (logical-pathname-translations "eboy") + `(("**;*.*.*" + ,(merge-pathnames + (make-pathname :directory '(:relative "bknr-svn" "eboy" :wild-inferiors) + :name :wild + :type :wild + :version :wild) + (user-homedir-pathname)))))) + +#-sbcl +(eval-when (:execute :compile-toplevel :load-toplevel) + (load #p"bknr-thirdparty:asdf;asdf")) + +(push (translate-logical-pathname #p"bknr:src;") asdf:*central-registry*) +(push (translate-logical-pathname #p"eboy:src;") asdf:*central-registry*) + +(defparameter *patch-directory* "bknr:patches;") + +(defun load-patches (&optional (directory *patch-directory*)) + (dolist (file (directory (merge-pathnames directory #p"patch-*.lisp"))) + (warn "; Loading patch from file ~A~%" file) + (load file))) + +(defun fix-dpd () + #+cmu + ;; Die Sache mit dem aktuellen Verzeichnis hat CMUCL noch immer nicht im + ;; Griff. Nachbessern! + (setf *default-pathname-defaults* + (pathname + (concatenate 'string + (nth-value 1 (unix:unix-current-directory)) + "/")))) + +(defun make-wild-pathname (type directory) + (merge-pathnames (make-pathname :type type + :name :wild + :directory '(:relative :wild-inferiors)) + directory)) + +(defun setup-registry () + (mapc #'(lambda (asd-pathname) + (pushnew (make-pathname :directory (pathname-directory asd-pathname)) + asdf:*central-registry* + :test #'equal)) + (append (directory #p"bknr-thirdparty:**;*.asd") + (directory #p"bknr:**;*.asd")))) + +(defun clean-registry (&optional (dirs asdf:*central-registry*)) + (let ((files (mapcan #'directory + (mapcan #'(lambda (dir) + (when (pathnamep dir) + (list (make-wild-pathname "fas" dir) + (make-wild-pathname "lib" dir) + (make-wild-pathname "x86f" dir) + (make-wild-pathname "fasl" dir)))) + dirs)))) + (dolist (file files) + (when (probe-file file) + (format t "Deleting binary file ~S~%" file) + (delete-file file))))) + +#+cmu +(load-patches) + +(setup-registry) +(fix-dpd) + +(push :cl-gd-gif *features*) Modified: trunk/bknr/src/data/object-tests.lisp =================================================================== --- trunk/bknr/src/data/object-tests.lisp 2006-02-07 11:18:43 UTC (rev 1825) +++ trunk/bknr/src/data/object-tests.lisp 2006-02-08 06:02:22 UTC (rev 1826) @@ -16,7 +16,20 @@ #+allegro (excl:delete-directory-and-files pathname) #+cmu - (unix:unix-rmdir (namestring pathname)))) + (unix:unix-rmdir (namestring pathname)) + #+sbcl + (loop for file in (directory + (merge-pathnames + (make-pathname + :name :wild + :type :wild + :version :wild + ) + pathname)) + when (pathname-name file) do (delete-file file) + unless (pathname-name file) do (delete-directory file)) + #+sbcl + (sb-posix:rmdir (namestring pathname)))) (defvar *test-datastore-directory* #p"/tmp/test-datastore/") (defvar *test-datastore* nil) From bknr at bknr.net Fri Feb 10 05:22:29 2006 From: bknr at bknr.net (bknr at bknr.net) Date: Thu, 9 Feb 2006 23:22:29 -0600 (CST) Subject: [bknr-cvs] r1827 - in trunk/bknr: . src/utils Message-ID: <20060210052229.456AA2A2F0@common-lisp.net> Author: hhubner Date: 2006-02-09 23:22:28 -0600 (Thu, 09 Feb 2006) New Revision: 1827 Modified: trunk/bknr/init.lisp trunk/bknr/src/utils/crypt-md5.lisp trunk/bknr/src/utils/reader.lisp trunk/bknr/src/utils/utils.lisp Log: Tchadvar Roussanov: This is a small patch for init.lisp and some fixes to make sbcl compiler happy with 'defconstant'. Modified: trunk/bknr/init.lisp =================================================================== --- trunk/bknr/init.lisp 2006-02-08 06:02:22 UTC (rev 1826) +++ trunk/bknr/init.lisp 2006-02-10 05:22:28 UTC (rev 1827) @@ -45,12 +45,14 @@ :version :wild) (user-homedir-pathname)))))) -#-sbcl (eval-when (:execute :compile-toplevel :load-toplevel) - (load #p"bknr-thirdparty:asdf;asdf")) + #-sbcl + (load #p"bknr-thirdparty:asdf;asdf") + #+sbcl + (require :asdf)) -(push (translate-logical-pathname #p"bknr:src;") asdf:*central-registry*) -(push (translate-logical-pathname #p"eboy:src;") asdf:*central-registry*) +(pushnew (translate-logical-pathname #p"bknr:src;") asdf:*central-registry* :test #'equal) +(pushnew (translate-logical-pathname #p"eboy:src;") asdf:*central-registry* :test #'equal) (defparameter *patch-directory* "bknr:patches;") @@ -103,4 +105,4 @@ (setup-registry) (fix-dpd) -(push :cl-gd-gif *features*) +(pushnew :cl-gd-gif *features*) Modified: trunk/bknr/src/utils/crypt-md5.lisp =================================================================== --- trunk/bknr/src/utils/crypt-md5.lisp 2006-02-08 06:02:22 UTC (rev 1826) +++ trunk/bknr/src/utils/crypt-md5.lisp 2006-02-10 05:22:28 UTC (rev 1827) @@ -1,6 +1,6 @@ (in-package :bknr.utils) -(defconstant +itoa64+ +(define-constant +itoa64+ "./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz") (defun itoa64 (int num) @@ -73,4 +73,4 @@ ;; 2 8 14 (4) ;; 3 9 15 (4) ;; 4 10 5 (4) -;; 11 (2) \ No newline at end of file +;; 11 (2) Modified: trunk/bknr/src/utils/reader.lisp =================================================================== --- trunk/bknr/src/utils/reader.lisp 2006-02-08 06:02:22 UTC (rev 1826) +++ trunk/bknr/src/utils/reader.lisp 2006-02-10 05:22:28 UTC (rev 1827) @@ -1,6 +1,6 @@ (in-package :bknr.utils) -(defconstant +whitespace-chars+ +(define-constant +whitespace-chars+ '(#\Space #\Newline #\Tab #\Linefeed)) (defun whitespace-char-p (c) Modified: trunk/bknr/src/utils/utils.lisp =================================================================== --- trunk/bknr/src/utils/utils.lisp 2006-02-08 06:02:22 UTC (rev 1826) +++ trunk/bknr/src/utils/utils.lisp 2006-02-10 05:22:28 UTC (rev 1827) @@ -1,5 +1,9 @@ (in-package :bknr.utils) +(defmacro define-constant (name value &optional doc) + "Macro for use in place of defconstant in order to make SBCL compiler happy" + `(defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value) + ,@(when doc (list doc)))) ;;; date format ;; Zeitzone f?r Mail-Zeitstempel From bknr at bknr.net Sat Feb 11 09:18:17 2006 From: bknr at bknr.net (bknr at bknr.net) Date: Sat, 11 Feb 2006 03:18:17 -0600 (CST) Subject: [bknr-cvs] r1828 - trunk/projects/lisp-ecoop05/src Message-ID: <20060211091817.53B174B00F@common-lisp.net> Author: hhubner Date: 2006-02-11 03:18:16 -0600 (Sat, 11 Feb 2006) New Revision: 1828 Removed: trunk/projects/lisp-ecoop05/src/js-drag.lisp Modified: trunk/projects/lisp-ecoop05/src/config.lisp trunk/projects/lisp-ecoop05/src/event.lisp trunk/projects/lisp-ecoop05/src/handlers.lisp trunk/projects/lisp-ecoop05/src/init.lisp trunk/projects/lisp-ecoop05/src/lisp-ecoop05.asd trunk/projects/lisp-ecoop05/src/load.lisp trunk/projects/lisp-ecoop05/src/mail.lisp trunk/projects/lisp-ecoop05/src/packages.lisp trunk/projects/lisp-ecoop05/src/participant.lisp trunk/projects/lisp-ecoop05/src/schedule.lisp trunk/projects/lisp-ecoop05/src/tags.lisp trunk/projects/lisp-ecoop05/src/webserver.lisp Log: Renaming to lisp-ecoop Modified: trunk/projects/lisp-ecoop05/src/config.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/config.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/config.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,9 +1,9 @@ -(in-package :lisp-ecoop05.config) +(in-package :lisp-ecoop.config) ;; URL f?r BASE HREFs -(defparameter *website-url* "http://lisp-ecoop05.bknr.net") +(defparameter *website-url* "http://lisp-ecoop.bknr.net") -(defparameter *root-directory* #p"home:bknr-svn/lisp-ecoop05/") +(defparameter *root-directory* #p"home:bknr-svn/lisp-ecoop/") (defparameter *store-directory* (merge-pathnames #p"datastore/" *root-directory*)) @@ -11,6 +11,6 @@ (defparameter *webserver-port* 8081) -(defparameter *default-mail-from* "postmaster at lisp-ecoop05.bknr.net") +(defparameter *default-mail-from* "postmaster at lisp-ecoop.bknr.net") (defparameter *default-mail-subject* "Mail from the LISP ECOOP05 Website") (defparameter *smtp-server* "127.0.0.1") \ No newline at end of file Modified: trunk/projects/lisp-ecoop05/src/event.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/event.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/event.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,3 +1,3 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) ( \ No newline at end of file Modified: trunk/projects/lisp-ecoop05/src/handlers.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/handlers.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/handlers.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (enable-interpol-syntax) Modified: trunk/projects/lisp-ecoop05/src/init.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/init.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/init.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (defun startup () (when *store* @@ -15,4 +15,4 @@ (bknr.cron:start-cron) - (publish-lisp-ecoop05)) + (publish-lisp-ecoop)) Deleted: trunk/projects/lisp-ecoop05/src/js-drag.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/js-drag.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/js-drag.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,55 +0,0 @@ -(in-package :lisp-ecoop05) - -(defclass js-drag-handler (page-handler) - ()) - -(defmethod handle ((handler js-drag-handler) req) - (with-http-response (req *ent*) - (with-http-body (req *ent*) - (html - (:html - (:head - (:title "Drag & Drop Demo") - ((:script :type "text/javascript" :src "/static/drag-demo.js"))) - ((:body :style (css-inline :font-family "sans-serif") - :onload (js-inline (init))) - (:h1 "Drag & Drop Demo") - ((:div :id "canvas" :style (css-inline :position "absolute" - :background-color "#f0f0f0" - :left "50px" - :top "50px" - :width "400px" - :height "400px" - :border "thin solid #000000" - :-moz-border-radius "4px" - :z-order "1")) - ((:div :id "container1" :style (css-inline :position "absolute" - :background-color "#c0c0c0" - :left "10px" - :top "10px" - :width "100px" - :height "380px" - :border "thin solid #000000" - :-moz-border-radius "4px" - :z-order "2")) - "Container 1") - ((:div :id "container2" :style (css-inline :position "absolute" - :background-color "#c0c0c0" - :right "10px" - :top "10px" - :width "100px" - :height "380px" - :border "thin solid #000000" - :-moz-border-radius "4px" - :z-order "2")) - "Container 2") - ((:div :id "icon" :style (css-inline :position "absolute" - :background-color "#e0e0e0" - :left "130px" - :top "20px" - :border "thin solid #000000" - :text-align "center" - :-moz-border-radius "4px" - :z-order "3")) - ((:img :border "0" :src "/image/bknr-logo")) - :br "drag me!")))))))) \ No newline at end of file Modified: trunk/projects/lisp-ecoop05/src/lisp-ecoop05.asd =================================================================== --- trunk/projects/lisp-ecoop05/src/lisp-ecoop05.asd 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/lisp-ecoop05.asd 2006-02-11 09:18:16 UTC (rev 1828) @@ -2,12 +2,12 @@ (in-package :cl-user) -(defpackage :lisp-ecoop05.system +(defpackage :lisp-ecoop.system (:use :cl :asdf)) -(in-package :lisp-ecoop05.system) +(in-package :lisp-ecoop.system) -(defsystem :lisp-ecoop05 +(defsystem :lisp-ecoop :name "worldpay test" :author "Hans Huebner
- Persistence mechanism based on transaction logging, supporting -immutable binary large objects and CLOS persistence. -
- XML processing facilities -
- HTTP application environment with sessions -
- Submission deadline: June 5, 2005 -
- Notification of acceptance: June 10, 2005 -
- ECOOP early registration deadline: June 13, 2005 -
- Macro programming -
- Metaprogramming -
- Reflection -
- New language features / abstractions -
- Persistence Systems -
- Hardware support for Lisp systems -
- Case studies -
- Experience reports -
- Industrial applications -
- Object-Oriented Programming -
- Declarative Programming -
- Aspect-Oriented Programming -
- Domain-Oriented Programming -
- Generative Programming -
- Ambient Intelligence -
- Unanticipated Software Evolution -
- Design Patterns -
- Educational Perspectives -
- Discuss the feature set of the next version of Slime -
- Work on details of the CLRFI process -
- Exchange experiences with various macro systems for Scheme -
- Detail a wishlist for R6RS -
- Environments for creating web applications -
- Persistence systems -
- Compiler technology -
- Lisp on bare metal / Lisp hardware / Lisp operating systems -
- Compare and enhance curricula for computer science education -
- either a long paper (10 pages) presenting scientific and/or -empirical results about Lisp- and Scheme-based uses or new approaches -for software engineering purposes -
- or a short essay (5 pages) defending a position about where -research and practice based on Lisp and Scheme should be heading in -the near future -
- a proposal for a breakout group (1-2 pages) describing the theme, -an agenda and/or expected results -
- Pascal Costanza, http://www.pascalcostanza.de, -Vrije Universiteit Brussel, Belgium (contact organizer) -
- Theo D'Hondt, http://prog.vub.ac.be/~tjdhondt, -Vrije Universiteit Brussel, Belgium -
- Arthur Lemmens, Independent Consultant, Amsterdam, The -Netherlands -
- Manuel Serrano, http://www-sop.inria.fr/mimosa/Manuel.Serrano/, -INRIA Sophia-Antipolis, France -
- Submission deadline: June 5, 2005 +
- Notification of acceptance: June 10, 2005 +
- ECOOP early registration deadline: June 13, 2005 +
- Macro programming +
- Metaprogramming +
- Reflection +
- New language features / abstractions +
- Persistence Systems +
- Hardware support for Lisp systems +
- Case studies +
- Experience reports +
- Industrial applications +
- Object-Oriented Programming +
- Declarative Programming +
- Aspect-Oriented Programming +
- Domain-Oriented Programming +
- Generative Programming +
- Ambient Intelligence +
- Unanticipated Software Evolution +
- Design Patterns +
- Educational Perspectives +
- Discuss the feature set of the next version of Slime +
- Work on details of the CLRFI process +
- Exchange experiences with various macro systems for Scheme +
- Detail a wishlist for R6RS +
- Environments for creating web applications +
- Persistence systems +
- Compiler technology +
- Lisp on bare metal / Lisp hardware / Lisp operating systems +
- Compare and enhance curricula for computer science education +
- either a long paper (10 pages) presenting scientific and/or +empirical results about Lisp- and Scheme-based uses or new approaches +for software engineering purposes +
- or a short essay (5 pages) defending a position about where +research and practice based on Lisp and Scheme should be heading in +the near future +
- a proposal for a breakout group (1-2 pages) describing the theme, +an agenda and/or expected results +
- Pascal Costanza, http://www.pascalcostanza.de, +Vrije Universiteit Brussel, Belgium (contact organizer) +
- Theo D'Hondt, http://prog.vub.ac.be/~tjdhondt, +Vrije Universiteit Brussel, Belgium +
- Arthur Lemmens, Independent Consultant, Amsterdam, The +Netherlands +
- Manuel Serrano, http://www-sop.inria.fr/mimosa/Manuel.Serrano/, +INRIA Sophia-Antipolis, France +
- Richard P. Gabriel has
- agreed to give a keynote talk at the workshop:
-
-
-On the Interaction of Life and Machines in Self-Sustaining Systems
--Software systems today are produced according to a manufacturing -model: A finished product is constructed at the factory and shipped to -its final destination where it is expected to act like any other -machine-reliably but oblivious to its surroundings and its own -welfare. Software needs to grow up and become responsible for itself -and its own future. A promising approach seems to be to separate -software that does the work from software that keeps the system alive. -
-
-
- - The submission deadline has been extended to June 5, - 2005. - -
- The early registration deadline for ECOOP 2005 is June 13, - 2005. The fee structure for ECOOP 2005 will be announced at the - conference website soon. See ecoop - - Important Dates and ecoop - Fees for more information. - -
- Richard P. Gabriel has
+ agreed to give a keynote talk at the workshop:
+
+
+On the Interaction of Life and Machines in Self-Sustaining Systems
++Software systems today are produced according to a manufacturing +model: A finished product is constructed at the factory and shipped to +its final destination where it is expected to act like any other +machine-reliably but oblivious to its surroundings and its own +welfare. Software needs to grow up and become responsible for itself +and its own future. A promising approach seems to be to separate +software that does the work from software that keeps the system alive. +
+
+
+ - The submission deadline has been extended to June 5, + 2005. + +
- The early registration deadline for ECOOP 2005 is June 13, + 2005. The fee structure for ECOOP 2005 will be announced at the + conference website soon. See ecoop - + Important Dates and ecoop - Fees for more information. + +
- Submission deadline: June 5, 2005 -
- Notification of acceptance: June 10, 2005 -
- ECOOP early registration deadline: June 13, 2005 +
- Submission deadline: April 1, 2006 +
- Notification of acceptance: May 1, 2006 +
- ECOOP early registration deadline: - not announced yet -
- Macro programming -
- Metaprogramming -
- Reflection -
- New language features / abstractions +
- New language features or abstractions +
- Experience reports or case studies +
- Protocol Metaprogramming and Libraries +
- Educational approaches +
- Software Evolution +
- Development Aids
- Persistence Systems -
- Hardware support for Lisp systems -
- Case studies -
- Experience reports -
- Industrial applications -
- Object-Oriented Programming -
- Declarative Programming -
- Aspect-Oriented Programming -
- Domain-Oriented Programming -
- Generative Programming -
- Ambient Intelligence -
- Unanticipated Software Evolution -
- Design Patterns -
- Educational Perspectives +
- Dynamic Optimization +
- Implementation techniques +
- Innovative Applications +
- Hardware Support for Lisp systems +
- Macro-, reflective-, meta- and/or rule-based development approaches +
- Aspect-Oriented, Domain-Oriented and Generative Programming
- Discuss the feature set of the next version of Slime -
- Work on details of the CLRFI process -
- Exchange experiences with various macro systems for Scheme -
- Detail a wishlist for R6RS +
- Lisp Infrastructure Development and Distribution +
- Language Features (e.g. Predicate Dispatching)
- Environments for creating web applications -
- Persistence systems +
- Brainstorming sessions for new or existing open source projects +
- Persistence Systems
- Compiler technology
- Lisp on bare metal / Lisp hardware / Lisp operating systems
- Compare and enhance curricula for computer science education
- either a long paper (10 pages) presenting scientific and/or -empirical results about Lisp- and Scheme-based uses or new approaches -for software engineering purposes -
- or a short essay (5 pages) defending a position about where -research and practice based on Lisp and Scheme should be heading in -the near future -
- a proposal for a breakout group (1-2 pages) describing the theme, -an agenda and/or expected results +
- a long paper (10 pages) presenting scientific and/or + empirical results about Lisp-based uses or new approaches for + software engineering purposes; +
- a short essay (5 pages) defending a position about where + research, practice or education based on Lisp should be heading in + the near future; +
- a proposal for a breakout group (1-2 pages) describing the theme, an + agenda and/or expected results.
" :version "0" @@ -16,15 +16,15 @@ :description "BKNR Test Web Server" :long-description "" - :depends-on (:bknr-modules :klammerscript) + :depends-on (:bknr-modules :cxml :klammerscript) :components ((:file "packages") - (:file "config" :depends-on ("packages")) + (:file "macros" :depends-on ("packages")) + (:file "config" :depends-on ("macros")) (:file "schedule" :depends-on ("config")) (:file "participant" :depends-on ("config" "schedule")) (:file "mail" :depends-on ("participant")) (:file "tags" :depends-on ("participant")) (:file "handlers" :depends-on ("participant")) - (:file "js-drag" :depends-on ("packages")) (:file "webserver" :depends-on ("handlers")) (:file "init" :depends-on ("webserver")))) Modified: trunk/projects/lisp-ecoop05/src/load.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/load.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/load.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,9 +1,9 @@ (push :cl-gd-gif *features*) -(asdf:oos 'asdf:load-op :lisp-ecoop05) +(asdf:oos 'asdf:load-op :lisp-ecoop) (asdf:oos 'asdf:load-op :swank) (swank::create-swank-server 4005 :spawn #'swank::simple-announce-function t) -(lisp-ecoop05::startup) +(lisp-ecoop::startup) (mp::startup-idle-and-top-level-loops) Modified: trunk/projects/lisp-ecoop05/src/mail.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/mail.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/mail.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (enable-interpol-syntax) Modified: trunk/projects/lisp-ecoop05/src/packages.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/packages.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/packages.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,6 +1,6 @@ (in-package :cl-user) -(defpackage :lisp-ecoop05.config +(defpackage :lisp-ecoop.config (:use :cl :cl-user) (:export #:*website-url* @@ -11,15 +11,15 @@ #:*default-mail-subject* #:*smtp-server*)) -(defpackage :lisp-ecoop05.imageproc +(defpackage :lisp-ecoop.imageproc (:use :cl :cl-user :bknr.web :cl-gd - :lisp-ecoop05.config) + :lisp-ecoop.config) (:export)) -(defpackage :lisp-ecoop05 +(defpackage :lisp-ecoop (:use :cl :cl-user :ext @@ -31,7 +31,7 @@ :bknr.indices :bknr.user :bknr.images - :lisp-ecoop05.config + :lisp-ecoop.config :net.aserve :net.post-office :xhtml-generator @@ -58,7 +58,7 @@ #:submission-timeslot #:timeslot)) -(defpackage :lisp-ecoop05.tags +(defpackage :lisp-ecoop.tags (:use :cl :cl-user :cl-ppcre @@ -71,8 +71,8 @@ :bknr.images :net.aserve :xhtml-generator - :lisp-ecoop05.config - :lisp-ecoop05) + :lisp-ecoop.config + :lisp-ecoop) (:shadowing-import-from :cl-interpol #:quote-meta-chars) (:shadowing-import-from :acl-compat.mp #:process-kill #:process-wait) (:export #:hello)) \ No newline at end of file Modified: trunk/projects/lisp-ecoop05/src/participant.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/participant.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/participant.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (enable-interpol-syntax) @@ -90,7 +90,7 @@ :text (format nil "Your participant account on the LISP ECOOP05 Workshop website has been created. Please visit your personal profile page on -http://lisp-ecoop05.bknr.net/edit-profile/ to change your password +http://lisp-ecoop.bknr.net/edit-profile/ to change your password andupdate your profile information. Your login name is: ~A @@ -110,7 +110,7 @@ :text (format nil "Your password on the LISP ECOOP 05 Workshop website has been reset. Please visit your personal profile page on -http://lisp-ecoop05.bknr.net/edit-profile/~A to change your password +http://lisp-ecoop.bknr.net/edit-profile/~A to change your password and update your profile information. Your login name is: ~A Modified: trunk/projects/lisp-ecoop05/src/schedule.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/schedule.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/schedule.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (enable-interpol-syntax) @@ -93,7 +93,7 @@ (print-object-as-html (timeslot-content timeslot)))) (mapc #'emit-template-node children)))))) -(in-package :lisp-ecoop05.tags) +(in-package :lisp-ecoop.tags) (define-bknr-tag show-day-schedule (&key day children) - (lisp-ecoop05::show-day-schedule :day day :children children)) + (lisp-ecoop::show-day-schedule :day day :children children)) Modified: trunk/projects/lisp-ecoop05/src/tags.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/tags.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/tags.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05.tags) +(in-package :lisp-ecoop.tags) (enable-interpol-syntax) @@ -293,7 +293,7 @@ (define-bknr-tag submission-list (&key participant-only (type "submission")) (dolist (submission (sort (copy-list (if participant-only (participant-submissions *participant*) - (class-instances (intern (string-upcase type) :lisp-ecoop05)))) + (class-instances (intern (string-upcase type) :lisp-ecoop)))) #'string-lessp :key #'submission-title)) (html ((:div :class "submission-line") (when participant-only Modified: trunk/projects/lisp-ecoop05/src/webserver.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/webserver.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/webserver.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (enable-interpol-syntax) @@ -6,9 +6,9 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun make-daily-statistics () - (bknr.stats::make-yesterdays-stats :delete-events t :remove-referer-hosts '("lisp-ecoop05.bknr.net"))) + (bknr.stats::make-yesterdays-stats :delete-events t :remove-referer-hosts '("lisp-ecoop.bknr.net"))) -(defun publish-lisp-ecoop05 (&key (port *webserver-port*) (listeners 20)) +(defun publish-lisp-ecoop (&key (port *webserver-port*) (listeners 20)) (unless (bknr.cron:cron-job-with-name "daily webserver statistics") (bknr.cron:make-cron-job "daily webserver statistics" 'make-daily-statistics @@ -21,7 +21,7 @@ :to "/home") ("/" template-handler :destination ,(namestring (merge-pathnames #p"templates/" *website-directory*)) - :command-packages ((:lisp-ecoop05 . :lisp-ecoop05.tags) + :command-packages ((:lisp-ecoop . :lisp-ecoop.tags) (:bknr . :bknr.web) (:menu . :bknr.site-menu))) ("/static" directory-handler From bknr at bknr.net Sat Feb 11 09:19:59 2006 From: bknr at bknr.net (bknr at bknr.net) Date: Sat, 11 Feb 2006 03:19:59 -0600 (CST) Subject: [bknr-cvs] r1829 - in trunk/projects: . bknr-website/templates lisp-ecoop Message-ID: <20060211091959.519894B00F@common-lisp.net> Author: hhubner Date: 2006-02-11 03:19:59 -0600 (Sat, 11 Feb 2006) New Revision: 1829 Added: trunk/projects/lisp-ecoop/ trunk/projects/lisp-ecoop/src/ Removed: trunk/projects/lisp-ecoop/src/ trunk/projects/lisp-ecoop05/ Modified: trunk/projects/bknr-website/templates/generate-html.xsl Log: Renamed to lisp-ecoop Modified: trunk/projects/bknr-website/templates/generate-html.xsl =================================================================== --- trunk/projects/bknr-website/templates/generate-html.xsl 2006-02-11 09:18:16 UTC (rev 1828) +++ trunk/projects/bknr-website/templates/generate-html.xsl 2006-02-11 09:19:59 UTC (rev 1829) @@ -1,4 +1,4 @@ Requirements for a persistence mechanism
--We want a persistence mechanism which is closely integrated into our -programming language. Persistence is something we want to assume as -being available which writing applications, and it should be as -unintrusive as possible. Applications should use standard programming -language mechanisms to access all data. -
--The persistence mechanism should ensure that all appplication data in -the system is safe against system crashes. If the system crashes, the -application and all it's data should be restartable into a consistent -state. The amount of work which can be lost due to a unplanned system -failure should be low. -
--The persistence mechanism should make the amount of data which -constitutes the persistent state of the application transparent. It -should provide for mechanisms to duplicate the current state in order -to move it from one machine or software release to another. -
-Does a "Database system" help?
--The two most popular database families today are relational databases -with SQL as query language, and embedded database facilities like -Berkeley DB which provides for indexed access to tables stored on -disk. They have in common that they assume that the primary location -of data is on-disk and that applications have to read and write data -from and to disk in order to perform their tasks. -
--Database systems, when they were invented, served as an address -extension to the applications. Applications could operate on data -sets which were to large for in-memory processing, providing -persistence at the same time. -
--In addition, SQL databases provide for a language neutral query -language that allow flexible querying of the application data. This -facility is useful in multi-language environments and to facilitate -database queries through third-party applications. -
--Todays main memories and processing speed redefine the environment in -which applications are created. Memory is no longer a very scarce -resource, and memory sizes have generally grown much faster than the -amount of application data that needs to be processed. Thus, -on-demand loading of application from disk can (and should) be totally -avoided by always having the complete data set in memory. -
-Properties of the BKNR persistence mechanism
--All Disk access by the persistence mechanism is sequential. During -normal operation, the transaction log is sequentially appended to. -During snapshot, the snapshot file of the object subsystem is -sequentially written. During restore, the snapshot and transaction -log files are sequentially read. -
--All files used by BKNR are immutable. A file is never changed, but -only created, read or deleted. -
--The time needed to restore from a crash consists of the time needed to -read the sequential log file, to parse it's content and to execute the -applications' transaction code. -
-BKNR programming style
--All BKNR application data is handled in main memory. Internally, -applications do not use secondary store like data bases or files. Are -application data structures are kept in the data structures provided -by Common Lisp. -
--All destructive operation on the persistent heap need to be explicit -and are synchronized. A transaction is never aborted nor may it fail. -Thus, it is vital to check preconditions before starting a destructive -operation. Within a transaction, application code must properly -handle all possible errors and gracefully return. Errors unhandled in -transaction code are considered fatal and cause the persistence system -to stop. -
--Applications may either define their own, named transactions or they -may use the provided CLOS layer which groups accesses to slots of -persistent objects to atomic transactions. -
--BKNR persistence sequentializes all destructive operations on the -persistent heap. As all data is in RAM when a transaction starts -executing, it is never stalled by having to wait for necessary data to -arrive. Thus, the need for preempting transaction code arises much -less frequently than in traditional systems in which transactions had -to access slow disks in order to collect the data to be processed. -
--Some applications require precondition checks which must be processed -atomically together with the associated transaction code. -Applications must guard such precondition checks with a store lock in -order to block other transaction code from executing. -
--Transaction code must be used only to change the persistent state of a -system. No I/O operations must be performed within transaction code. -Transactions may produce log output, but it they may not use (possibly -blocking) communications mechanisms to other processes. -
-Areas of research
-Performance
--For high-performance stores, some optimizations will be worthwile. -The single most time consuming operation while executing transactions -is the appending to the transaction log file. At the moment, this is -done using a synchronous write to the opened Unix file, which takes -significant time. -
--Not all operations need to be absolutely safe, and it might be -worthwile to change the default execution mode of the store to be as -follows: Processing other transactions or non-transaction code may -continue as soon as the transaction log entry of the current operation -has been constructed in RAM and the transaction application code has -been executed. The transaction system will then asynchronously write -the transaction to the transaction log. Non-transactional application -code can continue executing while the log entry is being commited to -disk. Depending on the safety needs of the application, log entries -could also be buffered in a queue to achive higher peak transaction -rates, trading safety for speed. If safety is required, fast stable -store (e.g. battery-backed RAM) can increase the speed of synchronous -log writes. -
-Locking API
--Current applications do not require sophisticated locking. To support -such applications, a locking API might make sense. -
-Replication
--Hot-standby servers using the BKNR datastore are conceptually simple. -Full commit safety requires a slightly more involved commit -coordination on the distributed servers than doing the log replication -after the commit has locally finished. Many applications will be able -to loose one or even a few transactions should the system crash. -
-The BKNR Technology
-- -This website is constructed using a set of Common Lisp packages which -is collectively called the BKNR application development environment. -BKNR integrates several open source components into an environment -suitable for serving HTTP clients from a persistent Lisp system. - -It's major components are: -
-
-
Persistence
--Persistence in BKNR is achived using a transaction logging mechanism. -All operations which change the persistent image of a system are -explicitely written to a transaction log file. When the system -crashes, the persistent state can be recovered by rolling forward the -transaction log. The transaction log is held in a simple binary -format in order to get acceptable restart times for larger datasets. -
--The persistence mechanism supports a snapshot API which allows the -persistent object system to write all currently active objects to a -sequential file. -
--The Persistent object subsystem provides for ID generation of objects. -Object IDs of persistent objects are written to the transaction log. -Persistent objects are never garbage collected and need to be deleted -by the application if they are no longer in use. -
--BKNR supports automated indices for CLOS instances. They are -implemented in a MOP metaclass and compatible with the BKNR metaclass -for persistent objects. -
-XML processing
--BKNR integrates the Closure XML (CXML) parser using a CLOS metaclass -to provide for reading and writing XML files of objects. Combined -metaclasses are provided in order to allow for combinations like -indexed+persistent or indexed+xml. -
--CXML is also used for XHTML generation and XHTML template processing. -User-defined element handlers can be added to the XHTML generation to -support application-specific generation of dynamic content. -
-Web application environment
--BKNR uses the portable aserve web server implementation as HTTP -server. It provides for a handler dispatch mechanism based on CLOS -objects and generic functions to provide for routing requests to -objects and HTML form handling. -
--Session handling through cookies is supported, as well is a simple -web-based CMS for maintaining user accounts and other application -information. -
--A CSS and Javascript generation library supports in-source-code -generation of complete web pages using a lisp-like syntax. -
-Other Libraries
--Except for the graphics processing library used, all server-side -components of BKNR are implemented in Common Lisp. All components are -Open Source. All software outside of the thirdparty/ tree in the BKNR -repository are distributed under a BSD-style open source license. The -thirdparty/ tree contains a number of publicly available Common Lisp -libraries which are used by BKNR. -
-BKNR has been co-developed with a number of real-world applications. -Much of the application code has been kept in the central source code -repository and evolved through a number of API and framework changes. - - -BKNR started while implementing a -web site for eboy, a group of graphics -artists who wanted to have a dynamic web site for publishing their -works. Their new, fully dynamic web site was implemented in CMU -Common Lisp - - -Call for Participation
- -2nd European Lisp and Scheme Workshop
- -July 26 - Glasgow, Scotland - co-located with ECOOP 2005
- -
-Supported by ALUFor more information visit http://lisp-ecoop05.bknr.net - or contact pc at p-cos.net.
- -Important Dates (updated on May 15, 2005)
--
-
Overview
- --...Please don't assume Lisp is only useful for Animation and Graphics, -AI, Bioinformatics, B2B and E-Commerce, Data Mining, EDA/Semiconductor -applications, Expert Systems, Finance, Intelligent Agents, Knowledge -Management, Mechanical CAD, Modeling and Simulation, Natural Language, -Optimization, Research, Risk Analysis, Scheduling, Telecom, and Web -Authoring just because these are the only things they happened to -list. -- Kent Pitman -
- -Lisp is one of the oldest computer languages still in use today. -In the decades of its existence, Lisp has been a fruitful basis for -language design experiments as well as the preferred implementation -language for applications in diverse fields.
- -The structure of Lisp, including Common Lisp and Scheme as its -major dialects of today, makes it easy to extend the language or even -to implement entirely new dialects without starting from -scratch. Common Lisp, with the Common Lisp Object System (CLOS), was -the first object-oriented programming language to receive an ANSI -standard at the beginning of the 1990's. It is, arguably, the most -complete and advanced object system of any programming language, and -has influenced many other object-oriented programming languages that -were to follow.
- -Despite having somewhat disappeared from the radar of popular -computer science, Common Lisp and Scheme are still alive and have just -started to gain momentum again. There is a steadily growing interest -in Lisp as such, with numerous user groups having formed recently -worldwide, and Lisp's metaprogramming notions that are being -transferred to other languages to different extents, as for example in -AOP, MDA, DSL, and so on.
- -This two-day workshop will address the near-future role of -Lisp-based languages in research, industry and education. We want to -solicit papers and suggestions for breakout groups that discuss the -opportunities Lisp provides to capture and enhance the possibilities -in software engineering. We also want to promote lively discussion -between researchers proposing new approaches and practitioners -reporting on their experience with the strengths and limitations of -current Lisp technologies.
- -The workshop will be split into two parts: The first part is for -talks with a more classroom-like atmosphere, the second will consist -of a number of sessions for breakout groups discussing or working on -particular topics.
- -Papers
- -Presentations on the workshop can take anything between 5 minutes -and an hour. Additional time will be given for questions and answers. -Papers may be published on the website in order to provide background -information in advance.
- -Suggested topics for presented papers
--
-
Breakout Groups
- -The workshop will provide for the opportunity to meet face to face -and work on focused topics. We will organize these breakout groups -and provide for rooms and infrastructure.
- -Suggested topics for breakout groups
--
-
In order to have effective discussions at those breakout groups, we -are negotiating meeting rooms for an extra day in addition to the -actual workshop with the ECOOP organizers.
- -Submission Guidelines
- -Potential attendants are expected to submit
--
-
Submissions should be mailed as PDF or text to Pascal Costanza (pc at p-cos.net) before the submission -deadline. Please indicate whether you need an earlier notification of -acceptance than the official date.
- -Registration
- --This workshop is co-located with ECOOP 2005, and this time it is one -of the official workshops at that conference. Therefore, registration, -fee and accomodation are all handled through the conference -organization. See the conference website and especially ecoop - Fees and ecoop - Travel for -further information. -
- --Advance registration to the workshop is handled through the primary -contact person of the Workshop, Pascal Costanza (pc at p-cos.net). Please contact him by -regular email with your submission or input to the workshop in order -to receive your login to the workshop website. Include your preferred -login name for the workshop website with your application. Further -information for participants will be provided on the workshop website. -
- -Organizing Committee
- -The organizing comitee consists of the following people:
- --
-
+ + \ No newline at end of file Deleted: trunk/projects/lisp-ecoop/website/templates/contact.bknr =================================================================== --- trunk/projects/lisp-ecoop/website/templates/contact.bknr 2006-02-14 19:21:08 UTC (rev 1832) +++ trunk/projects/lisp-ecoop/website/templates/contact.bknr 2006-02-14 21:48:08 UTC (rev 1833) @@ -1,16 +0,0 @@ - - -Call for Participation
+ +2nd European Lisp and Scheme Workshop
+ +July 26 - Glasgow, Scotland - co-located with ECOOP 2005
+ +
+Supported by ALUFor more information visit http://lisp-ecoop05.bknr.net + or contact pc at p-cos.net.
+ +Important Dates (updated on May 15, 2005)
+-
+
Overview
+ ++...Please don't assume Lisp is only useful for Animation and Graphics, +AI, Bioinformatics, B2B and E-Commerce, Data Mining, EDA/Semiconductor +applications, Expert Systems, Finance, Intelligent Agents, Knowledge +Management, Mechanical CAD, Modeling and Simulation, Natural Language, +Optimization, Research, Risk Analysis, Scheduling, Telecom, and Web +Authoring just because these are the only things they happened to +list. -- Kent Pitman +
+ +Lisp is one of the oldest computer languages still in use today. +In the decades of its existence, Lisp has been a fruitful basis for +language design experiments as well as the preferred implementation +language for applications in diverse fields.
+ +The structure of Lisp, including Common Lisp and Scheme as its +major dialects of today, makes it easy to extend the language or even +to implement entirely new dialects without starting from +scratch. Common Lisp, with the Common Lisp Object System (CLOS), was +the first object-oriented programming language to receive an ANSI +standard at the beginning of the 1990's. It is, arguably, the most +complete and advanced object system of any programming language, and +has influenced many other object-oriented programming languages that +were to follow.
+ +Despite having somewhat disappeared from the radar of popular +computer science, Common Lisp and Scheme are still alive and have just +started to gain momentum again. There is a steadily growing interest +in Lisp as such, with numerous user groups having formed recently +worldwide, and Lisp's metaprogramming notions that are being +transferred to other languages to different extents, as for example in +AOP, MDA, DSL, and so on.
+ +This two-day workshop will address the near-future role of +Lisp-based languages in research, industry and education. We want to +solicit papers and suggestions for breakout groups that discuss the +opportunities Lisp provides to capture and enhance the possibilities +in software engineering. We also want to promote lively discussion +between researchers proposing new approaches and practitioners +reporting on their experience with the strengths and limitations of +current Lisp technologies.
+ +The workshop will be split into two parts: The first part is for +talks with a more classroom-like atmosphere, the second will consist +of a number of sessions for breakout groups discussing or working on +particular topics.
+ +Papers
+ +Presentations on the workshop can take anything between 5 minutes +and an hour. Additional time will be given for questions and answers. +Papers may be published on the website in order to provide background +information in advance.
+ +Suggested topics for presented papers
+-
+
Breakout Groups
+ +The workshop will provide for the opportunity to meet face to face +and work on focused topics. We will organize these breakout groups +and provide for rooms and infrastructure.
+ +Suggested topics for breakout groups
+-
+
In order to have effective discussions at those breakout groups, we +are negotiating meeting rooms for an extra day in addition to the +actual workshop with the ECOOP organizers.
+ +Submission Guidelines
+ +Potential attendants are expected to submit
+-
+
Submissions should be mailed as PDF or text to Pascal Costanza (pc at p-cos.net) before the submission +deadline. Please indicate whether you need an earlier notification of +acceptance than the official date.
+ +Registration
+ ++This workshop is co-located with ECOOP 2005, and this time it is one +of the official workshops at that conference. Therefore, registration, +fee and accomodation are all handled through the conference +organization. See the conference website and especially ecoop - Fees and ecoop - Travel for +further information. +
+ ++Advance registration to the workshop is handled through the primary +contact person of the Workshop, Pascal Costanza (pc at p-cos.net). Please contact him by +regular email with your submission or input to the workshop in order +to receive your login to the workshop website. Include your preferred +login name for the workshop website with your application. Further +information for participants will be provided on the workshop website. +
+ +Organizing Committee
+ +The organizing comitee consists of the following people:
+ +-
+
Contact
-Workshop related: Pascal Costanza
-Website related: Hans H?ber
- -+ + Deleted: trunk/projects/lisp-ecoop/website/templates/edit-profile.bknr =================================================================== --- trunk/projects/lisp-ecoop/website/templates/edit-profile.bknr 2006-02-14 19:21:08 UTC (rev 1832) +++ trunk/projects/lisp-ecoop/website/templates/edit-profile.bknr 2006-02-14 21:48:08 UTC (rev 1833) @@ -1,111 +0,0 @@ - - -Contact
+Workshop related: Pascal Costanza
+Website related: Hans H?ber
+ +Participant Profile Editor
--Using this form, you can edit your participant profile for the 2nd -European LISP and Scheme Workshop. The profile serves as a means of -communicating the participants interests as well as any submitted -papers before the actual workshop takes place. It will also be used -by the workshop coordinators to schedule presentations. -The workshop web site will stay online after the workshop to -facilitate further communications. -
--All participant profile data, excluding personal email addresses, can -be viewed by all visitors of the workshops' web site. -
--Please contact Hans H?bner for -inquiries relating to the workshop web site. We are interested in -developing the website into a LISP-based system to coordinate -distributed development activities and related real-life meetings -using an incremental development process. See the Website technology blurb for a -description of the technology used by this web site. -
-Submission Editor
--Using this form, you can edit your submission to the 2nd -European LISP and Scheme Workshop. -
-Welcome to the Website of the 2nd European LISP and Scheme -Workshop. Please see the Call for Participation for a -description of the goals of the workshop.
- -News
- -May 19, 2005
- --
-
-- -- -
-- -
Supported by ALU
-+ + Added: trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl =================================================================== --- trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl 2006-02-14 19:21:08 UTC (rev 1832) +++ trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl 2006-02-14 21:48:08 UTC (rev 1833) @@ -0,0 +1,64 @@ + +Welcome to the Website of the 2nd European LISP and Scheme +Workshop. Please see the Call for Participation for a +description of the goals of the workshop.
+ +News
+ +May 19, 2005
+ +-
+
++ ++ +
+Supported by ALU
+LISP-ECOOP06 - $(title) + + + + +++2nd European LISP and Scheme Workshop+Co-located with ECOOP 2005+
July 26 - Glasgow - Scotland+ +++ +
++ + +++++- - \ No newline at end of file + Deleted: trunk/projects/lisp-ecoop/website/templates/people.bknr =================================================================== --- trunk/projects/lisp-ecoop/website/templates/people.bknr 2006-02-14 19:21:08 UTC (rev 1832) +++ trunk/projects/lisp-ecoop/website/templates/people.bknr 2006-02-14 21:48:08 UTC (rev 1833) @@ -1,19 +0,0 @@ - - -People
- -The following people have registered to the workshop. Please click -on the persons' name to get further information
- -+ + Deleted: trunk/projects/lisp-ecoop/website/templates/profile.bknr =================================================================== --- trunk/projects/lisp-ecoop/website/templates/profile.bknr 2006-02-14 19:21:08 UTC (rev 1832) +++ trunk/projects/lisp-ecoop/website/templates/profile.bknr 2006-02-14 21:48:08 UTC (rev 1833) @@ -1,53 +0,0 @@ - - -People
+ +The following people have registered to the workshop. Please click +on the persons' name to get further information
+ +Participant Profile
--
-Personal information - -Login name -$(login) -- -Name -$(full-name) -- -Affiliation -$(affiliation) -- -Website URL -$(url) -- -Picture -- -Email -$(email) -- -Text -$(text)
Submission - -Submissions -Schedule
- -The (preliminary) schedule for the workshop is as follows.
- -Monday, 25. July 2005
--
- -Time Event Tuesday, 26. July 2005
--
- -Time Event
- -+ + Deleted: trunk/projects/lisp-ecoop/website/templates/submission.bknr =================================================================== --- trunk/projects/lisp-ecoop/website/templates/submission.bknr 2006-02-14 19:21:08 UTC (rev 1832) +++ trunk/projects/lisp-ecoop/website/templates/submission.bknr 2006-02-14 21:48:08 UTC (rev 1833) @@ -1,18 +0,0 @@ - - -Schedule
+ +The (preliminary) schedule for the workshop is as follows.
+ +Monday, 25. July 2005
++
+ +Time Event Tuesday, 26. July 2005
++
+ +Time Event
+ +$(title)
-
-
- [Show PDF] -$(abstract)
Submissions
- -The following submissions have been received so far.
- -Papers
-Breakout group proposals
-+ + Deleted: trunk/projects/lisp-ecoop/website/templates/toplevel.bknr =================================================================== --- trunk/projects/lisp-ecoop/website/templates/toplevel.bknr 2006-02-14 19:21:08 UTC (rev 1832) +++ trunk/projects/lisp-ecoop/website/templates/toplevel.bknr 2006-02-14 21:48:08 UTC (rev 1833) @@ -1,42 +0,0 @@ - - - - -Submissions
+ +The following submissions have been received so far.
+ +Papers
+Breakout group proposals
+LISP-ECOOP05 - $(title) - - - - - ---2nd European LISP and Scheme Workshop-Co-located with ECOOP 2005-
July 26 - Glasgow - Scotland- ---- - Copied: trunk/projects/lisp-ecoop/website/templates/toplevel.xml (from rev 1829, trunk/projects/lisp-ecoop/website/templates/toplevel.bknr) Deleted: trunk/projects/lisp-ecoop/website/templates/user-error.bknr =================================================================== --- trunk/projects/lisp-ecoop/website/templates/user-error.bknr 2006-02-14 19:21:08 UTC (rev 1832) +++ trunk/projects/lisp-ecoop/website/templates/user-error.bknr 2006-02-14 21:48:08 UTC (rev 1833) @@ -1,14 +0,0 @@ - - - -Your request could not be processed because an error occured: --------$(error-message) -
- \ No newline at end of file Copied: trunk/projects/lisp-ecoop/website/templates/user-error.xml (from rev 1829, trunk/projects/lisp-ecoop/website/templates/user-error.bknr) From bknr at bknr.net Tue Feb 14 21:57:58 2006 From: bknr at bknr.net (bknr at bknr.net) Date: Tue, 14 Feb 2006 15:57:58 -0600 (CST) Subject: [bknr-cvs] r1834 - trunk/projects/lisp-ecoop/website/templates Message-ID: <20060214215758.3A07E2A034@common-lisp.net> Author: hhubner Date: 2006-02-14 15:57:58 -0600 (Tue, 14 Feb 2006) New Revision: 1834 Modified: trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl Log: Correctly produce title Modified: trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl =================================================================== --- trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl 2006-02-14 21:48:08 UTC (rev 1833) +++ trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl 2006-02-14 21:57:58 UTC (rev 1834) @@ -13,7 +13,7 @@ -LISP-ECOOP06 - $(title) +LISP-ECOOP06 - <xsl:value-of select="@name"/> From bknr at bknr.net Fri Feb 17 19:41:42 2006 From: bknr at bknr.net (bknr at bknr.net) Date: Fri, 17 Feb 2006 13:41:42 -0600 (CST) Subject: [bknr-cvs] r1835 - trunk/projects/lisp-ecoop/src Message-ID: <20060217194142.B5C862A01A@common-lisp.net> Author: hhubner Date: 2006-02-17 13:41:42 -0600 (Fri, 17 Feb 2006) New Revision: 1835 Added: trunk/projects/lisp-ecoop/src/lisp-ecoop.asd trunk/projects/lisp-ecoop/src/macros.lisp Removed: trunk/projects/lisp-ecoop/src/lisp-ecoop05.asd Modified: trunk/projects/lisp-ecoop/src/config.lisp trunk/projects/lisp-ecoop/src/handlers.lisp trunk/projects/lisp-ecoop/src/packages.lisp trunk/projects/lisp-ecoop/src/participant.lisp trunk/projects/lisp-ecoop/src/schedule.lisp trunk/projects/lisp-ecoop/src/webserver.lisp Log: More pending changes from my now-dead hard drive. Praise VMware! Modified: trunk/projects/lisp-ecoop/src/config.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/config.lisp 2006-02-14 21:57:58 UTC (rev 1834) +++ trunk/projects/lisp-ecoop/src/config.lisp 2006-02-17 19:41:42 UTC (rev 1835) @@ -3,7 +3,7 @@ ;; URL f?r BASE HREFs (defparameter *website-url* "http://lisp-ecoop.bknr.net") -(defparameter *root-directory* #p"home:bknr-svn/lisp-ecoop/") +(defparameter *root-directory* #p"home:bknr-svn/projects/lisp-ecoop/") (defparameter *store-directory* (merge-pathnames #p"datastore/" *root-directory*)) @@ -12,5 +12,6 @@ (defparameter *webserver-port* 8081) (defparameter *default-mail-from* "postmaster at lisp-ecoop.bknr.net") -(defparameter *default-mail-subject* "Mail from the LISP ECOOP05 Website") -(defparameter *smtp-server* "127.0.0.1") \ No newline at end of file +(defparameter *default-mail-subject* "Mail from the LISP ECOOP Website") +(defparameter *smtp-server* "127.0.0.1") + Modified: trunk/projects/lisp-ecoop/src/handlers.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/handlers.lisp 2006-02-14 21:57:58 UTC (rev 1834) +++ trunk/projects/lisp-ecoop/src/handlers.lisp 2006-02-17 19:41:42 UTC (rev 1835) @@ -67,7 +67,7 @@ ()) (defmethod handle ((handler page-handler) req) - (with-lisp-ecoop-page (req "LISP-ECOOP05 Administration") + (with-lisp-ecoop-page (req "LISP-ECOOP Administration") "Please choose an administrative task from the menu")) (define-bknr-webserver-module participants Copied: trunk/projects/lisp-ecoop/src/lisp-ecoop.asd (from rev 1829, trunk/projects/lisp-ecoop/src/lisp-ecoop05.asd) =================================================================== --- trunk/projects/lisp-ecoop/src/lisp-ecoop05.asd 2006-02-11 09:19:59 UTC (rev 1829) +++ trunk/projects/lisp-ecoop/src/lisp-ecoop.asd 2006-02-17 19:41:42 UTC (rev 1835) @@ -0,0 +1,30 @@ +;;;; -*- Mode: LISP -*- + +(in-package :cl-user) + +(defpackage :lisp-ecoop.system + (:use :cl :asdf)) + +(in-package :lisp-ecoop.system) + +(defsystem :lisp-ecoop + :name "worldpay test" + :author "Hans Huebner" + :version "0" + :maintainer "Hans Huebner " + :licence "BSD" + :description "BKNR Test Web Server" + :long-description "" + + :depends-on (:bknr-modules :cxml :klammerscript) + + :components ((:file "packages") + (:file "config" :depends-on ("packages")) + (:file "macros" :depends-on ("config")) + (:file "schedule" :depends-on ("macros")) + (:file "participant" :depends-on ("macros" "schedule")) + (:file "mail" :depends-on ("participant")) + (:file "tags" :depends-on ("participant")) + (:file "handlers" :depends-on ("participant")) + (:file "webserver" :depends-on ("handlers")) + (:file "init" :depends-on ("webserver")))) Deleted: trunk/projects/lisp-ecoop/src/lisp-ecoop05.asd =================================================================== --- trunk/projects/lisp-ecoop/src/lisp-ecoop05.asd 2006-02-14 21:57:58 UTC (rev 1834) +++ trunk/projects/lisp-ecoop/src/lisp-ecoop05.asd 2006-02-17 19:41:42 UTC (rev 1835) @@ -1,30 +0,0 @@ -;;;; -*- Mode: LISP -*- - -(in-package :cl-user) - -(defpackage :lisp-ecoop.system - (:use :cl :asdf)) - -(in-package :lisp-ecoop.system) - -(defsystem :lisp-ecoop - :name "worldpay test" - :author "Hans Huebner " - :version "0" - :maintainer "Hans Huebner " - :licence "BSD" - :description "BKNR Test Web Server" - :long-description "" - - :depends-on (:bknr-modules :cxml :klammerscript) - - :components ((:file "packages") - (:file "macros" :depends-on ("packages")) - (:file "config" :depends-on ("macros")) - (:file "schedule" :depends-on ("config")) - (:file "participant" :depends-on ("config" "schedule")) - (:file "mail" :depends-on ("participant")) - (:file "tags" :depends-on ("participant")) - (:file "handlers" :depends-on ("participant")) - (:file "webserver" :depends-on ("handlers")) - (:file "init" :depends-on ("webserver")))) Added: trunk/projects/lisp-ecoop/src/macros.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/macros.lisp 2006-02-14 21:57:58 UTC (rev 1834) +++ trunk/projects/lisp-ecoop/src/macros.lisp 2006-02-17 19:41:42 UTC (rev 1835) @@ -0,0 +1,43 @@ +(in-package :lisp-ecoop) + +(defvar *dtd* (ext:unix-namestring (merge-pathnames #p"src/lisp-ecoop.dtd" lisp-ecoop.config::*root-directory*))) + +(defun compute-slot (class slot) + (destructuring-bind (name access &rest rest &key attribute element &allow-other-keys) slot + (let* ((initarg (make-keyword-from-string (symbol-name name))) + (package (symbol-package class)) + (accessor (intern (concatenate 'string (symbol-name class) "-" + (symbol-name name)) package))) + (push initarg rest) + (push :initarg rest) + (when (eql attribute t) + (setf attribute (string-downcase (symbol-name name)))) + (when (eql element t) + (setf element (string-downcase (symbol-name name)))) + (unless (or attribute element) + (push (string-downcase (symbol-name name)) rest) + (push :element rest)) + (case access + (:read + (push accessor rest) + (push :reader rest)) + (:update + (push accessor rest) + (push :accessor rest)) + (:none) + (t (error "unknown access option ~A in slot ~A of class ~A." + access slot class))) + (cons name rest)))) + +(defmacro define-lisp-ecoop-class (class (&rest superclasses) slots &rest class-options) + (let ((superclasses (or superclasses '(store-object))) + (slots (mapcar #'(lambda (slot) (compute-slot class slot)) + slots))) + ;; the eval-when is there to create the index access functions at compile time + `(eval-when (:compile-toplevel :load-toplevel :execute) + (defclass ,class ,superclasses + ,slots + (:metaclass persistent-xml-class) + (:dtd-name *dtd*) + , at class-options)))) + Modified: trunk/projects/lisp-ecoop/src/packages.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/packages.lisp 2006-02-14 21:57:58 UTC (rev 1834) +++ trunk/projects/lisp-ecoop/src/packages.lisp 2006-02-17 19:41:42 UTC (rev 1835) @@ -9,7 +9,8 @@ #:*store-directory* #:*default-mail-from* #:*default-mail-subject* - #:*smtp-server*)) + #:*smtp-server* + #:*dtd*)) (defpackage :lisp-ecoop.imageproc (:use :cl @@ -34,8 +35,7 @@ :lisp-ecoop.config :net.aserve :net.post-office - :xhtml-generator - :js) + :xhtml-generator) (:shadowing-import-from :cl-interpol #:quote-meta-chars) (:export #:participant #:all-participants Modified: trunk/projects/lisp-ecoop/src/participant.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/participant.lisp 2006-02-14 21:57:58 UTC (rev 1834) +++ trunk/projects/lisp-ecoop/src/participant.lisp 2006-02-17 19:41:42 UTC (rev 1835) @@ -2,11 +2,11 @@ (enable-interpol-syntax) -(define-persistent-class submission (blob) - ((title :update :documentation "Title of the submission" :initform nil) - (abstract :update :documentation "Abstract or short description" :initform nil) - (submitters :update :documentation "List of participants who submitted this" :initform nil) - (timeslot :update :documentation "Timeslot scheduled for this submission" :initform nil)) +(define-lisp-ecoop-class submission (blob) + ((title :update :documentation "Title of the submission" :initform nil :attribute t) + (abstract :update :documentation "Abstract or short description" :initform nil :element t) + (submitters :update :documentation "List of participants who submitted this" :initform nil :element t) + (timeslot :update :documentation "Timeslot scheduled for this submission" :initform nil :attribute t)) (:default-initargs :type "application/pdf")) (defmethod destroy-object :before ((timeslot timeslot)) @@ -24,13 +24,13 @@ (setf (submission-submitters submission) (remove submitter (submission-submitters submission))) (setf (participant-submissions submitter) (remove submission (participant-submissions submitter)))) -(define-persistent-class paper (submission) +(define-lisp-ecoop-class paper (submission) ()) (defmethod submission-type ((paper paper)) "Paper") -(define-persistent-class breakout-group-proposal (submission) +(define-lisp-ecoop-class breakout-group-proposal (submission) ()) (defmethod submission-type ((breakout-group-proposal breakout-group-proposal)) @@ -42,7 +42,7 @@ ((:a :href #?"/submission/$((store-object-id submission))") (:princ-safe (submission-title submission)))))) -(define-persistent-class participant (user) +(define-lisp-ecoop-class participant (user) ((url :update :documentation "Personal Website URL" :initform nil) (picture :update :documentation "Photo of the participant") (submissions :update :documentation "Submitted documents" :initform nil) @@ -86,9 +86,9 @@ (format nil "~(~36,6,'0R~)" (random (parse-integer "1000000" :radix 36)))) (defmethod send-welcome-mail ((participant participant) initial-password) - (user-send-mail participant :subject "Your account on the LISP ECOOP 05 workshop website has been created" + (user-send-mail participant :subject "Your account on the LISP ECOOP workshop website has been created" :text (format nil -"Your participant account on the LISP ECOOP05 Workshop website has +"Your participant account on the LISP ECOOP Workshop website has been created. Please visit your personal profile page on http://lisp-ecoop.bknr.net/edit-profile/ to change your password andupdate your profile information. @@ -106,9 +106,9 @@ (defmethod participant-reset-password (participant &optional (password (generate-random-password))) (set-user-password participant password) (user-send-mail participant - :subject "Your password for the LISP ECOOP 05 workshop website" + :subject "Your password for the LISP ECOOP workshop website" :text (format nil -"Your password on the LISP ECOOP 05 Workshop website has been reset. +"Your password on the LISP ECOOP Workshop website has been reset. Please visit your personal profile page on http://lisp-ecoop.bknr.net/edit-profile/~A to change your password and update your profile information. Modified: trunk/projects/lisp-ecoop/src/schedule.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/schedule.lisp 2006-02-14 21:57:58 UTC (rev 1834) +++ trunk/projects/lisp-ecoop/src/schedule.lisp 2006-02-17 19:41:42 UTC (rev 1835) @@ -2,10 +2,16 @@ (enable-interpol-syntax) -(define-persistent-class timeslot () - ((begin-time :update :documentation "Start of the presentation/session (universal time)") - (duration :update :documentation "Length of the presentation/session (seconds)") - (content :update :documentation "Content of the timeslot, may be any object which responds to print-object-as-html"))) +(define-lisp-ecoop-class timeslot () + ((begin-time :update + :attribute t + :documentation "Start of the presentation/session (universal time)") + (duration :update + :attribute t + :documentation "Length of the presentation/session (seconds)") + (content :update + :attribute t + :documentation "Content of the timeslot, may be any object which responds to print-object-as-html"))) (defmethod timeslot-end-time ((timeslot timeslot)) (+ (timeslot-begin-time timeslot) Modified: trunk/projects/lisp-ecoop/src/webserver.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/webserver.lisp 2006-02-14 21:57:58 UTC (rev 1834) +++ trunk/projects/lisp-ecoop/src/webserver.lisp 2006-02-17 19:41:42 UTC (rev 1835) @@ -15,9 +15,8 @@ 1 0 :every :every)) (make-instance 'website - :name "LISP ECOOP 2005 CMS" - :handler-definitions `(("/js-drag" js-drag-handler) - ("/" redirect-handler + :name "LISP ECOOP CMS" + :handler-definitions `(("/" redirect-handler :to "/home") ("/" template-handler :destination ,(namestring (merge-pathnames #p"templates/" *website-directory*)) From bknr at bknr.net Fri Feb 17 19:53:14 2006 From: bknr at bknr.net (bknr at bknr.net) Date: Fri, 17 Feb 2006 13:53:14 -0600 (CST) Subject: [bknr-cvs] r1836 - trunk/projects/lisp-ecoop/website/templates Message-ID: <20060217195314.19F7B2A01A@common-lisp.net> Author: hhubner Date: 2006-02-17 13:53:13 -0600 (Fri, 17 Feb 2006) New Revision: 1836 Modified: trunk/projects/lisp-ecoop/website/templates/cfp.xml trunk/projects/lisp-ecoop/website/templates/edit-profile.xml trunk/projects/lisp-ecoop/website/templates/edit-submission.xml trunk/projects/lisp-ecoop/website/templates/home.xml trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl trunk/projects/lisp-ecoop/website/templates/people.xml trunk/projects/lisp-ecoop/website/templates/profile.xml trunk/projects/lisp-ecoop/website/templates/schedule.xml trunk/projects/lisp-ecoop/website/templates/submission.xml trunk/projects/lisp-ecoop/website/templates/submissions.xml trunk/projects/lisp-ecoop/website/templates/toplevel.xml trunk/projects/lisp-ecoop/website/templates/user-error.xml Log: Changes by Pascal Costanza, still not playing nice with the templating system. Modified: trunk/projects/lisp-ecoop/website/templates/cfp.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/cfp.xml 2006-02-17 19:41:42 UTC (rev 1835) +++ trunk/projects/lisp-ecoop/website/templates/cfp.xml 2006-02-17 19:53:13 UTC (rev 1836) @@ -4,19 +4,19 @@ Call for Participation
-2nd European Lisp and Scheme Workshop
+3rd European Lisp Workshop
-July 26 - Glasgow, Scotland - co-located with ECOOP 2005
+
-Supported by ALUJuly 3-4 - Nantes, Frances - co-located with ECOOP 2006
-For more information visit http://lisp-ecoop05.bknr.net +
For more information visit http://lisp-ecoop06.bknr.net or contact pc at p-cos.net.
-Important Dates (updated on May 15, 2005)
+Important Dates
-
-
Overview
@@ -31,138 +31,103 @@ list. -- Kent Pitman -Lisp is one of the oldest computer languages still in use today. -In the decades of its existence, Lisp has been a fruitful basis for +
Lisp is one of the oldest computer languages still in use today. In +the decades of its existence, Lisp has been a fruitful basis for language design experiments as well as the preferred implementation language for applications in diverse fields.
-The structure of Lisp, including Common Lisp and Scheme as its -major dialects of today, makes it easy to extend the language or even -to implement entirely new dialects without starting from -scratch. Common Lisp, with the Common Lisp Object System (CLOS), was -the first object-oriented programming language to receive an ANSI -standard at the beginning of the 1990's. It is, arguably, the most -complete and advanced object system of any programming language, and -has influenced many other object-oriented programming languages that -were to follow.
+The structure of Lisp makes it easy to extend the language or even to +implement entirely new dialects without starting from scratch. Common +Lisp, with the Common Lisp Object System (CLOS), was the first +object-oriented programming language to receive an ANSI standard and +retains the most complete and advanced object system of any +programming language, while influencing many other object-oriented +programming languages that followed.
-Despite having somewhat disappeared from the radar of popular -computer science, Common Lisp and Scheme are still alive and have just -started to gain momentum again. There is a steadily growing interest -in Lisp as such, with numerous user groups having formed recently -worldwide, and Lisp's metaprogramming notions that are being -transferred to other languages to different extents, as for example in -AOP, MDA, DSL, and so on.
+It is clear that Lisp is gaining momentum: there is a +steadily growing interest in Lisp itself, with numerous user groups +in existence worldwide, and in Lisp's metaprogramming notions +which are being transferred to other languages, as +for example in Aspect-Oriented Programming, support for +Domain-Specific Languages, and so on.
-This two-day workshop will address the near-future role of -Lisp-based languages in research, industry and education. We want to -solicit papers and suggestions for breakout groups that discuss the +
This two-day workshop will address the near-future role of Lisp-based +languages in research, industry and education. We solicit +papers and suggestions for breakout groups that discuss the opportunities Lisp provides to capture and enhance the possibilities -in software engineering. We also want to promote lively discussion +in software engineering. We want to promote lively discussion between researchers proposing new approaches and practitioners reporting on their experience with the strengths and limitations of current Lisp technologies.
-The workshop will be split into two parts: The first part is for -talks with a more classroom-like atmosphere, the second will consist -of a number of sessions for breakout groups discussing or working on -particular topics.
+The workshop will have two components on separate days; there will +be a day for formally-presented talks, and a day for breakout groups +discussing or working on particular topics. Additionally, there +will be opportunities for short, informal talks and demonstrations on +experience reports, underappreciated results, software under +development, or other topics of interest.
Papers
-Presentations on the workshop can take anything between 5 minutes -and an hour. Additional time will be given for questions and answers. -Papers may be published on the website in order to provide background -information in advance.
+Formal presentations in the workshop should take between 20 minutes +and half an hour; additional time will be given for questions and +answers. We encourage that papers be published on the website in order +to provide background information in advance.
Suggested topics for presented papers
-
-
Breakout Groups
-The workshop will provide for the opportunity to meet face to face -and work on focused topics. We will organize these breakout groups -and provide for rooms and infrastructure.
+The workshop will provide for the opportunity to meet face to face and +work on focused topics. We will organize these breakout groups and +provide for rooms and infrastructure.
Suggested topics for breakout groups
-
-
In order to have effective discussions at those breakout groups, we -are negotiating meeting rooms for an extra day in addition to the -actual workshop with the ECOOP organizers.
-Submission Guidelines
-Potential attendants are expected to submit
+Potential attendees are encouraged to submit
-
-
Submissions should be mailed as PDF or text to Pascal Costanza (Submissions should be mailed as PDF to Pascal Costanza (pc at p-cos.net) before the submission -deadline. Please indicate whether you need an earlier notification of -acceptance than the official date.
+deadline. -Registration
- --This workshop is co-located with ECOOP 2005, and this time it is one -of the official workshops at that conference. Therefore, registration, -fee and accomodation are all handled through the conference -organization. See the conference website and especially ecoop - Fees and ecoop - Travel for -further information. -
- --Advance registration to the workshop is handled through the primary -contact person of the Workshop, Pascal Costanza (pc at p-cos.net). Please contact him by -regular email with your submission or input to the workshop in order -to receive your login to the workshop website. Include your preferred -login name for the workshop website with your application. Further -information for participants will be provided on the workshop website. -
-Organizing Committee
The organizing comitee consists of the following people:
@@ -176,9 +141,7 @@ Vrije Universiteit Brussel, Belgium - Arthur Lemmens, Independent Consultant, Amsterdam, The Netherlands -
- Manuel Serrano, http://www-sop.inria.fr/mimosa/Manuel.Serrano/, -INRIA Sophia-Antipolis, France +
- Christophe Rhodes, http://www.goldsmiths.ac.uk/departments/computing/staff/CR.html, Goldsmiths Colloge, University of London, United Kingdom
Participant Profile Editor
-Using this form, you can edit your participant profile for the 2nd -European LISP and Scheme Workshop. The profile serves as a means of +Using this form, you can edit your participant profile for the 3rd +European Lisp Workshop. The profile serves as a means of communicating the participants interests as well as any submitted papers before the actual workshop takes place. It will also be used by the workshop coordinators to schedule presentations. @@ -23,7 +23,7 @@ All participant profile data, excluding personal email addresses, can be viewed by all visitors of the workshops' web site.
-Please contact Hans H?bner for inquiries relating to the workshop web site. We are interested in Modified: trunk/projects/lisp-ecoop/website/templates/edit-submission.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/edit-submission.xml 2006-02-17 19:41:42 UTC (rev 1835) +++ trunk/projects/lisp-ecoop/website/templates/edit-submission.xml 2006-02-17 19:53:13 UTC (rev 1836) @@ -6,15 +6,15 @@ title="Edit Submission" xmlns="http://www.w3.org/1999/xhtml" xmlns:bknr="http://bknr.net" - xmlns:lisp-ecoop05="http://lisp-ecoop05.bknr.net" + xmlns:lisp-ecoop06="http://lisp-ecoop06.bknr.net" >
Submission Editor
-Using this form, you can edit your submission to the 2nd -European LISP and Scheme Workshop. +Using this form, you can edit your submission to the 3rd +European Lisp Workshop.
-Welcome to the Website of the 2nd European LISP and Scheme +
Welcome to the Website of the 3rd European Lisp Workshop. Please see the Call for Participation for a description of the goals of the workshop.
News
-May 19, 2005
+February 20, 2006
-
-
- Richard P. Gabriel has
- agreed to give a keynote talk at the workshop:
-
-
-On the Interaction of Life and Machines in Self-Sustaining Systems
--Software systems today are produced according to a manufacturing -model: A finished product is constructed at the factory and shipped to -its final destination where it is expected to act like any other -machine-reliably but oblivious to its surroundings and its own -welfare. Software needs to grow up and become responsible for itself -and its own future. A promising approach seems to be to separate -software that does the work from software that keeps the system alive. -
-
+ - Launched the workshop website. +
Information for Attendees
-Registration of workshop participants has to be done in three mandatory steps:
+-
+
- Contact the organizers of the workshop (in order to ensure that the participant limit has not been exceeded). +
- Advance registration to the workshop is handled through the primary +contact person of the workshop, Pascal Costanza (pc at p-cos.net). Please contact him by +regular email with your submission or input to the workshop in order +to receive your login to the workshop website. Include your preferred +login name for the workshop website with your application. +
- Register on the ECOOP 2006 web site either as a worskhop-only attendee or as a regular attendee. The latter includes access to workshops and to the main conference. +
