register-groups-bind: don't call subseq for parse-integer.

edicl · Apr 8, 2024 · 714ee6c · 714ee6c
1 parent 743b5a5
commit 714ee6c
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/api.lisp b/api.lisp
@@ -346,11 +346,14 @@ substrings may share structure with TARGET-STRING."
                       collect `(,var (let ((,start-index
                                              (aref ,reg-starts ,counter)))
                                        (if ,start-index
-                                           (funcall ,function
-                                                    (funcall ,substr-fn
-                                                             ,target-string
-                                                             ,start-index
-                                                             (aref ,reg-ends ,counter)))
+                                           ,(if (equal function '#'parse-integer)
+                                                `(parse-integer ,target-string :start ,start-index
+                                                                               :end (aref ,reg-ends ,counter))
+                                                `(funcall ,function
+                                                         (funcall ,substr-fn
+                                                                  ,target-string
+                                                                  ,start-index
+                                                                  (aref ,reg-ends ,counter))))
                                            nil))))))
         `(multiple-value-bind (,match-start ,match-end ,reg-starts ,reg-ends)
              (scan ,regex ,target-string :start (or ,start 0)