Let LispKit clients override LispKit library implementations.

Author: objecthub

Sources/LispKit/Runtime/FileHandler.swift

@@ -81,6 +81,14 @@ public final class FileHandler {
     return true
   }
 
+  public func prependSearchPath(_ path: String) -> Bool {
+    guard self.isDirectory(atPath: path) else {
+      return false
+    }
+    self.searchUrls.insert(URL(fileURLWithPath: path, isDirectory: true), at: 0)
+    return true
+  }
+  
   public func addLibrarySearchPath(_ path: String) -> Bool {
     guard self.isDirectory(atPath: path) else {
       return false
@@ -89,6 +97,14 @@ public final class FileHandler {
     return true
   }
 
+  public func prependLibrarySearchPath(_ path: String) -> Bool {
+    guard self.isDirectory(atPath: path) else {
+      return false
+    }
+    self.librarySearchUrls.insert(URL(fileURLWithPath: path, isDirectory: true), at: 0)
+    return true
+  }
+  
   public func filePath(forFile name: String, relativeTo root: String? = nil) -> String? {
     return self.searchFile(withName: name,
                            ofType: "scm",