Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ansi-test
ansi-test
Commits
9ad96328
Commit
9ad96328
authored
Jun 29, 2004
by
pfdietz
Browse files
Don't declare standardized special variables special
parent
071cb62b
Changes
5
Hide whitespace changes
Inline
Side-by-side
ansi-tests/do-external-symbols.lsp
View file @
9ad96328
...
...
@@ -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)))
...
...
ansi-tests/do-symbols.lsp
View file @
9ad96328
...
...
@@ -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)))
...
...
ansi-tests/gensym.lsp
View file @
9ad96328
...
...
@@ -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)
...
...
ansi-tests/in-package.lsp
View file @
9ad96328
...
...
@@ -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"))
...
...
ansi-tests/unintern.lsp
View file @
9ad96328
...
...
@@ -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")
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment