From 90f25b6646a01400973430e043dffe82cce1e61b Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Wed, 30 Jul 2008 10:38:43 +0200
Subject: Improve TYPEP performance.

---
 util.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'util.lisp')

diff --git a/util.lisp b/util.lisp
index f6fbe20..c06305f 100644
--- a/util.lisp
+++ b/util.lisp
@@ -1,5 +1,5 @@
 (export '(and or not let* list* case cond append reverse macroexpand
-          otherwise unless when))
+          otherwise unless when eq))
 
 
 (%defmacro %defun args
@@ -203,3 +203,7 @@
      (unexport ',symbol (find-package :sys))
      (unexport ',symbol (find-package :cl))
      (export (intern (symbol-name ',symbol) (find-package :cl)))))
+
+(%shadowing-export eq)
+(%defun* eq (x y)
+  (sys::eq x y))
-- 
cgit v1.2.3