LINUX.ORG.RU

elisp, какая-то странность с listp

 , , listp


1

1

Хотя, скорее всего я чего-то не знаю :)

Есть такой код:

 (loop for item  in minor-mode-alist
             do (if (listp (car item))
                    (message "List %s" (car item))
                  (message "Notlist %s" (car item))))

выдаёт:

... skipped ...
Notlist semantic-minor-modes-format
... skipped ...

Хотя

(listp semantic-minor-modes-format)
=> t

★★★★★

И избавляйся от быдлокода

(loop for item  in minor-mode-alist
   do (let ((car-item (car item)))
	(if (listp car-item)
	    (message "List %s" car-item)
	    (message "Notlist %s" car-item))))
ados ★★★★★
()
Ответ на: комментарий от ados

Хм... понятно

 (loop for item  in minor-mode-alist
             do (if (listp (symbol-value (car item)))
                    (message "List %s" (car item))
                  (message "Notlist %s" (car item))))

Bad_ptr ★★★★★
() автор топика
Ответ на: комментарий от ados

избавляйся от быдлокода

Не. Это-то обязательно, быдлокод это только для проверок и экспериментов. :)

Bad_ptr ★★★★★
() автор топика
Ответ на: комментарий от Bad_ptr

Отступы я доверяю emacs'у.

Для канонического отступа нужно, находясь на строке, нажать Tab.

dave ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.