anchor.diff:        (:junk
          (extract-obj obj)))
       t))
  +
  +(defun find-eq-pos (ch obj)
  +  (cdr
  +   (find-if (lambda (tuple)
  +              (can-wear obj (car tuple)))
  +            +wear-eq-positions+)))
   
   (defun perform-wear (ch obj pos)
     (cond
  
positive.code:   (let* ((objs (get-matching-objects ch thing (carrying-of ch)))
           (wear-objs (delete nil
                              (mapcar (lambda (obj)
                                        (let ((pos (find-eq-pos ch obj nil)))
                                          (when pos
                                            (cons obj pos))))
                                      objs))))
  
negative.code:     (when sigil-found
        (explode-all-sigils ch))))
  
  (defun check-object-nodrop (ch obj verb)
    "Checks to see if OBJ can be dropped by CH.  May emit messages to CH.  Returns T if the object may be dropped, otherwise returns NIL."
    (cond
  