Index: /trunk/ccl/level-0/l0-misc.lisp
===================================================================
--- /trunk/ccl/level-0/l0-misc.lisp	(revision 236)
+++ /trunk/ccl/level-0/l0-misc.lisp	(revision 237)
@@ -25,8 +25,5 @@
       (return tail))))
 
-(defun assq (item list)
-  (dolist (pair list)
-    (when (and pair (eq item (car pair)))
-      (return pair))))
+