Fix SFTP file modes to be octets.

src/types.lisp

@@ -219,22 +219,22 @@
   (:excl  #x20))
 
 (defbitfield (sftp-modes :long)
-  (:named-pipe #x10000)
-  (:character-special #x20000)
-  (:directory #x40000)
-  (:block-special #x60000)
-  (:regular #x100000)
-  (:symbolic-link #x120000)
-  (:socket #x140000)
-  (:user-read #x400)
-  (:user-write #x200)
-  (:user-execute #x100)
-  (:group-read #x40)
-  (:group-write #x20)
-  (:group-execute #x10)
-  (:other-read #x4)
-  (:other-write #x2)
-  (:other-execute #x1))
+  (:named-pipe #o10000)
+  (:character-special #o20000)
+  (:directory #o40000)
+  (:block-special #o60000)
+  (:regular #o100000)
+  (:symbolic-link #o120000)
+  (:socket #o140000)
+  (:user-read #o400)
+  (:user-write #o200)
+  (:user-execute #o100)
+  (:group-read #o40)
+  (:group-write #o20)
+  (:group-execute #o10)
+  (:other-read #o4)
+  (:other-write #o2)
+  (:other-execute #o1))
 
 (defcenum (sftp-error-code :unsigned-long)
   (:ok                       0)