thodg/cl-unix-cybernetics

diff --git a/core/defs.lisp b/core/defs.lisp
index a395bd7..9827220 100644
--- a/core/defs.lisp
+++ b/core/defs.lisp
@@ -116,6 +116,8 @@
 
 (setq *the-resource-class* (find-class 'resource))
 
+(defvar *resource*)
+
 ;;  Resource container
 
 (defun make-resource-registry ()
@@ -191,6 +193,13 @@
 
 ;;  Probing resources
 
+(defgeneric find-probe (resource property os))
+(defgeneric probe (resource property))
+(defgeneric get-probed (resource property))
+(defgeneric clear-probed% (resource properties))
+(defgeneric describe-probed% (resource output))
+(defgeneric describe-probed-property-value (resource property value))
+
 (define-condition resource-probe-error (error)
   ((resource :initarg :resource)
    (property :initarg :property)