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
50aa7de5
Commit
50aa7de5
authored
Nov 15, 2016
by
Zach Beane
Browse files
Add EXCL:GC.
parent
6ad450a6
Changes
2
Hide whitespace changes
Inline
Side-by-side
package-excl.lisp
View file @
50aa7de5
...
...
@@ -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
)
...
...
package.lisp
View file @
50aa7de5
...
...
@@ -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
...
...
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