source: trunk/abcl/t/eg/progn-compiler-inconsistency.lisp

Last change on this file was 15222, checked in by Mark Evenson, 4 years ago

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>
File size: 217 bytes
Line 
1(in-package :cl-user)
2
3(progn
4  (defvar *sxhash-crosscheck*  nil)
5  (defun sxhash (x)
6    (let ((answer (if (string= x "NIL") (ash 1343225879 (- 1)))))
7      (push (cons x answer) *sxhash-crosscheck*)
8      answer)))
Note: See TracBrowser for help on using the repository browser.