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

[bknr-cvs] r1856 - branches/xml-class-rework/thirdparty
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:28:46 -0600 (Sun, 19 Feb 2006) New Revision: 1856 Removed: branches/xml-class-rework/thirdparty/cl-typesetting/ branches/xml-class-rework/thirdparty/weird-irc/ Log: Remove obsolete and unneeded thirdparty modules.

1 0

[bknr-cvs] r1855 - branches/xml-class-rework/thirdparty
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:27:37 -0600 (Sun, 19 Feb 2006) New Revision: 1855 Removed: branches/xml-class-rework/thirdparty/mcclim/ Log: Remove obsolete and unneeded thirdparty modules.

1 0

[bknr-cvs] r1854 - branches/xml-class-rework/thirdparty vendor
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:26:05 -0600 (Sun, 19 Feb 2006) New Revision: 1854 Added: vendor/clim-examples-moeller/ Removed: branches/xml-class-rework/thirdparty/clim-examples-moeller/ Log: Move these interesting files out of the main source tree. Copied: vendor/clim-examples-moeller (from rev 1853, branches/xml-class-rework/thirdparty/clim-examples-moeller)

1 0

[bknr-cvs] r1853 - branches/xml-class-rework/thirdparty/cl-gd
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:24:40 -0600 (Sun, 19 Feb 2006) New Revision: 1853 Modified: branches/xml-class-rework/thirdparty/cl-gd/Makefile Log: -liconv is apparently no longer needed. Modified: branches/xml-class-rework/thirdparty/cl-gd/Makefile =================================================================== --- branches/xml-class-rework/thirdparty/cl-gd/Makefile 2006-02-19 18:18:42 UTC (rev 1852) +++ branches/xml-class-rework/thirdparty/cl-gd/Makefile 2006-02-19 18:24:40 UTC (rev 1853) @@ -2,7 +2,7 @@ cl-gd-glue.so: gcc -I/usr/local/include -fPIC -c cl-gd-glue.c - ld -shared -lgd -lz -lpng -ljpeg -lfreetype -liconv -lm -lc cl-gd-glue.o -o cl-gd-glue.so -L/usr/local/lib + ld -shared -lgd -lz -lpng -ljpeg -lfreetype -lm -lc cl-gd-glue.o -o cl-gd-glue.so -L/usr/local/lib rm cl-gd-glue.o # this should work for Mac OS X

1 0

