Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Zach Beane
zacl
Commits
6ad450a6
Commit
6ad450a6
authored
Nov 15, 2016
by
Zach Beane
Browse files
Add EXCL::FAST, EXCL:GET-OUTPUT-STREAM-BUFFER.
parent
43be3b77
Changes
2
Hide whitespace changes
Inline
Side-by-side
package-excl.lisp
View file @
6ad450a6
...
...
@@ -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
...
...
package.lisp
View file @
6ad450a6
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment