Commit 50aa7de5 authored by Zach Beane's avatar Zach Beane
Browse files

Add EXCL:GC.

parent 6ad450a6
......@@ -45,6 +45,13 @@ longer anonymous, but has a meaningful name name."
(defmacro excl::fast (&body body)
`(progn ,@body))
(defun excl:gc (&optional full)
(declare (ignorable full))
#+ccl
(ccl:gc)
#+sbcl
(sb-ext:gc :full full))
(defun excl:match-re (pattern string &key (return :string) case-fold)
(multiple-value-bind (start end regs-starts regs-ends)
(scan (create-scanner pattern :case-insensitive-mode case-fold) string )
......
......@@ -142,7 +142,8 @@
(:export #:md5-init
#:md5-update
#:md5-final)
(:export #:pop-atomic
(:export #:gc
#:pop-atomic
#:push-atomic
#:single-channel-simple-stream
#:install-single-channel-character-strategy
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment