tests/packages.impure.lisp

   1 ;;;; miscellaneous tests of package-related stuff
   2
   3 ;;;; This software is part of the SBCL system. See the README file for
   4 ;;;; more information.
   5 ;;;;
   6 ;;;; While most of SBCL is derived from the CMU CL system, the test
   7 ;;;; files (like this one) were written from scratch after the fork
   8 ;;;; from CMU CL.
   9 ;;;;
  10 ;;;; This software is in the public domain and is provided with
  11 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
  12 ;;;; more information.
  13
  14 (make-package "FOO")
  15 (defvar *foo* (find-package (coerce "FOO" 'base-string)))
  16 (rename-package "FOO" (make-array 0 :element-type nil))
  17 (assert (eq *foo* (find-package "")))
  18 (assert (delete-package ""))
  19
  20 (handler-case
  21     (export :foo)
  22   (package-error (c) (princ c))
  23   (:no-error (&rest args) (error "(EXPORT :FOO) returned ~S" args)))
  24
  25 (make-package "FOO")
  26 (assert (shadow #\a :foo))
  27
  28 (defpackage :PACKAGE-DESIGNATOR-1 (:use #.(find-package :cl)))
  29
  30 (defpackage :PACKAGE-DESIGNATOR-2
  31   (:import-from #.(find-package :cl) "+"))