anchor.diff:  
   (defun crypt-password (password salt)
     "Encrypt a password with a hash"
  -  (uffi:with-cstring (password-cstring password)
  -    (uffi:with-cstring (salt-cstring salt)
  +  (uffi:with-cstring (password-cstring (coerce password 'simple-string))
  +    (uffi:with-cstring (salt-cstring (coerce salt 'simple-string))
         (uffi:convert-from-cstring 
          (crypt password-cstring salt-cstring)))))
   
  
positive.code: 	(if cached
  		cached
  		(let ((result (query (:select '*
                                   :from 'accounts
                                   :where (:= (:lower 'name) canonical-name))
                                  :alist))
                (retrieved (make-instance 'account)))
            (loop for (field value) in retrieved
                 do (setf (slot-value account field) value))
  		  (cond
  			(retrieved
  			 (setf (gethash (name-of retrieved) *account-name-cache*)
  				   retrieved)
  			 (setf (gethash (idnum-of retrieved) *account-idnum-cache*)
  				   retrieved)
  			 (setf (players-of retrieved)
  				   (sort (players-of retrieved)
  						 #'<
  						 :key #'idnum-of))
  			 retrieved)
  			(t
  			 nil))))))
  
  (defun save-account (account)
    "Saves the account information into the database."
  
negative.code: 
  ;;; Support for encrypted password transmission
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defvar *crypt-library-loaded* nil)
  
  