fix (sources): change operators

Lorenz Lehmann

12.02.24 f3e3b20c9bce4a635d3b7a99bc1f02e4310e516b

fix (sources): change operators

gen-sequence: replace operators nconc and nreverse by append and reverse

 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))))))
               
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;