anchor.diff:                               :alist))
                 (account (make-instance 'account)))
   		  (when result
  -            (loop for tuple in result
  +            (loop
  +               for tuple in result
  +               unless (eql (car tuple) :null)
                  do (setf (slot-value account (intern (symbol-name (car tuple)))) (cdr tuple)))
               (setf (gethash canonical-name *account-name-cache*) account)
               (setf (gethash (idnum-of account) *account-idnum-cache*) account)
  
positive.code:   (defvar *crypt-library-loaded* nil)
  
    (unless *crypt-library-loaded*
      (uffi:load-foreign-library 
       (uffi:find-foreign-library "libcrypt"
  			   '(#+64bit "/usr/lib64/"
  			     "/usr/lib/" "/usr/local/lib/" "/lib/"))
  
negative.code:   "Encrypt a password with a hash"
    (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)))))
  
  (defun check-password (account password)
  