From e0becd18d58d10d84a6d00df507ca0104c8ffec0 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 30 Apr 2005 12:04:21 +0000
Subject: [PATCH] Add tests that *readtable*, *package* are actually bound in a
 LOAD form.

---
 ansi-tests/load.lsp | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/ansi-tests/load.lsp b/ansi-tests/load.lsp
index 32bf8321..65a2e08e 100644
--- a/ansi-tests/load.lsp
+++ b/ansi-tests/load.lsp
@@ -116,6 +116,16 @@
      (load-file-test s 'load-test-package::f)))
   t load-test-package::good)
 
+(deftest load.15a
+  (let ((*package* (find-package "CL-TEST")))
+    (values
+     (with-input-from-string
+      (s "(eval-when (:load-toplevel :execute) (setq *package* (find-package \"LOAD-TEST-PACKAGE\")))
+          (defun f () 'good)")
+      (multiple-value-list (load-file-test s 'load-test-package::f)))
+     (read-from-string "GOOD")))
+  (t load-test-package::good) good)
+
 (deftest load.16
   (let ((*readtable* (copy-readtable nil)))
     (set-macro-character #\! (get-macro-character #\'))
@@ -124,6 +134,21 @@
      (load-file-test s 'load-file-test-fun.3)))
   t good)
 
+(deftest load.16a
+  (let ((*readtable* *readtable*)
+	(*package* (find-package "CL-TEST")))
+    (values
+     (with-input-from-string
+      (s "(in-package :cl-test)
+         (eval-when (:load-toplevel :execute)
+            (setq *readtable* (copy-readtable nil))
+            (set-macro-character #\\! (get-macro-character #\\')))
+         (defun load-file-test-fun.3 () !good)")
+      (multiple-value-list
+       (load-file-test s 'load-file-test-fun.3)))
+     (read-from-string "!FOO")))
+  (t good) !FOO)
+
 (deftest load.17
   (let ((file #p"load-test-file.lsp"))
     (fmakunbound 'load-file-test-fun.1)
-- 
GitLab