mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

Signal error on invalid constant type checking.

Browse source 
Side effet was SIGSEGV on compiled code.
This commit is contained in:
Fabrizio Fabbri 2017-06-28 14:30:23 +02:00
parent bfc58c219e
commit 6dc40c869c
No known key found for this signature in database
GPG key ID: 8276EDF3D10E6C35
2 changed files with 27 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/tests/normal-tests/compiler.lsp
View file

@ -1182,3 +1182,19 @@
(is-eql 10 (f2 10))
(compile 'f2)
(is-eql 10 (f2 10))))
;;; Date 2017-06-27
;;; Reported by Fabrizio Fabbri
;;; Description
;;;
;;; Compiled function drop argument type checkin
;;; on constant.
;;;
;;; Bug https://gitlab.com/embeddable-common-lisp/ecl/issues/353
(test cmp.0053.check-values-type-on-constant
(handler-case
(funcall (compile nil
'(lambda () (rplaca 'A 1))))
(simple-type-error () t)
(error () nil)
(:no-error (v) (declare (ignore v)) nil)))