;; 
;;(pairlis '(1 2 3) '("one" "two" "three") '((4 "four"))) 
;;

 
(define (pairlis keys data alist) 
  (setq data2 data) 
  (setq newlist '()) 
  (dolist (x keys) 
          (push (list x (pop data2)) newlist -1)) 
  (append newlist alist)) 

;; newLISPy way

(define (pairlis keys data alist) 
  (append (map (lambda (x y) (list x y)) keys data) alist))