Skip to content
Snippets Groups Projects
Commit aab6df3b authored by gerd's avatar gerd
Browse files

(funcall (compile nil

 	  '(lambda () (flet ((%f2 () 288213285))
 	                 (+ (%f2) (* 13 (%f2)))))))
	 => segmentation violation

	(funcall (compile nil
	  '(lambda ()
	      (let ((v9 (labels ((%f13 () nil)) nil)))
		 (let ((v3 (logandc2 97 3)))
		      (* v3 (- 37391897 (logand v3 -66))))))))
	 => invalid argument count

	* src/compiler/srctran.lisp (*) <deftransform>: #+nil because it's
	lying to the compiler, leading to compiler inconsistencies.
	Reported by Paul Dietz.
parent 82d8165d
No related branches found
No related tags found
No related merge requests found
Loading
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