define three destructive operations on hosts & propspecs earlier

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 0 insertions, 25 deletions

diff --git a/src/propspec.lisp b/src/propspec.lisp
index 45f4f18..628c1e0 100644
--- a/src/propspec.lisp
+++ b/src/propspec.lisp
@@ -182,31 +182,6 @@ an atomic property application."
 	for propapp = (compile-propapp form)
 	do (propappapply propapp)))
 
-(defmethod %eval-propspec-hostattrs ((host host) (propspec propspec))
-  "Modify HOST in-place according to :HOSTATTRS subroutines."
-  (loop with *host* = host
-	for form in (propspec-props propspec)
-	for propapp = (compile-propapp form)
-	do (propappattrs propapp)))
-
-;; return values of the following two functions share structure, and thus are
-;; not safe to use except on host objects that were just made, or that are
-;; going straight into %CONSFIGURE
-
-(defmethod %union-propspec-into-host ((host host) (propspec propspec))
-  (prog1
-      (setq host (make-instance 'host
-				:attrs (hostattrs host)
-				:props (append-propspecs (host-propspec host)
-							 propspec)))
-    (%eval-propspec-hostattrs host propspec)))
-
-(defmethod %replace-propspec-into-host ((host host) (propspec propspec))
-  (prog1
-      (setq host (make-instance 'host
-				:attrs (hostattrs host) :props propspec))
-    (%eval-propspec-hostattrs host propspec)))
-
 (defmethod propspec->type ((propspec propspec))
   "Return :lisp if any types of the properties to be applied by PROPSPEC is
 :lisp, else return :posix."