base/pkgdcl.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- Package definition.
   4 ;;;
   5
   6 (in-package :common-lisp-user)
   7
   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))
  14
  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)
  23           :iolib.base))