The username under which gitlab is running, has changed from gitlab to git. If you get the following message when pushing or pulling: Permission denied (publickey), then execute this command in your repository directory: git remote set-url origin . (replace namespace and project by the appropriate values). Use git remote -v to check the current value.

Commits (6)
### Common Lisp ###
......@@ -6,7 +6,7 @@
remote =
branch = master
commit = aedefd25b891adf79cf6f07c3bc1c3664a6c577d
parent = c1318cc5b99863d52227e9890c00f3d1338bc514
commit = 0c31577a5859b5b2ce1a8212bd81785902f55c08
parent = 252e1d97ad59c84cea8e6f94ae1eb87af2e423e4
method = merge
cmdver = 0.4.0
......@@ -19,6 +19,7 @@
add-category add-categories add-link
......@@ -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"