anchor.diff:    (let ((forms (read-file-forms file)))
       (unless (length=n-p forms 1)
         (error (compatfmt "~@<One and only one form allowed for ~A. Got: ~3i~_~S~@:>~%")
  -	     description forms))
  +             description forms))
       (funcall validator (car forms) :location file)))
   
   (defun* hidden-file-p (pathname)
  
positive.code: ;;;  http://www.opensource.org/licenses/mit-license.html on or about
  ;;;  Monday; July 13, 2009)
  ;;;
  ;;; Copyright (c) 2001-2011 Daniel Barlow and contributors
  ;;;
  ;;; Permission is hereby granted, free of charge, to any person obtaining
  ;;; a copy of this software and associated documentation files (the
  
negative.code:         (error 'circular-dependency :components (list c)))
        (setf (visiting-component operation c) t)
        (unwind-protect
             (block nil
               (when (typep c 'system) ;; systems can be forced or forced-not
                 (let ((ancestor (operation-ancestor operation)))
                   (flet ((match? (f)
                            (and f (or (not (consp f)) ;; T or :ALL
                                       (member (component-name c) f :test #'equal)))))
                     (cond
                       ((match? (operation-forced ancestor))
                        (setf *forcing* t))
                       ((match? (operation-forced-not ancestor))
                        (return))))))
               ;; first we check and do all the dependencies for the module.
               ;; Operations planned in this loop will show up
               ;; in the results, and are consumed below.
  