Skip to content
Snippets Groups Projects
Commit 9e89272d authored by pfdietz's avatar pfdietz
Browse files

Patched some tests (problems found by SDS

parent 5e6e13eb
No related branches found
No related tags found
No related merge requests found
...@@ -382,34 +382,34 @@ ...@@ -382,34 +382,34 @@
t) t)
(deftest macrolet.43 (deftest macrolet.43
(let ((*x* nil)) (let ((*x-in-macrolet.43* nil))
(declare (special *x*)) (declare (special *x-in-macrolet.43*))
(let ((*f* #'(lambda () *x*))) (let ((*f* #'(lambda () *x-in-macrolet.43*)))
(declare (special *f*)) (declare (special *f*))
(eval `(macrolet ((%m (*x*) (eval `(macrolet ((%m (*x-in-macrolet.43*)
(declare (special *f*)) (declare (special *f*))
(funcall *f*))) (funcall *f*)))
(%m t))))) (%m t)))))
nil) nil)
(deftest macrolet.44 (deftest macrolet.44
(let ((*x* nil)) (let ((*x-in-macrolet.44* nil))
(declare (special *x*)) (declare (special *x-in-macrolet.44*))
(let ((*f* #'(lambda () *x*))) (let ((*f* #'(lambda () *x-in-macrolet.44*)))
(declare (special *f*)) (declare (special *f*))
(eval `(macrolet ((%m (*x*) (eval `(macrolet ((%m (*x-in-macrolet.44*)
(declare (special *f* *x*)) (declare (special *f* *x-in-macrolet.44*))
(funcall *f*))) (funcall *f*)))
(%m t))))) (%m t)))))
t) t)
(deftest macrolet.45 (deftest macrolet.45
(let ((*x* nil)) (let ((*x-in-macrolet.45* nil))
(declare (special *x*)) (declare (special *x-in-macrolet.45*))
(let ((*f* #'(lambda () *x*))) (let ((*f* #'(lambda () *x-in-macrolet.45*)))
(declare (special *f*)) (declare (special *f*))
(eval `(macrolet ((%m ((*x*)) (eval `(macrolet ((%m ((*x-in-macrolet.45*))
(declare (special *f* *x*)) (declare (special *f* *x-in-macrolet.45*))
(funcall *f*))) (funcall *f*)))
(%m (t)))))) (%m (t))))))
t) t)
......
...@@ -23,7 +23,11 @@ ...@@ -23,7 +23,11 @@
(let ((ns (ignore-errors (namestring p)))) (let ((ns (ignore-errors (namestring p))))
"Read 22.1.3.11 before commenting on this test" "Read 22.1.3.11 before commenting on this test"
(when ns (when ns
(let ((expected-result (concatenate 'string "#P\"" ns "\"")) (let ((expected-result
(concatenate 'string "#P"
(with-standard-io-syntax
(write-to-string ns :readably nil
:escape t))))
(result (with-standard-io-syntax (result (with-standard-io-syntax
(write-to-string p :readably nil :escape t)))) (write-to-string p :readably nil :escape t))))
(unless (string= expected-result result) (unless (string= expected-result result)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment