Fri Nov 13 11:31:41 UTC 2009  pix@kepibu.org
  * Status checkin
diff -rN -u old-Oh, Ducks!/css-selector-unifier.asd new-Oh, Ducks!/css-selector-unifier.asd
--- old-Oh, Ducks!/css-selector-unifier.asd	2015-12-04 06:47:16.000000000 +0000
+++ new-Oh, Ducks!/css-selector-unifier.asd	2015-12-04 06:47:17.000000000 +0000
@@ -1,15 +1,19 @@
+(defpackage #:css-selector-unifier.system
+  (:use #:cl #:asdf))
+(in-package #:css-selector-unifier.system)
+
 (asdf:defsystem css-selector-unifier
   :version "0"
   :description "cl-unification templates using CSS-style selectors"
-  :maintainer " <pix@kepibu.org>"
-  :author " <pix@kepibu.org>"
+  :maintainer "pinterface <pix@kepibu.org>"
+  :author "pinterface <pix@kepibu.org>"
   :licence "BSD-style"
   ;; TODO: submit a patch for cl-unification to use
   ;; asdf-system-connections.  Getting an unmodified version of
   ;; cl-unification to load the cl-ppcre stuff is a PITA.
   :depends-on (:cl-unification :cl-ppcre :cxml :closure-html :split-sequence)
   :serial t
-  ;; components likely need manual reordering
+  ;; FIXME: ordering
   :components ((:file "package")
                (:file "regexp-template")
                #+(or) (:file "tests")
@@ -19,9 +23,3 @@
                          (:file "lhtml" :depends-on ("interface"))
                          (:file "pt" :depends-on ("interface"))))
                (:file "unification-templates")))
-
-;; closure-html and cl-unification both indiscriminately set up #t as a
-;; reader.  We ensure cl-unification's #t wins.
-#+(or)
-(eval-when (:load-toplevel :execute)
-  (set-dispatch-macro-character #\# #\T 'unify::|sharp-T-reader|))
diff -rN -u old-Oh, Ducks!/unification-templates.lisp new-Oh, Ducks!/unification-templates.lisp
--- old-Oh, Ducks!/unification-templates.lisp	2015-12-04 06:47:16.000000000 +0000
+++ new-Oh, Ducks!/unification-templates.lisp	2015-12-04 06:47:17.000000000 +0000
@@ -1,4 +1,7 @@
 (in-package #:css-selector-unifier)
+;; FIXME: this file crashes clisp when loading the fasl...wtf?
+
+#.(set-dispatch-macro-character #\# #\T 'unify::|sharp-T-reader|)
 
 (defclass css-selector-template (unify::expression-template)
   (#+(or)
@@ -15,7 +18,6 @@
 (defclass pt-template (html-template) ())
 
 (defmethod make-template ((kind (eql 'lhtml)) (spec cons))
-  (format t "spec: ~s~%" spec)
   (make-instance 'lhtml-template :spec spec))
 
 (defmethod make-template ((kind (eql 'html)) (spec cons))
@@ -97,6 +99,9 @@
     (let ((specifier (template-spec template)))
       (setf (slot-value template 'matcher) (parse-css-specifier (string-trim " " specifier))))))
 
+;; FIXME: Apparently the #T() objects are causing clisp to crash during
+;; fasl-loading.  Quite possibly clisp is unable to save objects to fasls.
+#+(or)
 (defun parse-css-specifier (specifier)
   (match-case (specifier)
     ;; combinators