Commit 6ad450a6 authored by Zach Beane's avatar Zach Beane
Browse files

Add EXCL::FAST, EXCL:GET-OUTPUT-STREAM-BUFFER.

parent 43be3b77
......@@ -42,6 +42,9 @@ longer anonymous, but has a meaningful name name."
(find feature *features*))
(defmacro excl::fast (&body body)
`(progn ,@body))
(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 )
......@@ -69,6 +72,9 @@ longer anonymous, but has a meaningful name name."
`(with-output-to-sequence (,stream)
,@body))
(defun excl:get-output-stream-buffer (stream)
(get-output-stream-sequence stream))
;;; Streams
......
......@@ -43,6 +43,7 @@
#:split-sequence)
(:import-from #:flexi-streams
#:with-output-to-sequence
#:get-output-stream-sequence
#:string-to-octets
#:octets-to-string)
(:import-from #:usocket
......@@ -132,7 +133,8 @@
#:unix-signal
#:make-basic-lock
#:*std-control-out-table*
#:socket-bytes-written)
#:socket-bytes-written
#:fast)
(:export #:if*
#:then
#:thenret
......@@ -184,7 +186,8 @@
#:match-re
#:replace-regexp
#:compile-regexp)
(:export #:with-output-to-buffer)
(:export #:with-output-to-buffer
#:get-output-stream-buffer)
(:export #:def-stream-class
#:terminal-simple-stream
#:with-stream-class
......
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