Contents    Page-10    Prev    Next    Page+10    Index   

Examples


; append two lists
(defun append1 (l m)
  (if (null l)
      m
      (cons (car l) (append1 (cdr l) m))))


>(fnmix 'append1 '('(1 2 3) m))
(CONS 1 (CONS 2 (CONS 3 M)))