anchor.diff:  (defun ulist* (&rest args)
     "Return the ulist associated with the supplied arguments, but using the
      last argument as the tail of the constructed ulist."
  -  (declare (dynamic-extent args))
  +  (declare (dynamic-extent args)
  +           (inline ucons))
     (labels ((%hlist* (first rest)
                (if (null rest)
                    (prog1 first
  
positive.code:    all future and past invocation of this function with the same
     arguments."
    (declare (type (or null ucons) cdr)
             (type ucons-car car))
    (flet ((hash-table-lookup (hash-table)
             (declare (hash-table hash-table))
             (or (gethash car hash-table)
  
negative.code:                    (form `(prog1 ,(car rgensyms)
                              (check-type ,(car rgensyms)
                                          (or ucons null)))))
                (declare (inline ucons))
                (loop for gensym in (cdr rgensyms)
                      do (setf form `(ucons ,gensym ,form)))
                form)))))
  