re: Elegant solution asked

Very often I need a function to map a 2 argument function over a list and
a fixed argument. For example, if we call such function map1:
(map1 #'list 'z '(a b c)) should return: '((z a) (z b) (z c))
>
Can anyone suggest an elegant solution for this. The best I could come up
with was:
>
(defun map1 (function fixed-argument list)
    (mapcar (lambda (element) (funcall fn fixed-argument element)) list))
>
This works fine, but I have the gut feeling that there must be a
better/simpler way. Any ideas?
Thanks in advance.
Please reply to: lsarasua@epo.e-mail.com

 
I prefer the following (I guess because it avoids the funcall), although
I don't claim it is is significantly better.
 
(defun map1 (function fixed_argument list) (mapcar function
             (mapcar #'(lambda (x) fixed-argument) list) list))

Scheme

(map (curry list '--) '(a b c))
  ===>
((-- a) (-- b) (-- c))

(map (curryr list '--) '(a b c))
  ===>
((a --) (b --) (c --))