better-append   macro


Defined in:  https://github.com/lambdamusic/extempore-extensions/blob/main/init/init_lisp.xtm

Implementation

(define-macro (better-append . args)
    ; (log-info args)
    `(if (list? ,(car args)) 
        (begin 
          ; (log-info "it's a list") 
          (oldappend ,@args))
        (begin 
          ; (log-info "not a list") 
          (oldappend (list ,(car args)) ,@(cdr args)))))


Back to Index