;;
;; testing routines for basis-02.lisp
;; to be loaded after basis-02.lisp
;; 


(setf *ext01*
'(let ()

(setq xx (%print (rev '(1 2 3 4 5 6 7 8))))

(%print (f1 '(9. nil)))

(%print 111)

(defun f2 (n)
  (cond ((%<= (car n) 1) (cons 1 nil))
        (1 (cons (%+ (car (f1 (cons (%- (car n) 1) nil))) (car (f1 (cons (%- (car n) 2) nil )))) nil))))

(let ((lis nil))
  (do ((i 0 (%+ i 1)))
      ((%>= i 10))
    (setq lis (cons (make-vector 10) lis))
    (set-svref (car lis) 0 i)
    (set-svref (car lis) 1 "vjb"))

  (%print lis)

  (do ((j 0 (%+ j 1)))
      ((%>= j 203))
    (setq lis (app (car lis) (cdr lis)))
    (%print lis))


)

(%print (car (f2 '(9 . nil))))
(%print (car (f2 '(12 . nil))))
(%print 22222)))