1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
3 ;;; --- Package definition.
6 (in-package :common-lisp-user
)
8 (defpackage :iolib.base
9 (:use
#:common-lisp
:alexandria
)
10 (:shadow
#:defun
#:defmethod
11 #:defmacro
#:define-compiler-macro
)
12 (:export
#:return
* #:defun
#:defmethod
13 #:defmacro
#:define-compiler-macro
))
15 (flet ((gather-external-symbols (&rest packages
)
16 (let ((symbols (make-hash-table :test
#'eq
)))
17 (with-package-iterator (iterator packages
:external
)
18 (loop (multiple-value-bind (morep symbol
) (iterator)
19 (unless morep
(return))
20 (setf (gethash symbol symbols
) t
))))
21 (alexandria:hash-table-keys symbols
))))
22 (export (gather-external-symbols :common-lisp
:alexandria
:iolib.base
)