From ccdc56552dafeed328f43fff5aefff1f9773a3a0 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 24 Mar 2018 21:53:09 -0700 Subject: compiler: implement dwim special op. * share/txr/stdlib/compiler.tl (compiler compile): Handle dwim case via comp-dwim. (compiler comp-dwim): New method. --- share/txr/stdlib/compiler.tl | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'share') diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 239c3a4e..7deddcae 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -192,6 +192,7 @@ (mac-param-bind me.(comp-mac-param-bind oreg env form)) (tree-case me.(comp-tree-case oreg env form)) (sys:lisp1-value me.(comp-lisp1-value oreg env form)) + (dwim me.(comp-dwim oreg env form)) (sys:upenv me.(compile oreg env.up (cadr form))) (sys:dvbind me.(compile oreg env (caddr form))) (sys:with-dyn-rebinds me.(comp-progn oreg env (cddr form))) @@ -797,6 +798,12 @@ (list arg)))))) (t me.(compile oreg env arg))))) +(defmeth compiler comp-dwim (me oreg env form) + (mac-param-bind form (op obj . args) form + (let ((l1-exprs (cdr form))) + me.(compile oreg env + ^(call ,*(mapcar (op list 'sys:lisp1-value) l1-exprs)))))) + (defun maybe-mov (to-reg from-reg) (if (nequal to-reg from-reg) ^((mov ,to-reg ,from-reg)))) -- cgit v1.2.3