anchor.diff:  
     (setf *object-list* (delete obj *object-list*))
   
  -  (when (is-vehicle obj)
  -    (path-remove-object obj))
  -
     (when (and (is-corpse obj)
                (plusp (corpse-idnum obj)))
  -    (delete-file (corpse-file-path (corpse-idnum obj)))))+    (delete-file (corpse-pathname (corpse-idnum obj)))))
positive.code: 
      obj))
  
  (defun extract-obj (obj)
    "Extract an object from the world"
    (cond
      ((worn-by-of obj)
       (when (unequip-char (worn-by-of obj) (worn-on-of obj)
                           (if (eql obj (get-eq (worn-by-of obj) (worn-on-of obj)))
                               :worn
                               :implant)
                           nil)
  
negative.code:   (find num list :key (lambda (obj)
                          (vnum-of (shared-of obj)))))
  
  (defun obj-from-char (obj)
    (assert obj nil "NIL object passed to obj-from-char")
    (assert (null (carried-by-of obj)) nil "NIL carried by")
  
    (let ((ch (carried-by-of obj)))
    (setf (carrying-of ch) (delete obj (carrying-of ch)))
  
    ;; set flag for crash-save system
    (unless (is-npc ch)
      (setf (plr-bits-of ch) (logior (plr-bits-of ch) +plr-crash+)))
  
    (decf (carry-weight-of ch) (weight-of obj))
    (decf (carry-items-of ch))
    (when (and (aux-obj-of obj)
               (or (eql (kind-of obj) +item-scuba-mask+)
                   (eql (kind-of obj) +item-scuba-tank+)))
      (setf (aux-obj-of (aux-obj-of obj)) nil)
      (setf (aux-obj-of obj) nil))
  
    (setf (carried-by-of obj) nil)
    obj))
  
  
  (defun apply-ac (ch eq-pos)
    (let ((obj (aref (equipment-of ch) eq-pos)))
      (assert obj nil "NIL eq at eq_pos")
  