anchor.diff:                                          `(setf (car ,q.) nil ,q. (cdr ,q.))))
                              nil)
                           (let ((,lock. (resource-object-lock ,ro.)))
  -                          (atomic-decf (the fixnum (car ,lock.)))))))) )
  +                          (resource-atomic-decf (the fixnum (car ,lock.)))))))) )
           ;;
           (let* ((r.           (gensym "R."))
                  (q.           (gensym "Q."))
  
positive.code:                       (let ((,lock. (resource-object-lock ,ro.)))
                          (declare (type cons ,lock.))
                          (when (= 0 (the fixnum (car ,lock.)))
                            (atomic-incf (the fixnum (car ,lock.)))
                            (cond ((and (= 1 (the fixnum 
                                               (locally
                                                 #+excl (declare (optimize (safety 3))) ;EXCL bug
  
negative.code:                                       ,(match-expr ro.))
                                   (return ,ro.))
                                  (t
                                   (resource-atomic-decf (the fixnum (car ,lock.)))) ))))))
                 
                 (allocator ()
                   ;; Function for ALLOCATE-RESOURCE
  