Commit 1bfa72ee authored by Juergen Nickelsen's avatar Juergen Nickelsen
Browse files

new TODOs

parent 67c99a79

TODO

+4 −0
Original line number Diff line number Diff line
@@ -6,6 +6,10 @@ 


  * change debug to (format, args, ...) style



  * comment out debug calls (they do cost...)



  * Bperl (perl "\%Sexp::symbols" 'dump)



  @ fix regtests



  + better argument checking (number, types) for Builtins (instead

l/factor.lisp

+3 −5
Original line number Diff line number Diff line 


(defvar *primes* '(2 3)

  "List of continuous prime numbers known so far") 

(defvar *last-prime-pair* (last-pair *primes*)

  "Place to append new primes, updated as it goes")

(defvar *primes* '(2 3))

(defvar *last-prime-pair* (last-pair *primes*))



(defvar next-p nil "state variable for (next-prime)")

(defvar next-p nil)



(defun add-next-prime (n)

  (let ((newlast (list n)))