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.

parent 3a54c91f
......@@ -19,6 +19,17 @@
(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)))
(load fasl)
(error (e)
(format *standard-output* "Failed to load fasl: ~a~%" e)
"(ash 1343225879 (- 1)) should compile to a constant"))
(in-package :cl-user)
(defvar *sxhash-crosscheck* nil)
(defun sxhash (x)
(let ((answer (if (string= x "NIL") (ash 1343225879 (- 1)))))
(push (cons x answer) *sxhash-crosscheck*)
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