Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
48 lines (42 sloc) 1.54 KB
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
#+(or allegro lispworks cmu mcl ccl clisp cormanlisp sbcl scl ecl abcl)
(progn
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(asdf:defsystem :cells
:name "cells"
:author "Kenny Tilton <kentilton@gmail.com>"
:maintainer "Kenny Tilton <kentilton@gmail.com>"
:licence "Lisp LGPL"
:description "Cells"
:long-description "Cells: a dataflow extension to CLOS."
:version "3.0"
:serial t
:depends-on (:utils-kt)
:components ((:file "defpackage")
(:file "trc-eko")
(:file "cells")
(:file "integrity")
(:file "cell-types")
(:file "constructors")
(:file "initialize")
(:file "md-slot-value")
(:file "slot-utilities")
(:file "link")
(:file "propagate")
(:file "synapse")
(:file "synapse-types")
(:file "model-object")
(:file "defmodel")
(:file "family")
(:file "fm-utilities")
(:file "md-utilities")
(:file "family-values")
(:file "test-propagation")
(:file "cells-store")
(:file "test-cc")))
(defmethod perform ((o load-op) (c (eql (find-system :cells))))
(pushnew :cells *features*))
(defmethod perform ((o test-op) (c (eql (find-system :cells))))
(oos 'load-op :cells-test))
(defmethod perform ((o test-op) (c (eql :cells)))
(oos 'load-op :cells-test)))
Something went wrong with that request. Please try again.