jfcharles Posted March 14, 2020 Share Posted March 14, 2020 Hi, Newcomer here, please point me to resources if I'm missing something obvious. Here is a function that substitutes attributes when they are combined. Is there an easier way of doing this? Thanks! (defun attribute-substitution (new old list-of-attributes) (mapcar (lambda (list) (join-attributes list)) (substitute-map new old (mapcar (lambda (attr) (disjoin-attributes attr)) list-of-attributes)))) (attribute-substitution 'pizz 'arco '(ten+arco pizz arco)) => (ten+pizz pizz pizz) Quote Link to comment Share on other sites More sharing options...
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.