From c51d47e817c4a5c6a9b5a901d1825370a6552398 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 28 Jul 2008 15:29:55 +0200
Subject: In all Lisp source files, put EXPORT lists on top.

---
 util.lisp | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'util.lisp')

diff --git a/util.lisp b/util.lisp
index 63777ea..f6fbe20 100644
--- a/util.lisp
+++ b/util.lisp
@@ -1,3 +1,7 @@
+(export '(and or not let* list* case cond append reverse macroexpand
+          otherwise unless when))
+
+
 (%defmacro %defun args
   (list '%fset
         (list 'quote (car (cdr (car args))))
@@ -193,6 +197,9 @@
 (%defmacro* when (test . body)
   `(if ,test (progn ,@body) nil))
 
-
-(export '(and or not let* list* case cond append reverse macroexpand
-          otherwise unless when))
+(%defmacro* %shadowing-export (symbol)
+  `(progn
+     (shadow ',symbol)
+     (unexport ',symbol (find-package :sys))
+     (unexport ',symbol (find-package :cl))
+     (export (intern (symbol-name ',symbol) (find-package :cl)))))
-- 
cgit v1.2.3