diff --git a/lens.lisp b/lens.lisp
index b074ec9..a24ed2b 100644
--- a/lens.lisp
+++ b/lens.lisp
@@ -24,6 +24,16 @@
   (:method ((it function))
     it))
 
+(define-compiler-macro functionalize (&whole whole it)
+  (typecase it
+    (cons (destructuring-bind (h . tail) it
+            (declare (ignore tail))
+            (case h
+              (quote it)
+              (function it)
+              (t whole))))
+    (t whole)))
+
 ;;; TODO: consider making this wrap defalias?
 (defmacro shortcut (name function &body bound-args)
   `(eval-when (:load-toplevel :compile-toplevel :execute)