anchor.diff:         (perform-wear ch obj +wear-wield-2+)))))
   
   (defcommand (ch "hold") (:resting)
  -  (send-to-char "Hold what?"))
  +  (send-to-char ch "Hold what?"))
   
   (defcommand (ch "hold" thing) (:resting)
     (let* ((objs (get-matching-objects ch thing (carrying-of ch)))
  
positive.code:          (act nil :item obj
                :place-emit "$p falls from the sky and lands by your feet.")))
        (:donate
         (assert dest-room nil "NIL dest-room passed to perform-drop")
         (obj-to-room obj dest-room)
         (when (people-of dest-room)
           (act (first (people-of dest-room)) :item obj
                :place-emit "$p suddenly appears in a puff of smoke!")))
        (:junk
         (extract-obj obj)))
      t))
  
  (defun find-eq-pos (ch obj)
    (cdr
     (find-if (lambda (tuple)
                (can-wear obj (car tuple)))
  
negative.code:   (let* ((objs (get-matching-objects ch thing (carrying-of ch)))
           (wear-objs (delete nil
                              (mapcar (lambda (obj)
                                        (let ((pos (find-eq-pos obj)))
                                          (when pos
                                            (cons obj pos))))
                                      objs))))
  