Lisp Помощь | Ошибка: дублирование привязки в LOOP: (результат) - PullRequest
Новая
       21

Lisp Помощь | Ошибка: дублирование привязки в LOOP: (результат)

0 голосов
/ 12 февраля 2012 
(defmethod! expand-t-setclass (pcset &optional (n 12))
  :icon *PC_ICON*
  :doc "
Given any member of a t-setclass, lists every member of that t-setclass.
The optional parameter N can be used to set the number of equal steps per
octave to something other than the default of 12.

Will tolerate integers out of the mod-N range in PCSET."
  :initvals '((1 3 4) 12)
  :indoc '("pcset or list of them"
           "modulus of the pc space")
  (if (listp (first pcset))
    (expand-t-setclasses pcset)
    (let ((t-prime (t-primeform pcset n)))
      (loop with result = nil
            repeat n
            for x-pcset = pcset then (xpose x-pcset 1 n)
            unless (member x-pcset result) collect x-pcset into result
            finally return result))))


(defmethod! expand-t-setclasses (pcset &optional (n 12))
  (loop for item in pcset collect (expand-t-setclass item n)))

;-----

Я не слишком знаком с Лиспом в целом и пытаюсь найти ошибку, которая вызывает эту ошибку:

ОШИБКА: дублирование привязки в цикле: (результат)

1 Ответ

1 голос
/ 12 февраля 2012

В LOOP есть две формы, представляющие переменную RESULT. 

WITH result = nil

и 

COLLECT ... INTO result

Обе выше создают привязку переменной.

Я бы заменилCOLLECT с формой, которая помещает элемент в список RESULT. 

(loop ...
      collect item into foo
      ...
      finally (return foo))

в 

(loop with foo = nil
      ...
      (push item foo)
      ...
      finally (return (reverse foo)))

У вас есть другая ошибка: 

FINALLY RETURN result

Синтаксис LOOPне поддерживает это.НАКОНЕЦ ожидает сложную форму.

Замените его на: 

FINALLY (return result)

RETURN - это определенный макрос в Common Lisp.

...