Update of /project/gsharp/cvsroot/gsharp In directory cl-net:/tmp/cvs-serv27245
Modified Files: mf.lisp Log Message: Make it possible to use cycle after --.
--- /project/gsharp/cvsroot/gsharp/mf.lisp 2007/07/17 06:36:32 1.2 +++ /project/gsharp/cvsroot/gsharp/mf.lisp 2008/11/15 17:19:38 1.3 @@ -136,8 +136,10 @@ (setf (curl (right-context x)) (slot-value y 'curl)) (setf (direction (right-context x)) (slot-value y 'direction))) (if (typep y 'curl) - (setf (curl (left-context z)) (slot-value y 'curl)) - (setf (direction (left-context z)) (slot-value y 'direction))))))) + (setf (curl (left-context (if (eq z *cycle*) (car path) z))) + (slot-value y 'curl)) + (setf (direction (left-context (if (eq z *cycle*) (car path) z))) + (slot-value y 'direction)))))))
(defun propagate-tensions-controls (path) (loop for (x y z) on path