anchor.diff:        ((and objs (eql dot-mode :find-all))
          (send-to-char ch "Go to the donation room if you want to donate EVERYTHING!~%"))
         (objs
  -       (loop
  -          for obj-sublist on objs
  -          as obj = (first obj-sublist)
  -          as next-obj = (second obj-sublist)
  -          as counter from 1
  -          do
  -          (let ((room-num (random-elt '(3032
  -                                        30032
  -                                        5510
  -                                        20470
  -                                        63102
  -                                        22942
  -                                        22807))))
  -            (if (perform-drop ch obj :donate "donate" (real-room room-num) nil)
  -                (when (or (null next-obj)
  -                          (string/= (name-of next-obj) (name-of obj)))
  -                  (cond
  -                    ((= counter 1)
  -                     (act ch :item obj :all-emit "$n donate$% $p."))
  -                    ((plusp counter)
  -                     (act ch :item obj
  -                          :all-emit (format nil "$n donate$% $p. (x~d)" counter))))
  -                  (setf counter 0))
  -                (setf counter 0)))))
  -       ((eql dot-mode :find-all)
  -        (send-to-char ch "You don't seem to be carrying anything.~%"))
  -       (t
  -        (send-to-char ch "You don't seem to have any ~as.~%" thing)))))
  +       (perform-drop ch objs :donate))
  +      ((eql dot-mode :find-all)
  +       (send-to-char ch "You don't seem to be carrying anything.~%"))
  +      (t
  +       (send-to-char ch "You don't seem to have any ~as.~%" thing)))))
   
   (defcommand (ch "empty" thing) (:resting)
     (let* ((objs (get-matching-objects ch thing (carrying-of ch)))
  
positive.code:        (perform-wear ch obj +wear-wield-2+)))))
  
  (defcommand (ch "hold") (:resting)
    (send-to-char "Hold what?"))
  
  (defcommand (ch "hold" thing) (:resting)
    (let* ((objs (get-matching-objects ch thing (carrying-of ch)))
  
negative.code:      t)
      (t
       (act ch :item obj
            :subject-emit (format nil "You can't ~(~a~) $p, it must be CURSED!" mode))
       nil)))
  
  (defun undisposablep (ch cmdstr obj displayp)
  