```lisp
(let ((y 42))
    (setf (fdefinition 'mul42) (lambda (x) (* x y))))
(print (mul42 12))
```