Rearrange inline function to appear before they are used.

disk.lisp

@@ -38,6 +38,10 @@
   ;; (collect-stats code)
   (funcall (aref *readers* code) stream))
 
+(declaim (inline get-instance))
+(defun get-instance (id)
+  (aref *indexes* id))
+
 ;;;
 
 (defun slot-effective-definition (class slot-name)
@@ -642,10 +646,6 @@
   (write-n-bytes #.(type-code 'identifiable) 1 stream)
   (write-n-bytes (fast-id object) +id-length+ stream))
 
-(declaim (inline get-instance))
-(defun get-instance (id)
-  (aref *indexes* id))
-
 (defreader identifiable (stream)
   (get-instance (read-n-bytes +id-length+ stream)))
 

io-sbcl.lisp

@@ -307,14 +307,6 @@
            (type (integer 1 4) n))
   (n-signed-mem-ref n (advance-input-stream n stream)))
 
-(declaim (inline write-n-signed-bytes))
-(defun write-n-signed-bytes (value n stream)
-  (declare (optimize speed)
-           (sb-ext:muffle-conditions sb-ext:compiler-note)
-           (fixnum n))
-  (setf (n-signed-mem-ref n (advance-output-stream n stream)) value)
-  t)
-
 (defun flush-output-buffer (stream n &optional count)
   (write-buffer (output-stream-fd stream)
                 (output-stream-buffer-start stream)
@@ -347,6 +339,14 @@
            (type (integer 1 4) n))
   (setf (mem-ref-32 (advance-output-stream n stream)) value))
 
+(declaim (inline write-n-signed-bytes))
+(defun write-n-signed-bytes (value n stream)
+  (declare (optimize speed)
+           (sb-ext:muffle-conditions sb-ext:compiler-note)
+           (fixnum n))
+  (setf (n-signed-mem-ref n (advance-output-stream n stream)) value)
+  t)
+
 ;;;
 
 (declaim (inline read-single-float))