import用ユーティリティー iterate:install 追加

youz · Jun 22, 2012 · 0b41579 · 0b41579
1 parent ec22340
commit 0b41579
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/site-lisp/iterate/pkg.l b/site-lisp/iterate/pkg.l
@@ -26,7 +26,9 @@
 	   #:maximize #:minimize #:maximizing #:minimizing #:counting
 	   #:always #:never #:thereis #:finding #:collect #:collecting
 	   #:with #:while #:until #:adjoining #:nconcing #:appending
-	   #:nunioning #:unioning #:reducing #:accumulate #:accumulating))
+	   #:nunioning #:unioning #:reducing #:accumulate #:accumulating
+	   #:install
+   ))
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
@@ -35,6 +37,12 @@
 
 (in-package :iterate)
 
+(defun install (&optional (package *package*) &key excludes)
+  (do-external-symbols (s :iterate)
+    (unless (or (eq s 'install) (find s excludes :tes #'string-equal))
+      (shadowing-import (list s) package)))
+  t)
+
 ;;; work around sbcl's obnoxious standard compliance
 
 (defmacro defconst (name value &optional doc)