sources/gen-sequence.lisp
@@ -156,7 +156,7 @@ collect (let* ((second (nconc (list first-harmony) external-list)) (let* ((second (append (list first-harmony) (reverse external-list))) (first (car (last second)));6000 6700 (second (let* ((temp-base database) @@ -671,7 +671,7 @@ (nreverse (push second external-list)) (push second external-list) (values second)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
