From 2b9c202ca8563dbad0e30ffa5e4186e468a3864b Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 21 Sep 2008 06:03:03 +0200 Subject: [PATCH] Better re-exporting of symbols from iolib.base --- base/pkgdcl.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/base/pkgdcl.lisp b/base/pkgdcl.lisp index f40b457..604d5fc 100644 --- a/base/pkgdcl.lisp +++ b/base/pkgdcl.lisp @@ -35,12 +35,13 @@ #:decode-timeout #:normalize-timeout #:clamp-timeout)) (flet ((gather-external-symbols (&rest packages) - (let ((symbols (make-hash-table :test #'eq))) + (let (symbols) (with-package-iterator (iterator packages :external) (loop (multiple-value-bind (morep symbol) (iterator) (unless morep (return)) - (setf (gethash (alexandria:ensure-symbol symbol :iolib.base) symbols) t)))) - (alexandria:hash-table-keys symbols)))) + (pushnew (alexandria:ensure-symbol symbol :iolib.base) + symbols)))) + symbols))) (export (gather-external-symbols :common-lisp :alexandria :iolib.base) :iolib.base)) -- 2.11.4.GIT