diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-30 10:38:43 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-30 10:38:43 +0200 |
| commit | 90f25b6646a01400973430e043dffe82cce1e61b (patch) | |
| tree | 05f2409b4b27d8c668fd19319fbb77fb09a0037d /util.lisp | |
| parent | a5ab7e91e735d12cada1eb1df8d0f5c4bff0a2d1 (diff) | |
Improve TYPEP performance.
Diffstat (limited to 'util.lisp')
| -rw-r--r-- | util.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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)) |