anchor.diff:      ;; Allocate links for each event.
       (dolist (evt events)
         (declare (ignore evt))
  -      (setf (wfo-links wfo) (sys.int::cons-in-area wfo (wfo-links wfo) :wired)))
  +      (setf (wfo-links wfo) (wfo-cons wfo (wfo-links wfo))))
       ;; Wait & convert completed events back to objects
  -    (loop
  -       for evt in (wfo-wait wfo)
  -       collect (loop
  -                  for input-object in objects
  -                  for input-event in events
  -                  when (eql evt input-event)
  -                  do (return input-object)
  -                  finally (error "Impossible? Can't convert event back to object")))))
  +    (let* ((completed (wfo-wait wfo))
  +           (completed-objects (loop
  +                                 for evt in completed
  +                                 collect (loop
  +                                            for input-object in objects
  +                                            for input-event in events
  +                                            when (eql evt input-event)
  +                                            do (return input-object)
  +                                            finally (error "Impossible? Can't convert event back to object")))))
  +      ;; Make sure to release links back to the pool
  +      (wfo-uncons-list completed)
  +      (wfo-uncons-list events)
  +      (wfo-uncons-list (wfo-links wfo))
  +      (unmake-wfo wfo)
  +      completed-objects)))
   
   (defstruct (event
                (:constructor %make-event (name %state))
  
positive.code:                      (event object)
                       (timer (timer-event object))
                       (t (get-object-event object)))))
          (setf (cdr tail) (sys.int::cons-in-area event nil :wired)
                tail (cdr tail))))
      (cdr head)))
  
  
negative.code: ;;;; WAIT-FOR-OBJECTS and the EVENT primitive.
  
  (defstruct (wfo
               (:constructor %make-wfo)
               (:include wait-queue)
               (:area :wired))
    objects
  