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