diff -rN -u old-alexandria/package.lisp new-alexandria/package.lisp
--- old-alexandria/package.lisp	2008-02-09 19:08:24.000000000 +0100
+++ new-alexandria/package.lisp	2008-02-09 19:08:24.000000000 +0100
@@ -93,6 +93,7 @@
    #:map-combinations
    #:map-derangements
    #:map-permutations
+   #:memq
    #:proper-sequence
    #:random-elt
    #:removef
diff -rN -u old-alexandria/sequences.lisp new-alexandria/sequences.lisp
--- old-alexandria/sequences.lisp	2008-02-09 19:08:24.000000000 +0100
+++ new-alexandria/sequences.lisp	2008-02-09 19:08:24.000000000 +0100
@@ -389,3 +389,7 @@
                            (setf (bit mask i) 0))))))
       (derange start size)
       sequence)))
+
+(defun memq (obj list)
+  "Like MEMBER, using #'EQ as test."
+  (member obj list :test #'eq))