The closest I can come to Cells in what I've worked with prior to this is Facebook's ReactJS, but it's fairly limited to client-side display propagation of changes triggered either by client action or server updates.

I don't know if this really meshes with your criteria for prior work, but I hope it's useful.

The prog1 in defmodel causes warnings because the defclass is not as a top-level-form.

One solution would be to replace the prog1 with a progn then return the class at the end using (find-class ',class).

Cheers

Hallo,
cells works with ccl as soon as it is modified to accept ccl among the lisps.

*** cells.asd.orig 2013-01-16 19:41:59.492011140 +0100
--- cells.asd 2013-01-16 19:41:09.371762640 +0100

*** 1,6 ****
;;;; -- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 --

! #+(or allegro lispworks cmu mcl clisp cormanlisp sbcl scl)
(progn
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))

--- 1,6 ----
;;;; -- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 --

! #+(or allegro lispworks cmu mcl clisp cormanlisp sbcl scl ccl)
(progn
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))

*** defpackage.lisp 2013-01-16 19:41:09.371762640 +0100
--- defpackage.lisp.orig 2013-01-16 19:41:59.492011140 +0100

*** 36,42 ****

+openmcl-partial-mop #:openmcl-mop

+(and mcl (not openmcl-partial-mop)) #:ccl

! #-(or allegro clisp cmu cormanlisp lispworks mcl sbcl ccl)

.(cerror "Provide a package name."

"Don't know how to find the MOP package for this Lisp.")

--- 36,42 ----

+openmcl-partial-mop #:openmcl-mop

+(and mcl (not openmcl-partial-mop)) #:ccl

! #-(or allegro clisp cmu cormanlisp lispworks mcl sbcl)

.(cerror "Provide a package name."

"Don't know how to find the MOP package for this Lisp.")

*** detritus.lisp 2013-01-16 19:40:59.511713666 +0100
--- detritus.lisp.orig 2013-01-16 19:41:42.715927414 +0100

*** 40,47 ****
;; all this was conditional on c being found, but if it isn't the find-class errors as coded so
;; let's take out the meaningless condition and see what happens
(finalize-inheritance cc)
! #-sbcl(#-ccl(mop::class-prototype cc)
! #+ccl(class-prototype cc))

+sbcl(sb-mop:class-prototype cc)))

(defun brk (&rest args)
--- 40,46 ----
;; all this was conditional on c being found, but if it isn't the find-class errors as coded so
;; let's take out the meaningless condition and see what happens
(finalize-inheritance cc)
! #-sbcl(mop::class-prototype cc)

+sbcl(sb-mop:class-prototype cc)))

(defun brk (&rest args)

*** utils-kt.asd 2013-01-16 19:40:59.511713666 +0100
--- utils-kt.asd.orig 2013-01-16 19:41:42.715927414 +0100

*** 6,12 ****
;;;(operate 'load-op :asdf-aclproj)
;;;(use-package :asdf-aclproj)

! #+(or allegro lispworks cmu mcl clisp cormanlisp sbcl scl ccl)

(asdf:defsystem :utils-kt
:name "utils-kt"
--- 6,12 ----
;;;(operate 'load-op :asdf-aclproj)
;;;(use-package :asdf-aclproj)

! #+(or allegro lispworks cmu mcl clisp cormanlisp sbcl scl)

(asdf:defsystem :utils-kt
:name "utils-kt"

I saw that you use the MIT license, but this way it is more easily visible.