Use funcall instead of apply/list.

Pascal J. Bourguignon [2014-10-02 21:35]
Use funcall instead of apply/list.
Filename
common-lisp/obsolete-or-incomplete/graf.lisp
diff --git a/common-lisp/obsolete-or-incomplete/graf.lisp b/common-lisp/obsolete-or-incomplete/graf.lisp
index 016fb7d..993411f 100644
--- a/common-lisp/obsolete-or-incomplete/graf.lisp
+++ b/common-lisp/obsolete-or-incomplete/graf.lisp
@@ -1075,7 +1075,7 @@
                          out (fourth x) (fourth x)
                          (node-pos-x x) (node-pos-y x)
                          (node-size-x x) (node-size-y x)
-                         (apply  node-name (list (car x)))))
+                         (funcall node-name (car x))))
             lnij)
     (graf-diagram-generate-edges
      out leij (1+ (apply 'max (mapcar #'third leij))))
ViewGit