...
 
Commits (6)
### Common Lisp ###
*.FASL
*.fasl
*.xfasl
*.lisp-temp
*.dfsl
*.pfsl
......
......@@ -6,7 +6,7 @@
[subrepo]
remote = https://gitlab.ai.vub.ac.be/rvantrijp/category-hierarchies.git
branch = master
commit = aedefd25b891adf79cf6f07c3bc1c3664a6c577d
parent = c1318cc5b99863d52227e9890c00f3d1338bc514
commit = 0c31577a5859b5b2ce1a8212bd81785902f55c08
parent = 252e1d97ad59c84cea8e6f94ae1eb87af2e423e4
method = merge
cmdver = 0.4.0
......@@ -19,6 +19,7 @@
fcg-construction-set-with-type-hierarchy
add-category add-categories add-link
get-type-hierarchy
set-type-hierarchy
directed-path-p
node-p
coherence))
......@@ -51,7 +52,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defmethod copy-object-content ((source type-hierarchy) (destination type-hierarchy))
(setf (graph destination) (graph source)))
(setf (graph destination) (copy-graph (graph source))))
(defgeneric add-category (category type-hierarchy))
(defmethod add-category ((category symbol) (type-hierarchy type-hierarchy))
......@@ -148,6 +149,10 @@
(when (field? (blackboard cxn-inventory) :type-hierarchy)
(get-data (blackboard cxn-inventory) :type-hierarchy)))
(defun set-type-hierarchy (cxn-inventory type-hierarchy)
"Returns the type-hierarchy of cxn-inventory or nil if there is no such slot"
(set-data (blackboard cxn-inventory) :type-hierarchy type-hierarchy))
(defgeneric undirected-path (node1 node-2 type-hierarchy))
(defmethod undirected-path ((n1 integer) (n2 integer) (type-hierarchy type-hierarchy))
"returns any path between two nodes, doesn't take into account direction of links"
......