anchor.diff:  
       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
  
positive.code:   (setf (contents-of (in-room-of obj))
          (delete obj (contents-of (in-room-of obj))))
    (setf (in-room-of obj) nil))
  
  (defun printbits (bits descriptions)
    (format nil "~{~a~^ ~}"
  
negative.code:       (setf (timer-of obj)
              (if zone (max 2 (floor (lifespan-of zone) 2)) 15)))))
  
  (defun char-from-room (ch)
    (setf (people-of (in-room-of ch)) (delete ch (people-of (in-room-of ch))))
    (setf (in-room-of ch) nil))
  