Renommage de readfile en mload

2010-11-06 01:29:38 +01:00 · 2010-11-06 01:29:38 +01:00 · 69f9180bb2
commit 69f9180bb2
parent 35b54fe1da
1 changed files with 1 additions and 1 deletions
--- 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