diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-28 15:29:55 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-28 15:29:55 +0200 |
commit | c51d47e817c4a5c6a9b5a901d1825370a6552398 (patch) | |
tree | cb6a0105daa79fb44747e293ceeb4b03ee3f7df6 /util.lisp | |
parent | 9186189b62240acdae1f3bd6d4146cec00cddda3 (diff) |
In all Lisp source files, put EXPORT lists on top.
Diffstat (limited to 'util.lisp')
-rw-r--r-- | util.lisp | 13 |
1 files changed, 10 insertions, 3 deletions
@@ -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))))) |