From 359ca0a0cfb5fe4dd202cc82b2b4a9b9c4dccd52 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Thu, 23 May 2013 01:29:47 +0100 Subject: [PATCH] Rename ir-convert-functoid to convert-functional --- experimental/compiler.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp index 1b296f0..c9a223d 100644 --- a/experimental/compiler.lisp +++ b/experimental/compiler.lisp @@ -630,7 +630,7 @@ (set-cursor :block dummy)))) -(defun ir-convert-functoid (result name arguments &rest body) +(defun convert-functional (result name arguments &rest body) (let ((component) (return-lvar (make-lvar))) (with-component-compilation (name) @@ -654,7 +654,7 @@ (let ((desc (cdr name))) (when (eq 'lambda (car name)) (push nil desc)) - (apply #'ir-convert-functoid (result-lvar) desc))) + (apply #'convert-functional (result-lvar) desc))) (setf)))) (defun ir-convert-var (form result) -- 1.7.10.4