thodg/cl-unix-cybernetics

diff --git a/core/host.lisp b/core/host.lisp
index c416153..fe6cc24 100644
--- a/core/host.lisp
+++ b/core/host.lisp
@@ -188,3 +188,16 @@
                                     (b os))
   (string= (prin1-to-string a)
            (prin1-to-string b)))
+
+(defmethod match-specified-value ((res host)
+                                  (property (eql :packages))
+                                  (specified list)
+                                  (probed list))
+  (format t "~&match-specified-value specified ~S~%" specified)
+  (format t "~&match-specified-value probed ~S~%" probed)
+  (force-output)
+  (loop (when (endp specified)
+          (return t))
+     (let ((pkg (pop specified)))
+       (unless (find pkg probed :test #'string=)
+         (return nil)))))