perf: add (optimize (speed 3)) to more functions

Author: fosskers

fset/fset.lisp

@@ -29,6 +29,7 @@
     (funcall xf result)))
 
 (defun set-reduce (f identity set)
+  (declare (optimize (speed 3)))
   (let ((iter (s:iterator set)))
     (labels ((recurse (acc)
                (if (funcall iter :done?)
@@ -49,6 +50,7 @@
     (funcall xf result)))
 
 (defun map-reduce (f identity set)
+  (declare (optimize (speed 3)))
   (let ((iter (s:iterator set)))
     (labels ((recurse (acc)
                (if (funcall iter :done?)
@@ -70,6 +72,7 @@
     (funcall xf result)))
 
 (defun seq-reduce (f identity set)
+  (declare (optimize (speed 3)))
   (let ((iter (s:iterator set)))
     (labels ((recurse (acc)
                (if (funcall iter :done?)
@@ -90,6 +93,7 @@
     (funcall xf result)))
 
 (defun bag-reduce (f identity set)
+  (declare (optimize (speed 3)))
   (let ((iter (s:iterator set)))
     (labels ((recurse (acc)
                (if (funcall iter :done?)

jzon/jzon.lisp

@@ -34,6 +34,7 @@
 
 (declaim (ftype (function (t t stream) *) json-reduce))
 (defun json-reduce (f identity stream)
+  (declare (optimize (speed 3)))
   (j:with-parser (parser stream)
     (multiple-value-bind (event value) (j:parse-next parser)
       (declare (ignore value))