From e831cd361c9b99ee1bc672eaa94ac204f71abd95 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 21 Sep 2008 06:06:32 +0200 Subject: [PATCH] Don't use ALEXANDRIA:ENSURE-SYMBOL in base pkgdcl.lisp --- base/pkgdcl.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/base/pkgdcl.lisp b/base/pkgdcl.lisp index 604d5fc..73987dc 100644 --- a/base/pkgdcl.lisp +++ b/base/pkgdcl.lisp @@ -39,7 +39,7 @@ (with-package-iterator (iterator packages :external) (loop (multiple-value-bind (morep symbol) (iterator) (unless morep (return)) - (pushnew (alexandria:ensure-symbol symbol :iolib.base) + (pushnew (intern (string symbol) :iolib.base) symbols)))) symbols))) (export (gather-external-symbols :common-lisp :alexandria :iolib.base) @@ -90,7 +90,7 @@ *gray-stream-symbols*) :iolib.base) -(export (mapcar (lambda (s) (alexandria:ensure-symbol s :iolib.base)) +(export (mapcar (lambda (s) (intern (string s) :iolib.base)) (list* '#:trivial-gray-stream-mixin '#:stream-read-sequence '#:stream-write-sequence -- 2.11.4.GIT