Commit e02795c8 authored by Mark Evenson's avatar Mark Evenson

Test for progn compiler inconsistency

(Eric Marsden)

Bug revealed by using ABCL to host SBCL compilation.


<https://mailman.common-lisp.net/pipermail/armedbear-devel/2019-December/004022.html>
parent 3a54c91f
......@@ -19,6 +19,17 @@
result)))
(format nil "Checking for successfull compilation of two argument function…"))
(prove:plan 1)
(let* ((file (asdf:system-relative-pathname :abcl "t/eg/progn-compiler-inconsistency.lisp"))
(fasl (compile-file file)))
(prove:ok
(handler-case
(load fasl)
(error (e)
(format *standard-output* "Failed to load fasl: ~a~%" e)
nil))
"(ash 1343225879 (- 1)) should compile to a constant"))
(prove:finalize)
......
(in-package :cl-user)
(progn
(defvar *sxhash-crosscheck* nil)
(defun sxhash (x)
(let ((answer (if (string= x "NIL") (ash 1343225879 (- 1)))))
(push (cons x answer) *sxhash-crosscheck*)
answer)))
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