Extracts starts-with function.

ralt · Sep 28, 2015 · 78bd812 · 78bd812
1 parent 2fadf65
commit 78bd812
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/daemon/can-login.lisp b/daemon/can-login.lisp
@@ -89,10 +89,14 @@
              (remove-if-not #'is-storage-device
                             (cl-fad:list-directory *devices-folder*)))))
 
+(defun starts-with (string other-string)
+  (string= (subseq string 0 (length other-string)) other-string))
+
 (defun is-storage-device (path)
   (let ((file (pathname-name path)))
-    (when (and file (> (length file) 2))
-      (string= (subseq file 0 2) *storage-device-prefix*))))
+    (and file
+         (> (length file) 2)
+         (starts-with file *storage-device-prefix*))))
 
 (defun is-hermes-device (path)
   (and (is-block-device path)