;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:CL -*-
;;
;;Have I just redefined something Common Lisp-ish?
;;
(defun memq-type (type list)
  (subset #'(lambda (thing) (typep thing type))
	  list)
;;such that
;;(memq-type 'fixnum '(foo bar baz))
;;==> NIL
;;(memq-type 'fixnum '(foo bar baz 3))
;;==> (3)