Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ansi-test
cl-bench
Commits
da25dc5c
Commit
da25dc5c
authored
May 23, 2016
by
Daniel Kochmański
Browse files
portability: add fixes for lispworks and mkcl
parent
67273b74
Pipeline
#130
skipped
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
cl-bench.lisp
View file @
da25dc5c
...
...
@@ -81,6 +81,7 @@
#+
lispworks
(
progn
(
setq
system:stack-overflow-behaviour
nil
)
(
hcl:toggle-source-debugging
nil
))
...
...
files/bignum.lisp
View file @
da25dc5c
...
...
@@ -84,6 +84,10 @@
(
do
((
k
1
(
1+
k
)))
((
>
k
N
)
(
setq
*y*
p
*z*
q
))
(
let
((
w
(
+
u
v
)))
#+
mkcl
(
setf
u
v
v
w
)
#-
mkcl
(
shiftf
u
v
w
)
(
setq
p
(
*
p
w
))
(
setq
q
(
lcm
q
w
))))))))
...
...
files/math.lisp
View file @
da25dc5c
...
...
@@ -130,6 +130,11 @@
(
p1c
(
if
(
<
p1b
0
)
(
+
p1b
+m1+
)
p1b
)))
#+
mkcl
(
setf
(
aref
state
0
)
(
aref
state
1
)
(
aref
state
1
)
(
aref
state
2
)
(
aref
state
2
)
p1c
)
#-
mkcl
(
shiftf
(
aref
state
0
)
(
aref
state
1
)
(
aref
state
2
)
...
...
@@ -148,6 +153,11 @@
(
p2c
(
if
(
<
p2b
0
)
(
+
p2b
+m2+
)
p2b
)))
#+
mkcl
(
setf
(
aref
state
3
)
(
aref
state
4
)
(
aref
state
4
)
(
aref
state
5
)
(
aref
state
5
)
p2c
)
#-
mkcl
(
shiftf
(
aref
state
3
)
(
aref
state
4
)
(
aref
state
5
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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