Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

Diff of /src/cmp/cmplam.lsp [e06ff1] .. [6b9e9c] Maximize Restore

  Switch to side-by-side view

--- a/src/cmp/cmplam.lsp
+++ b/src/cmp/cmplam.lsp
@@ -70,8 +70,8 @@
 	 narg)))
 
 (defun add-referred-variables-to-function (fun var-list)
-  (setf (fun-referred-vars fun)
-	(set-difference (union (fun-referred-vars fun) var-list)
+  (setf (fun-referenced-vars fun)
+	(set-difference (union (fun-referenced-vars fun) var-list)
 			(fun-local-vars fun)))
   fun)
 
@@ -126,10 +126,10 @@
 	  (fun-description fun) name
 	  (fun-no-entry fun) no-entry)
     (reduce #'add-referred-variables-to-function
-	    (mapcar #'fun-referred-vars children)
+	    (mapcar #'fun-referenced-vars children)
 	    :initial-value fun)
     (reduce #'add-referred-variables-to-function
-	    (mapcar #'fun-referred-vars (fun-referred-funs fun))
+	    (mapcar #'fun-referenced-vars (fun-referenced-funs fun))
 	    :initial-value fun)
     (do ((finish nil))
 	(finish)
@@ -141,7 +141,7 @@
     (when global
       (if (fun-closure fun)
           (cmpnote "Function ~A is global but is closed over some variables.~%~{~A ~}"
-                   (fun-name fun) (mapcar #'var-name (fun-referred-vars fun)))
+                   (fun-name fun) (mapcar #'var-name (fun-referenced-vars fun)))
           (new-defun fun (fun-no-entry fun)))))
   fun)