Commit 9ad96328 authored by pfdietz's avatar pfdietz

Don't declare standardized special variables special

parent 071cb62b
......@@ -49,7 +49,6 @@
(deftest do-external-symbols.7
(let ((x nil)
(*package* (find-package "DS1")))
(declare (special *package*))
(list
(do-external-symbols (s) (push s x))
(sort-symbols x)))
......
......@@ -61,7 +61,6 @@
(deftest do-symbols.7
(let ((x nil)
(*package* (find-package "DS1")))
(declare (special *package*))
(list
(do-symbols (s) (push s x))
(sort-symbols x)))
......
......@@ -21,14 +21,12 @@
;;; has been created.
(deftest gensym.3
(let ((*gensym-counter* 1))
(declare (special *gensym-counter*))
(symbol-name (gensym)))
#.(string '#:g1))
;;; Gensym uses the string argument instead of the default
(deftest gensym.4
(let ((*gensym-counter* 1327))
(declare (special *gensym-counter*))
(symbol-name (gensym "FOO")))
"FOO1327")
......@@ -55,7 +53,6 @@
;;; *gensym-counter* is incremented by gensym
(deftest gensym.9
(let ((*gensym-counter* 12345))
(declare (special *gensym-counter*))
(gensym)
*gensym-counter*)
12346)
......@@ -65,14 +62,12 @@
;;; the symbol.)
(deftest gensym.10
(let ((*gensym-counter* 1234567890123456789012345678901234567890))
(declare (special *gensym-counter*))
(symbol-name (gensym)))
#.(string '#:g1234567890123456789012345678901234567890))
;;; gensym increments Really Big values of *gensym-counter*
(deftest gensym.11
(let ((*gensym-counter* 12345678901234567890123456789012345678901234567890))
(declare (special *gensym-counter*))
(gensym)
*gensym-counter*)
12345678901234567890123456789012345678901234567891)
......@@ -80,7 +75,6 @@
;;; Gensym uses an integer argument instead of the counter
(deftest gensym.12
(let ((*gensym-counter* 10))
(declare (special *gensym-counter*))
(symbol-name (gensym 123)))
#.(string '#:g123))
......@@ -88,7 +82,6 @@
;;; *gensym-counter*
(deftest gensym.13
(let ((*gensym-counter* 10))
(declare (special *gensym-counter*))
(gensym 123)
*gensym-counter*)
10)
......
......@@ -11,7 +11,6 @@
(deftest in-package.1
(let ((*package* *package*))
(declare (special *package*))
(let ((p2 (in-package "A")))
(and (eqt p2 (find-package "A"))
(eqt *package* p2))))
......@@ -19,7 +18,6 @@
(deftest in-package.2
(let ((*package* *package*))
(declare (special *package*))
(let ((p2 (in-package |A|)))
(and (eqt p2 (find-package "A"))
(eqt *package* p2))))
......@@ -27,7 +25,6 @@
(deftest in-package.3
(let ((*package* *package*))
(declare (special *package*))
(let ((p2 (in-package :|A|)))
(and (eqt p2 (find-package "A"))
(eqt *package* p2))))
......@@ -35,7 +32,6 @@
(deftest in-package.4
(let ((*package* *package*))
(declare (special *package*))
(let ((p2 (in-package #\A)))
(and (eqt p2 (find-package "A"))
(eqt *package* p2))))
......@@ -43,7 +39,6 @@
(deftest in-package.5
(let ((*package* *package*))
(declare (special *package*))
(safely-delete-package "H")
(handler-case
(eval '(in-package "H"))
......
......@@ -38,7 +38,6 @@
(safely-delete-package "H")
(prog1
(let ((*PACKAGE* (make-package "H")))
(declare (special *PACKAGE*))
(intern "FOO")
(multiple-value-bind* (sym access)
(find-symbol "FOO")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment