A procedure for rapid evaluation of the discriminative stimulus effects of drugs