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