-
Notifications
You must be signed in to change notification settings - Fork 12
Expand file tree
/
Copy pathactr.asd
More file actions
120 lines (106 loc) · 4.94 KB
/
Copy pathactr.asd
File metadata and controls
120 lines (106 loc) · 4.94 KB
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
;;; (install-dist "http://beta.quicklisp.org/dist/quicklisp/2016-02-08/distinfo.txt" :replace t)
(defsystem actr
:name "actr"
:description "The ACT-R cognitive architecture."
:author "Dan Bothell <db30@andrew.cmu.edu>"
:maintainer "Dan Bothell <db30@andrew.cmu.edu>"
:version "7.0.1930"
:licence "LGPL-2.1"
:serial t
:components ((:file "stubs")
(:module "framework"
:serial t
:components ((:file "version-string")
(:file "internal-structures")
(:file "internal-macros")
(:file "misc-utils")
(:file "system-parameters")
(:file "meta-process")
(:file "chunk-types")
(:file "chunks")
(:file "modules")
(:file "parameters")
(:file "buffers")
(:file "model")
(:file "events")
(:file "scheduling")
(:file "chunk-spec")
(:file "top-level")
(:file "device-interface")
(:file "vision-categorization")
(:file "random")
(:file "printing")
(:file "naming-module")))
(:module "support-early"
:pathname "support"
:serial t
:components ((:file "central-parameters")
(:file "productions")
(:file "goal-style-module")
(:file "general-pm")))
(:module "core-modules"
:serial t
:components ((:file "declarative-memory")
(:file "goal")
(:file "procedural")
(:file "vision")
(:file "motor")
(:file "motor-extension")
(:file "audio")
(:file "speech")
(:file "imaginal")))
(:module "support-late"
:pathname "support"
:serial t
:components ((:file "production-parsing-support")
(:file "uni-files")
(:file "environment-colors")))
(:module "devices"
:components ((:module "virtual"
:serial t
:components ((:file "device") (:file "uwi")))))
(:module "commands"
:serial t
:components ((:file "conflict-tree")
(:file "dm-commands")
(:file "procedural-cmds")
(:file "p-star-cmd")))
(:module "modules"
:serial t
:components #.(mapcar #'(lambda (x)
`(:file ,(file-namestring
(make-pathname :type nil :defaults (pathname x)))))
(directory "modules/*.lisp")))
(:module "environment"
:serial t
:components ((:file "handler-class")
(:file "server")
(:file "env-module")
#+(and :mcl (not :openmcl))(:file "mcl-fix")
(:file "handlers")
(:file "environment-cmds")
(:file "stepper-control")
(:file "env-device")))
(:module "tools"
:serial t
:components ((:file "buffer-trace")
(:file "goal-compilation")
(:file "imaginal-compilation")
(:file "motor-compilation")
(:file "perceptual-compilation")
(:file "retrieval-compilation")))
(:module "other"
:pathname "other-files"
:serial t
:components ((:file "system-param-init")
(:file "bold")
(:file "buffer-history")
(:file "production-history")
(:file "retrieval-history")
(:file "env-graphic-trace")))
)
)
(defmethod perform :before ((op asdf:load-op) (system (eql (find-system :actr))))
#+(and :mcl (not :openmcl)) (require 'quickdraw))
(defmethod perform :after ((op asdf:load-op) (system (eql (find-system :actr))))
(funcall (intern (symbol-name 'mp-print-versions))))