fiddlerwoaroof/data-lens
1
0
Fork 0
mirror of https://github.com/fiddlerwoaroof/data-lens.git synced 2025-11-08 10:16:32 +00:00
Code Issues Releases Wiki Activity

feat: add compiler macro for functionalize

Browse Source
This commit is contained in:
Edward Langley
2023-03-26 11:06:40 -07:00
parent c9dbe2109f
commit f51e305922
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lens.lisp
View File

@ -24,6 +24,16 @@
(:method ((it function)) (:method ((it function))
it)) 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? ;;; TODO: consider making this wrap defalias?
(defmacro shortcut (name function &body bound-args) (defmacro shortcut (name function &body bound-args)
`(eval-when (:load-toplevel :compile-toplevel :execute) `(eval-when (:load-toplevel :compile-toplevel :execute)