Fix typos

Author: ajberkley

src/simple-array.lisp

@@ -425,7 +425,7 @@
  in the array sap.  On non sbcl we just check to make sure things are fixnums because we
  did not blit the data out"
   #+sbcl
-  (ash (signed-sap-ref 64 ,sap ,offset) -1)
+  `(ash (signed-sap-ref 64 ,sap ,offset) -1)
   #-sbcl
   (let ((a (gensym)))
     `(let ((,a (signed-sap-ref-64 ,sap ,offset)))
@@ -490,8 +490,8 @@
 	         (chunked/read
 	          storage num-bytes
 	          (lambda (source-sap source-sap-offset data-start/bytes data-end-bytes)
-	            (copy-sap target-sap data-start/bytes source-sap source-sap-offset (the fixnum (- data-end-bytes data-start/bytes)))))))))
-              sv)))))
+	            (copy-sap target-sap data-start/bytes source-sap source-sap-offset (the fixnum (- data-end-bytes data-start/bytes))))))))))
+        sv))))
 
 ;; for ccl ccl::array-data-and-offset would be fine... it's been a stable interface
 ;; forever.

test/cl-binary-store-tests.lisp

@@ -679,7 +679,7 @@
            (let ((a (make-array (file-length str))))
              (read-sequence a str)
              a))))
-      (loop repeat 10000
+      (loop repeat 100 ;;10000
             with input = (make-array (random 100) :element-type '(unsigned-byte 8))
             do (loop for i fixnum below (length input) do (setf (aref input i) (random 256)))
             do (try input))
@@ -697,6 +697,5 @@
   (finish
    (handler-case
        (cl-binary-store::restore #(21 5 3 127 127 127 127 127 127 127 127))
-     (invalid-input-data ())))
-  
+     (invalid-input-data ()))))