(set-dispatch-macro-character #\# #\l
                              (lambda (stream c n)
                                (declare (ignore c))
                                (let ((list (read stream nil (values) t))
                                      (arg-names '(x y z w)))
                                  (when (consp list)
                                    (let ((n (if n
                                                 (min (1- (length arg-names)) n)
                                                 0)))
                                      `(lambda (,@(subseq arg-names 0 n))
                                         ,list))))))