OS_Develop/dos_compilers
OS_Develop/dos_compilers
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor perf fix

Browse Source
This commit is contained in:
davidly 2024-07-04 22:02:55 -07:00
parent d17970cb24
commit 25a6dde172
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Ashwood-Smith PC-LISP v3/SIEVE.LSP
View File

@ -1,11 +1,8 @@
; BYTE magazine's Sieve benchmark ; BYTE magazine's Sieve benchmark
(setq size 8190) (setq size 8190)
(setq sizep1 (+ size 1)) (array a t (+ size 1))
(array a t sizep1)
(setq count 0) (setq count 0)
(setq i 0)
(setq l 0)
(defun runsieve() (prog () (defun runsieve() (prog ()
(setq i 0) (setq i 0)
@ -25,11 +22,11 @@
(setq k (+ i prime)) (setq k (+ i prime))
(prog () (prog ()
_nextk_ _nextk_
(cond ((< k size) (cond ((< k size)
(a nil k) (a nil k)
(setq k (+ k prime)) (setq k (+ k prime))
(go _nextk_)) (go _nextk_))
) )
) )
(setq count (add1 count))) (setq count (add1 count)))
) )
@ -56,6 +53,5 @@
)) ))
(main) (main)
(exit) (exit)