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
e5e5fc99
Commit
e5e5fc99
authored
Jan 29, 2008
by
Peter Hildebrandt
Browse files
make utils-kt work on sbcl.
Peter.
parent
af1b482f
Changes
2
Hide whitespace changes
Inline
Side-by-side
utils-kt/core.lisp
View file @
e5e5fc99
...
...
@@ -22,7 +22,7 @@ See the Lisp Lesser GNU Public License for more details.
,@
body
))
(
defmacro
export!
(
&rest
symbols
)
`
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
`
(
eval-when
(
#-
sbcl
:compile-toplevel
:load-toplevel
:execute
)
(
export
',symbols
)))
(
defmacro
define-constant
(
name
value
&optional
docstring
)
...
...
utils-kt/detritus.lisp
View file @
e5e5fc99
...
...
@@ -70,7 +70,7 @@ See the Lisp Lesser GNU Public License for more details.
(
export!
project-path
)
(
defun
project-path
()
(
excl:path-pathname
(
ide.base::project-file
ide.base:*current-project*
)))
#+
allegro
(
excl:path-pathname
(
ide.base::project-file
ide.base:*current-project*
)))
#+
test
(
test-setup
)
...
...
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