thodg/cl-unix-cybernetics

diff --git a/core/operation.lisp b/core/operation.lisp
index 92fd6b8..5c8bff4 100644
--- a/core/operation.lisp
+++ b/core/operation.lisp
@@ -20,6 +20,9 @@
 
 ;;  Operation methods
 
+(declaim (ftype (function (operation) function) operation-generic-function))
+(defgeneric operation-generic-function (operation))
+
 (defmethod operation-generic-function ((op operation))
   (symbol-function (operation-name op)))