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:   (find num list :key (lambda (obj)
                          (vnum-of (shared-of obj)))))
  
  (defun apply-ac (ch eq-pos)
    (let ((obj (aref (equipment-of ch) eq-pos)))
      (assert obj nil "NIL eq at eq_pos")
  
negative.code: 
      obj))
  
  (defun obj-from-obj (obj)
    "Remove an object from an object"
    (assert (null (in-obj-of obj)) nil "Trying to extract object from object")
    (let ((obj-from (in-obj-of obj)))
      (decf (weight-of obj-from) (weight-of obj))
      (setf (contains-of obj-from) (delete obj (contains-of obj-from)))
  
      (when (is-interface obj-from)
        (let ((vict (worn-by-of obj-from)))
          (when (and vict
                     (or (not (eql obj-from (aref (equipment-of vict) (worn-on-of obj-from))))
                         (/= (worn-on-of obj-from) +wear-belt+)
                         (and (not (eql (kind-of obj) +item-weapon+))
                              (not (eql (kind-of obj) +item-pipe+))))
                     (not (invalid-char-class vict obj))
                     (or (not (eql obj-from (aref (equipment-of vict) (worn-on-of obj-from))))
                         (not (is-implant obj))))
            
        (when (and (skillchip obj)
                   (plusp (chip-data obj))
                   (< (chip-data obj) +max-skills+))
          (affect-modify vict (- (chip-data obj)) (chip-max obj) 0 0 nil))
        (apply-object-affects vict obj nil))))
      
      (when (and (in-room-of obj-from)
                 (room-flagged (in-room-of obj-from) +room-house+))
        (setf (flags-of (in-room-of obj-from))
              (logior (in-room-of obj-from) +room-house-crash+)))
  
      (setf (in-obj-of obj) nil)
  
      (setf (extra2-flags-of obj) (logandc2 (extra2-flags-of obj) +item2-hidden+))
      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 (aref (equipment-of (worn-by-of obj))
                                              (worn-on-of obj)))
                               :worn
                               :implant)
                           nil)
  