Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
cl-bench
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
ansi-test
cl-bench
Commits
da25dc5c
Commit
da25dc5c
authored
May 23, 2016
by
Daniel Kochmański
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
portability: add fixes for lispworks and mkcl
parent
67273b74
Pipeline
#130
skipped
Changes
3
Pipelines
1
Show whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
15 additions
and
0 deletions
+15
-0
cl-bench.lisp
cl-bench.lisp
+1
-0
files/bignum.lisp
files/bignum.lisp
+4
-0
files/math.lisp
files/math.lisp
+10
-0
No files found.
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
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