Commit da25dc5c authored by Daniel Kochmański's avatar Daniel Kochmański

portability: add fixes for lispworks and mkcl

parent 67273b74
......@@ -81,6 +81,7 @@
#+lispworks
(progn
(setq system:stack-overflow-behaviour nil)
(hcl:toggle-source-debugging nil))
......
......@@ -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))))))))
......
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment