Исправление monk, (текущая версия) :
а как сюда внутрь заглянуть
Так и заглядывай
(find-vars '(s d ? c v))
==
(append (find-vars 's) (find-vars '(d ? c v)))
;; (find-vars 's) = nil
==
(find-vars '(d ? c v))
==
(find-vars '(? c v))
==
(append (find-vars '?) (find-vars '(c v)))
;; (find-vars '?) = '(?)
==
(append '(?) (find-vars '(c v)))
==
(append '(?) (find-vars '(v)))
==
(append '(?) (find-vars nil))
==
'(?)
Исходная версия monk, :
а как сюда внутрь заглянуть
Так и заглядывай
(find-vars '(s d ? c v))
==
(append (find-vars 's) (find-vars '(d ? c v)))
;; (find-vars 's) = nil
==
(find-vars '(d ? c v)
==
(find-vars '(? c v)
==
(append (find-vars '?) (find-vars '(c v)))
;; (find-vars '?) = '(?)
==
(append '(?) (find-vars '(c v))
==
(append '(?) (find-vars '(v))
==
(append '(?) (find-vars nil)
==
'(?)