[bknr-cvs] r1852 - branches/xml-class-rework/bknr/src/web
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:18:42 -0600 (Sun, 19 Feb 2006) New Revision: 1852 Modified: branches/xml-class-rework/bknr/src/web/menu.lisp branches/xml-class-rework/bknr/src/web/templates.lisp Log: Fix quoting, "fix" menu. Modified: branches/xml-class-rework/bknr/src/web/menu.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-19 18:13:33 UTC (rev 1851) +++ branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-19 18:18:42 UTC (rev 1852) @@ -50,6 +50,7 @@ (dolist (item (menu-items menu)) (let ((item-is-active (in-subtree (puri:uri-path (net.aserve:request-uri *req*)) (item-url item)))) (with-slots (url title active-image inactive-image) item + (setf url (format nil "/~A" url)) ; XXX Fixme only absolute URLs are possible ATM (cond ((and active-image inactive-image) (if item-is-active Modified: branches/xml-class-rework/bknr/src/web/templates.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:13:33 UTC (rev 1851) +++ branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:18:42 UTC (rev 1852) @@ -6,12 +6,12 @@ (defvar *template-expander*) (defvar *template-env*) -(defvar *template-dtd-catalog* '(;; libxml standard +(defvar *template-dtd-catalog* `(;; libxml standard "/etc/xml/catalog" ;; FreeBSD "/usr/local/share/xml/catalog.ports" ;; Find from environment - (cdr (assoc :xmlcatalog ext:*environment-list*)))) + ,@(cdr (assoc :xmlcatalog ext:*environment-list*)))) ;; user-error is supposed to be raised when an error is provoced by ;; the user (i.e. by supplying invalid form data).

1 0

[bknr-cvs] r1851 - in branches/xml-class-rework/projects/raw-data: btscanner playwnd streamcapture
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:13:33 -0600 (Sun, 19 Feb 2006) New Revision: 1851 Removed: branches/xml-class-rework/projects/raw-data/btscanner/btscanner.ncb branches/xml-class-rework/projects/raw-data/playwnd/playwnd.ncb branches/xml-class-rework/projects/raw-data/streamcapture/streamcapture.ncb Log: Remove project files that will be created by MSVC anyway. Deleted: branches/xml-class-rework/projects/raw-data/btscanner/btscanner.ncb =================================================================== (Binary files differ) Deleted: branches/xml-class-rework/projects/raw-data/playwnd/playwnd.ncb =================================================================== (Binary files differ) Deleted: branches/xml-class-rework/projects/raw-data/streamcapture/streamcapture.ncb =================================================================== (Binary files differ)

1 0

[bknr-cvs] r1850 - in branches/xml-class-rework/bknr/src: . web
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:04:49 -0600 (Sun, 19 Feb 2006) New Revision: 1850 Modified: branches/xml-class-rework/bknr/src/packages.lisp branches/xml-class-rework/bknr/src/web/templates.lisp Log: The templater now looks for an environment variable XMLCATALOG to find the DTD catalog file, in addition to the standard locations. Modified: branches/xml-class-rework/bknr/src/packages.lisp =================================================================== --- branches/xml-class-rework/bknr/src/packages.lisp 2006-02-19 17:39:00 UTC (rev 1849) +++ branches/xml-class-rework/bknr/src/packages.lisp 2006-02-19 18:04:49 UTC (rev 1850) @@ -256,6 +256,7 @@ #:with-tag-expanders #:*html-variables* + #:*template-dtd-catalog* ;; handlers #:parse-handler-url Modified: branches/xml-class-rework/bknr/src/web/templates.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 17:39:00 UTC (rev 1849) +++ branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:04:49 UTC (rev 1850) @@ -6,6 +6,12 @@ (defvar *template-expander*) (defvar *template-env*) +(defvar *template-dtd-catalog* '(;; libxml standard + "/etc/xml/catalog" + ;; FreeBSD + "/usr/local/share/xml/catalog.ports" + ;; Find from environment + (cdr (assoc :xmlcatalog ext:*environment-list*)))) ;; user-error is supposed to be raised when an error is provoced by ;; the user (i.e. by supplying invalid form data). @@ -150,7 +156,7 @@ :accessor template-handler-cached-templates) (dtd-cache :initform (cxml:make-dtd-cache) :reader template-handler-dtd-cache) - (catalog :initform (cxml:make-catalog) + (catalog :initform (cxml:make-catalog *template-dtd-catalog*) :reader template-handler-catalog))) (defconstant +max-template-expansions-per-request+ 100

1 0

[bknr-cvs] r1849 - in branches/xml-class-rework/projects/lisp-ecoop: src website/templates
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 11:39:00 -0600 (Sun, 19 Feb 2006) New Revision: 1849 Modified: branches/xml-class-rework/projects/lisp-ecoop/src/init.lisp branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml Log: First release version for commitee review. Modified: branches/xml-class-rework/projects/lisp-ecoop/src/init.lisp =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/src/init.lisp 2006-02-19 10:29:19 UTC (rev 1848) +++ branches/xml-class-rework/projects/lisp-ecoop/src/init.lisp 2006-02-19 17:39:00 UTC (rev 1849) @@ -10,7 +10,7 @@ :n-blobs-per-directory 1000))) (unless (find-user "anonymous") (make-user "anonymous") ; used for all anonymous sessions - (make-user "admin" :password "admin" :full-name "Administrator" :flags '(:admin)) + (make-user "admin" :password "wispleb" :full-name "Administrator" :flags '(:admin)) (import-image "bknr-logo.png" :keywords '(:banner :bknr))) (bknr.cron:start-cron) Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml 2006-02-19 10:29:19 UTC (rev 1848) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml 2006-02-19 17:39:00 UTC (rev 1849) @@ -2,8 +2,10 @@ <menu name="main"> <item url="home" title="Home" /> <item url="cfp" title="Call for Participation" /> +  <item url="contact" title="Contact" /> </menu>

1 0

[bknr-cvs] r1848 - in branches/xml-class-rework: bknr/src/web bknr/src/xml-impex projects/lisp-ecoop/src projects/lisp-ecoop/website/templates
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 04:29:19 -0600 (Sun, 19 Feb 2006) New Revision: 1848 Modified: branches/xml-class-rework/bknr/src/web/menu.lisp branches/xml-class-rework/bknr/src/xml-impex/xml-class.lisp branches/xml-class-rework/bknr/src/xml-impex/xml-import.lisp branches/xml-class-rework/projects/lisp-ecoop/src/tags.lisp branches/xml-class-rework/projects/lisp-ecoop/website/templates/cfp.xml branches/xml-class-rework/projects/lisp-ecoop/website/templates/contact.xml branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml branches/xml-class-rework/projects/lisp-ecoop/website/templates/people.xml branches/xml-class-rework/projects/lisp-ecoop/website/templates/schedule.xml Log: First workable DTD-less impex version. Parses menu definition of LISP-ECOOP website, displays pages correctly. Modified: branches/xml-class-rework/bknr/src/web/menu.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-18 12:58:11 UTC (rev 1847) +++ branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-19 10:29:19 UTC (rev 1848) @@ -1,24 +1,14 @@ (in-package :bknr.site-menu) -(defparameter *menu-dtd* (ext:unix-namestring (merge-pathnames #p"menu.dtd" *load-truename*))) - -(defclass menu-defs () - ((menus :initarg :menus - :element "menu" - :reader menu-defs-menus)) - (:metaclass xml-class) - (:dtd-name *menu-dtd*) - (:element "menus")) - (defclass menu () ((name :initarg :name :attribute "name" :reader menu-name) (items :initarg items :element "item" + :containment :+ :reader menu-items)) (:metaclass xml-class) - (:dtd-name *menu-dtd*) (:element "menu")) (defclass item () @@ -39,10 +29,9 @@ :reader item-hover-image)) (:default-initargs :inactive-image nil :active-image nil :hover-image nil) (:metaclass xml-class) - (:dtd-name *menu-dtd*) (:element "item")) -(defparameter *menu-def-classes* (mapcar #'find-class '(menu-defs menu item))) +(defparameter *menu-def-classes* (mapcar #'find-class '(menu item))) (defun print-menu (menu) (format t "MENU: ~A ITEMS:~{ ~A~}~%" (menu-name menu) (mapcar #'item-url (menu-items menu)))) @@ -51,11 +40,11 @@ (search subtree-url url)) (define-bknr-tag site-menu (&key config menu-name container-class active-class inactive-class) - (let* ((menu-defs (bknr.impex:parse-xml-file - #+cmu (ext:unix-namestring (merge-pathnames config *default-pathname-defaults*)) - #+sbcl (sb-int:unix-namestring (merge-pathnames config *default-pathname-defaults*)) - *menu-def-classes*)) - (menu (find menu-name (menu-defs-menus menu-defs) :key #'menu-name :test #'equal))) + (declare (ignore menu-name)) + (let* ((menu (bknr.impex:parse-xml-file + #+cmu (ext:unix-namestring (merge-pathnames config *default-pathname-defaults*)) + #+sbcl (sb-int:unix-namestring (merge-pathnames config *default-pathname-defaults*)) + *menu-def-classes*))) (html ((:div :class container-class) (dolist (item (menu-items menu)) Modified: branches/xml-class-rework/bknr/src/xml-impex/xml-class.lisp =================================================================== --- branches/xml-class-rework/bknr/src/xml-impex/xml-class.lisp 2006-02-18 12:58:11 UTC (rev 1847) +++ branches/xml-class-rework/bknr/src/xml-impex/xml-class.lisp 2006-02-19 10:29:19 UTC (rev 1848) @@ -30,7 +30,9 @@ (body :initarg :body :initform nil :documentation "Whether the value of the slot has to be stored in the body of the class element.") - + (containment :initarg :containment + :initform nil + :documentation "Containment specification for this slot, either nil, :* or :+") (parser :initarg :parser :initform #'identity :documentation "Function used to parse the slot value from the XML string.") @@ -131,7 +133,6 @@ slots)) - (defmethod direct-slot-definition-class ((class xml-class) &key parent attribute element body &allow-other-keys) (if (or attribute element body parent) 'xml-direct-slot-definition @@ -165,8 +166,9 @@ (unless (or element attribute) (error "Could not find element or attribute for slot ~A." name)))) + ;; copy direct-slot-definition slots to effective-slot-definition (dolist (slot '(parser serializer body id-to-object object-to-id - parent attribute element)) + parent attribute element containment)) (setf (slot-value normal-slot slot) (slot-value xml-direct slot)))) Modified: branches/xml-class-rework/bknr/src/xml-impex/xml-import.lisp =================================================================== --- branches/xml-class-rework/bknr/src/xml-impex/xml-import.lisp 2006-02-18 12:58:11 UTC (rev 1847) +++ branches/xml-class-rework/bknr/src/xml-impex/xml-import.lisp 2006-02-19 10:29:19 UTC (rev 1848) @@ -178,15 +178,10 @@ (defun parse-xml-file (xml-file classes &key (recoder #'cxml::rod-string) (importer-class 'xml-class-importer)) - (let ((dtds (remove-duplicates (mapcar #'xml-class-dtd classes)))) - (when (> (length dtds) 1) - (error "All the classes do not use the same DTD.")) - (let ((class-hash (make-hash-table :test #'equal))) - (dolist (class classes) - (let ((name (cxml::rod-string (cxml::elmdef-name (xml-class-element class))))) - (setf (gethash name class-hash) class))) - (let ((importer (make-instance importer-class - :dtd (first dtds) - :class-hash class-hash))) - (cxml:parse-file xml-file (cxml:make-recoder importer recoder)) - (importer-root-elt importer))))) + (let ((class-hash (make-hash-table :test #'equal))) + (dolist (class classes) + (setf (gethash (xml-class-element class) class-hash) class)) + (let ((importer (make-instance importer-class + :class-hash class-hash))) + (cxml:parse-file xml-file (cxml:make-recoder importer recoder)) + (importer-root-elt importer)))) Modified: branches/xml-class-rework/projects/lisp-ecoop/src/tags.lisp =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/src/tags.lisp 2006-02-18 12:58:11 UTC (rev 1847) +++ branches/xml-class-rework/projects/lisp-ecoop/src/tags.lisp 2006-02-19 10:29:19 UTC (rev 1848) @@ -312,3 +312,10 @@ (setf (get-template-var :object-id) (store-object-id object)) (mapc #'emit-template-node children))) +(define-bknr-tag page (&key children name) + (setf (get-template-var :title) name) + (let* ((expander bknr.web::*template-expander*) + (pathname (find-template-pathname expander "toplevel")) + (toplevel (bknr.web::get-cached-template pathname expander)) + (bknr.web::*toplevel-children* children)) + (emit-template-node toplevel))) \ No newline at end of file Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/cfp.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/cfp.xml 2006-02-18 12:58:11 UTC (rev 1847) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/cfp.xml 2006-02-19 10:29:19 UTC (rev 1848) @@ -1,6 +1,7 @@ <?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="lisp-ecoop.xsl" ?> -<page name="cfp"> +<lisp-ecoop:page name="cfp" + xmlns:lisp-ecoop="http://lisp-ecoop06.bknr.net"> <h1>Call for Participation</h1> @@ -144,4 +145,4 @@ <li>Christophe Rhodes, <a href="http://www.goldsmiths.ac.uk/departments/computing/staff/CR.html">http://www.goldsmiths.ac.uk/departments/computing/staff/CR.html</a>, Goldsmiths Colloge, University of London, United Kingdom</li> </ul> -</page> \ No newline at end of file +</lisp-ecoop:page> \ No newline at end of file Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/contact.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/contact.xml 2006-02-18 12:58:11 UTC (rev 1847) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/contact.xml 2006-02-19 10:29:19 UTC (rev 1848) @@ -1,9 +1,10 @@ <?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="lisp-ecoop.xsl" ?> -<page name="contact"> +<lisp-ecoop:page name="contact" + xmlns:lisp-ecoop="http://lisp-ecoop06.bknr.net"> <h1>Contact</h1> <p>Workshop related: <a href="mailto:pc@p-cos.net">Pascal Costanza</a></p> <p>Website related: <a href="mailto:hans@bknr.net">Hans Hübner</a></p> -</page> +</lisp-ecoop:page> Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-02-18 12:58:11 UTC (rev 1847) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-02-19 10:29:19 UTC (rev 1848) @@ -1,6 +1,7 @@ <?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="lisp-ecoop.xsl" ?> -<page name="home"> +<lisp-ecoop:page name="home" + xmlns:lisp-ecoop="http://lisp-ecoop06.bknr.net"> <p>Welcome to the Website of the 3rd European Lisp Workshop. Please see the <a href="cfp">Call for Participation</a> for a @@ -44,4 +45,4 @@ </div> --> -</page> +</lisp-ecoop:page> Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/people.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/people.xml 2006-02-18 12:58:11 UTC (rev 1847) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/people.xml 2006-02-19 10:29:19 UTC (rev 1848) @@ -1,6 +1,7 @@ <?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="lisp-ecoop.xsl" ?> -<page name="people"> +<lisp-ecoop:page name="people" + xmlns:lisp-ecoop="http://lisp-ecoop06.bknr.net"> <h1>People</h1> @@ -9,4 +10,4 @@ <lisp-ecoop:participant-list /> -</page> +</lisp-ecoop:page> Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/schedule.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/schedule.xml 2006-02-18 12:58:11 UTC (rev 1847) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/schedule.xml 2006-02-19 10:29:19 UTC (rev 1848) @@ -1,6 +1,7 @@ <?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="lisp-ecoop.xsl" ?> -<page name="schedule"> +<lisp-ecoop:page name="schedule" + xmlns:lisp-ecoop="http://lisp-ecoop06.bknr.net"> <lisp-ecoop:admin-only> <lisp-ecoop:schedule-submission /> @@ -21,7 +22,7 @@ <h2>Tuesday, July 4, 2006</h2> <table> <tr><th>Time</th><th>Event</th></tr> - <lisp-ecoop:show-day-schedule day="03-07-2006"> + <lisp-ecoop:show-day-schedule day="04-07-2006"> <tr><td><lisp-ecoop:time/></td><td><lisp-ecoop:content/></td></tr> </lisp-ecoop:show-day-schedule> </table> @@ -53,4 +54,4 @@ <input type="submit" value="add to schedule" /> </form> </lisp-ecoop:admin-only> -</page> +</lisp-ecoop:page>

1 0

[bknr-cvs] r1847 - in branches/xml-class-rework: bknr/src/data bknr/src/xml-impex modules tools
by bknr＠bknr.net 18 Feb '06

18 Feb '06

Author: hhubner Date: 2006-02-18 06:58:11 -0600 (Sat, 18 Feb 2006) New Revision: 1847 Modified: branches/xml-class-rework/bknr/src/data/object.lisp branches/xml-class-rework/bknr/src/xml-impex/xml-class.lisp branches/xml-class-rework/modules/bknr-modules.asd branches/xml-class-rework/modules/packages.lisp branches/xml-class-rework/tools/make-core.lisp Log: Save intermediate stage. object.lisp was broken, revert thirdparty changes due to infeasibility. Remove id3 stuff. Modified: branches/xml-class-rework/bknr/src/data/object.lisp =================================================================== --- branches/xml-class-rework/bknr/src/data/object.lisp 2006-02-18 10:02:10 UTC (rev 1846) +++ branches/xml-class-rework/bknr/src/data/object.lisp 2006-02-18 12:58:11 UTC (rev 1847) @@ -211,7 +211,7 @@ (find-class 'persistent-class)))) (error "Can not define a persistent class with metaclass ~A." metaclass)) `(define-bknr-class ,class ,superclasses ,slots - ,@(unless metaclass '(:metaclass persistent-class)) + ,@(unless metaclass '((:metaclass persistent-class))) ,@class-options))) (defmacro defpersistent-class (class (&rest superclasses) slots &rest class-options) Modified: branches/xml-class-rework/bknr/src/xml-impex/xml-class.lisp =================================================================== --- branches/xml-class-rework/bknr/src/xml-impex/xml-class.lisp 2006-02-18 10:02:10 UTC (rev 1846) +++ branches/xml-class-rework/bknr/src/xml-impex/xml-class.lisp 2006-02-18 12:58:11 UTC (rev 1847) @@ -122,6 +122,16 @@ (setf (xml-class-element class) (or (first element) (string-downcase (class-name class)))) (xml-class-finalize class)) +(defmethod xml-class-finalize ((class xml-class)) + (unless (class-finalized-p class) + (finalize-inheritance class)) + + (let ((slots (class-slots class)) + (elmdef (xml-class-element class))) + + slots)) + + (defmethod direct-slot-definition-class ((class xml-class) &key parent attribute element body &allow-other-keys) (if (or attribute element body parent) 'xml-direct-slot-definition Modified: branches/xml-class-rework/modules/bknr-modules.asd =================================================================== --- branches/xml-class-rework/modules/bknr-modules.asd 2006-02-18 10:02:10 UTC (rev 1846) +++ branches/xml-class-rework/modules/bknr-modules.asd 2006-02-18 12:58:11 UTC (rev 1847) @@ -29,8 +29,7 @@ :bknr :klammerscript #+(not allegro) - :acl-compat - :bknr-id3) + :acl-compat) :components ((:file "packages") Modified: branches/xml-class-rework/modules/packages.lisp =================================================================== --- branches/xml-class-rework/modules/packages.lisp 2006-02-18 10:02:10 UTC (rev 1846) +++ branches/xml-class-rework/modules/packages.lisp 2006-02-18 12:58:11 UTC (rev 1847) @@ -6,7 +6,6 @@ :cl-interpol :net.aserve :puri - :bknr.id3 :bknr.rss :bknr.utils :bknr.web Modified: branches/xml-class-rework/tools/make-core.lisp =================================================================== --- branches/xml-class-rework/tools/make-core.lisp 2006-02-18 10:02:10 UTC (rev 1846) +++ branches/xml-class-rework/tools/make-core.lisp 2006-02-18 12:58:11 UTC (rev 1847) @@ -6,7 +6,6 @@ (defparameter *src-directory* (make-pathname :directory (pathname-directory *load-truename*))) (defparameter *bknr-directory* (merge-pathnames #p"bknr-svn/" (user-homedir-pathname))) -(defparameter *central-repository* (merge-pathnames #p"central-repository/" (user-homedir-pathname))) #+cmu #-cmu19b (load (merge-pathnames "bknr/patches/patch-around-mop-cmucl19a.lisp" *bknr-directory*))

1 0