cl:assoc-adjoin   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

(define (cl:assoc-adjoin pair lst)
   (if (assoc (car pair) lst)
       lst
       (cons pair lst)))


Back to Index