forked from kennytilton/cells
-
Notifications
You must be signed in to change notification settings - Fork 0
/
cells.asd
executable file
·46 lines (41 loc) · 1.5 KB
/
cells.asd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
#+(or allegro lispworks cmu mcl clisp cormanlisp sbcl scl ecl ccl abcl clasp)
(progn
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(asdf:defsystem :cells
:name "cells"
:author "Kenny Tilton <[email protected]>"
:maintainer "Kenny Tilton <[email protected]>"
: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 "md-utilities")
(:file "family")
(:file "fm-utilities")
(:file "family-values")
(:file "test-propagation")
(:file "cells-store")))
(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)))