# File lib/facet/lisp.rb, line 278
  def all?(pred, list)
    if null?(list)
      true
    else
      if pred.call(car(list))
        all?(pred, cdr(list))
      else
        false
      end
    end
  end