From 69f9180bb2978a7224f17d2d01afa7b3f4ffae7f Mon Sep 17 00:00:00 2001
From: Bertrand BRUN <bertrand.brun@me.com>
Date: Sat, 6 Nov 2010 01:29:38 +0100
Subject: [PATCH] Renommage de readfile en mload

---
 util.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/util.lisp b/util.lisp
index 4abcb5f..28954e3 100644
--- a/util.lisp
+++ b/util.lisp
@@ -57,7 +57,7 @@
             (shift ,(count-if (lambda (x) (eq x :skip)) params)
                    actual-params))))
 
-(defun readfile (name)
+(defun mload (name)
   (let ((fd (open name)))
     (cons 'progn
           (loop