Jump to content


  • Content Count

  • Joined

  • Last visited

About jfcharles

  • Rank
    Junior Member

Contact Methods

Profile Information

  • Location
    Iowa City
  1. jfcharles


  2. And here is what I have as "replace" version. For instance if you want to replace pizz by arco and arco by pizz: (defun attribute-replace (new-old-list list-of-attributes) (mapcar (lambda (list) (join-attributes list)) (replace-map new-old-list (mapcar (lambda (attr) (disjoin-attributes attr)) list-of-attributes)))) (attribute-replace '((pizz arco) (arco pizz)) '(ten+arco pizz arco pizz+marc)) => (ten+pizz arco pizz arco+marc) Let me know if there are other ways of doing this, thanks!
  3. 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)
  4. Congratulations to the Opus Modus team on a great update! All best to all of you.
  • Create New...

Important Information

Terms of Use Privacy Policy