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
cells
cells
Commits
2781f115
Commit
2781f115
authored
Jan 30, 2008
by
Peter Hildebrandt
Browse files
finally fixed export! for sbcl
parent
e5e5fc99
Changes
1
Hide whitespace changes
Inline
Side-by-side
utils-kt/core.lisp
View file @
2781f115
...
...
@@ -21,9 +21,11 @@ See the Lisp Lesser GNU Public License for more details.
`
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
,@
body
))
(
defmacro
export!
(
&rest
symbols
)
`
(
eval-when
(
#-
sbcl
:compile-toplevel
:load-toplevel
:execute
)
(
export
',symbols
)))
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
defmacro
export!
(
&rest
symbols
)
`
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
#+
sbssscl
(
export
(
list
,@
(
mapcar
#'
(
lambda
(
x
)
(
list
'quote
x
))
symbols
)))
#-
sbclss
(
export
',symbols
))))
(
defmacro
define-constant
(
name
value
&optional
docstring
)
"Define a constant properly. If NAME is unbound, DEFCONSTANT
...
...
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