Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 3e9f5ca)
Test for Sourceforge bug #286: miscompilation of (read-from-string).
authorPhilipp Marek <philipp@marek.priv.at>
Sun, 2 Mar 2014 19:09:02 +0000 (20:09 +0100)
committerPhilipp Marek <philipp@marek.priv.at>
Sun, 2 Mar 2014 19:09:02 +0000 (20:09 +0100)
src/tests/bugs/doit.lsp patch | blob | blame | history
src/tests/bugs/sf286.lsp [new file with mode: 0644] patch | blob

diff --git a/src/tests/bugs/doit.lsp b/src/tests/bugs/doit.lsp
index cbbbb21..a9f071c 100644 (file)
--- a/src/tests/bugs/doit.lsp
+++ b/src/tests/bugs/doit.lsp
@@ -30,6 +30,7 @@
 (load "../ansi-tests/ansi-aux.lsp")
 
 (load "sf276--write-hash-readably.lsp")
+(load "sf286.lsp")
 (load "cl-001.lsp")
 
 (load "int-001.lsp")
diff --git a/src/tests/bugs/sf286.lsp b/src/tests/bugs/sf286.lsp
new file mode 100644 (file)
index 0000000..f80c68c
--- /dev/null
+++ b/src/tests/bugs/sf286.lsp
@@ -0,0 +1,17 @@
+
+;; miscompilation - assumed that read-from-string returns a fixnum.
+
+(deftest sf286-a
+         (assert
+           (let ((string ":cl-user"))
+             (find-package 
+               (let ((*package* *swank-io-package*))
+                 (read-from-string string))))))
+
+(deftest sf286-b
+         (assert
+           (let ((string ":cl-user"))
+             (let ((*package* *swank-io-package*))
+               (find-package 
+                 (read-from-string string)))))
+
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)