|
@@ -45,16 +45,11 @@
|
|
|
',name)))
|
|
|
|
|
|
(defun get-expansion (expression)
|
|
|
- (first
|
|
|
- (remove-if #'null
|
|
|
- (map 'list
|
|
|
- #'(lambda (nte)
|
|
|
- (let ((test (second nte))
|
|
|
- (expander (third nte)))
|
|
|
- (if (apply test expression)
|
|
|
- expander
|
|
|
- nil)))
|
|
|
- *rules*))))
|
|
|
+ (second (first
|
|
|
+ (remove-if-not #'(lambda (nte)
|
|
|
+ (let ((test (second nte)))
|
|
|
+ (apply test expression)))
|
|
|
+ *rules*))))
|
|
|
|
|
|
(defun derive (function)
|
|
|
(declare (cons function))
|