I am a lisp newbie so maybe I am mistaken<br>I am on SBCL 1.015<br><br>I make class<br>(with-rucksack (rs *rs-dir* );:if-exists :supersede)<br>    (with-transaction ()<br>      (defclass account ()<br>    ((username :initform nil<br>

           :initarg :username<br>           :index :number-index<br>           :accessor username-of)<br>     (password :initform nil<br>           :initarg :password<br>           :accessor password-of)<br>     )<br>    (:index t)<br>

    (:metaclass persistent-class))))<br><br>and then 2 functions below<br><br>(defun make-test-data ()<br>  (dotimes (i 100)<br>    (print i)<br>    (with-rucksack (rs *rs-dir*)<br>    (with-transaction ()<br>          (make-instance 'account :username (random 1000000) :password (random 1919191))<br>

            ))<br>    ))<br><br>(defun make-test-data1 ()<br>  (with-rucksack (rs *rs-dir*)<br>    (with-transaction ()<br>      (dotimes (i 100)<br>    (print i)<br>    (make-instance 'account :username (random 1000000) :password (random 1919191))<br>

            ))))<br><br>if i do (make-test-data) not all the accounts will end up in the rucksack<br>(sometimes if first time yes) but second time i run no<br><br>If i do make-test-data1 no problem<br>What is going on ?