X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.impure-cload.lisp;h=a6736013e67a832bc290c2eb933bf615587192a5;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=44f73966a517709b6c798b4deab81762e0c65af5;hpb=6dac5c9af52b4538b412b2e7c22b78863d85557a;p=sbcl.git diff --git a/tests/compiler.impure-cload.lisp b/tests/compiler.impure-cload.lisp index 44f7396..a673601 100644 --- a/tests/compiler.impure-cload.lisp +++ b/tests/compiler.impure-cload.lisp @@ -449,7 +449,7 @@ (setq *hannu-trap* t)) (assert (not *hannu-trap*)) -;;; bug reported on sbcl-help by vrotaru +;;; bug reported on sbcl-help by Vasile Rotaru (let* ((initial-size (expt 2 16)) (prime-table (make-array initial-size :element-type 'integer)) @@ -460,7 +460,7 @@ 227 229 233 239 241 251 257 263 269 271 277 281)) (count 0) (increment 2)) - + (defun largest-prime-so-far () (aref prime-table (1- count))) (defun add-prime (prime)