Revision: 3939 Author: hans URL: http://bknr.net/trac/changeset/3939
Oops, we certainly did not want to have defined a primary method for inititialize-instance on user objects.
U branches/anon-transaction-fixes-2/bknr/web/src/sysclasses/user.lisp
Modified: branches/anon-transaction-fixes-2/bknr/web/src/sysclasses/user.lisp =================================================================== --- branches/anon-transaction-fixes-2/bknr/web/src/sysclasses/user.lisp 2008-09-22 18:23:36 UTC (rev 3938) +++ branches/anon-transaction-fixes-2/bknr/web/src/sysclasses/user.lisp 2008-09-22 18:31:17 UTC (rev 3939) @@ -60,7 +60,7 @@ (user-login object) "unbound"))))
-(defmethod initialize-instance ((user user) &key) +(defmethod initialize-instance :after ((user user) &key) (let* ((plaintext-password (slot-value user 'password)) (password (when plaintext-password (crypt-md5 plaintext-password (make-salt))))) (setf (slot-value user 'password) password)))