anchor.diff:        (api-error "A password is required for private visibility."))
       (when (and (/= visibility 3) password)
         (api-error "Cannot set a password on public or unlisted visibility.")))
  -  (when password (cryptos:pbkdf2-hash password *password-salt*)))
  +  (when password (cryptos:pbkdf2-hash password (config :password-salt))))
   
   (defun ensure-paste-type (type)
     (let ((type (string-downcase (or type "text"))))
  
positive.code: 
  (defun call-with-password-protection (function paste &optional (password (post/get "password")))
    (cond ((or (not (eql 3 (dm:field paste "visibility")))
               (string= (dm:field paste "password") (cryptos:pbkdf2-hash password *password-salt*)))
           (funcall function))
          ((or* password)
           (error 'request-denied :message "The supplied password is incorrect."))
  
negative.code:                               (db:query (:and (:= 'author username)
                                                (:= 'visibility 1))))
                            :sort '((time :DESC))
                            :skip (* page (config :pastes-per-page))
                            :amount (config :pastes-per-page))))
        (r-clip:process T :pastes pastes
                          :user user
                          :username (user:username user)
                          :page page
                          :has-more (<= (config :pastes-per-page) (length pastes))))))
  
  (profile:define-panel pastes (:user user :lquery "user-panel.ctml")
    (let ((pastes (dm:get 'plaster-pastes
  