[bknr-cvs] hans changed branches/anon-transaction-fixes-2/bknr/web/src/sysclasses/user.lisp

[BKNR Commits]

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)))