Add missing function

iamFIREcracker · Jan 12, 2024 · 4d1e371 · 4d1e371
1 parent 11c4f2e
commit 4d1e371
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/utils.lisp b/src/utils.lisp
@@ -822,8 +822,9 @@
 (defun extract-integers (s)
   (mapcar #'parse-integer (cl-ppcre:all-matches-as-strings "-?\\d+" s)))
 
-(defun extract-symbols (s)
-  (mapcar #'read-from-string (cl-ppcre:all-matches-as-strings "\\w+" s)))
+(defun extract-forms (s)
+  (with-input-from-string (stream s)
+    (uiop:slurp-stream-forms stream)))
 
 ;;;; Problems -----------------------------------------------------------------