Commit ae658010 authored by Michael Raskin's avatar Michael Raskin

Syncing from Monotone at 20190831-024636. Last commit message was Force-set...

Syncing from Monotone at 20190831-024636. Last commit message was Force-set caching when generating ESRAP rules
parent b810e509
......@@ -40,19 +40,22 @@
(push `(add-rule
',sym
(make-instance
'rule
:expression ',expression
:transform
,(cond
((eq transform :list)
`(lambda (l &rest pos) (declare (ignorable pos)) (list ',sym l)))
((symbolp transform) `'(symbol-function ,transform))
((functionp (eval transform)) transform)
(t nil)
)
:condition t
:guard-expression t
))
'rule
:expression ',expression
:transform
,(cond
((eq transform :list)
`(lambda (l &rest pos) (declare (ignorable pos)) (list ',sym l)))
((symbolp transform) `'(symbol-function ,transform))
((functionp (eval transform)) transform)
(t nil)
)
:condition t
:guard-expression t
:properties (esrap::make-rule-properties
:uses-cache t
:uses-cache-unless-trivial t)
))
code-storage
)))
)
......
......@@ -51,6 +51,9 @@
)
:condition t
:guard-expression t
:properties (esrap::make-rule-properties
:uses-cache t
:uses-cache-unless-trivial t)
))
)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment