common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Fix ICF crash

Browse source
This commit is contained in:
Douglas Katzman 2020-09-25 01:13:42 -04:00
parent 67361231df
commit 1c4265527e
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/code/icf.lisp
View file

@ -385,6 +385,7 @@
(name (and entry
(sb-kernel:%fun-name entry))))
(and (symbolp name)
(symbol-package name)
(eq (nth-value 1 (find-symbol (symbol-name name)
(symbol-package name)))
:external))))

7
tests/icf-smoketest.impure-cload.lisp Normal file
View file

@ -0,0 +1,7 @@
(eval '(defun hhh () 92))
(defvar f #'hhh)
(unintern 'hhh)
(eval '(defun hhh () 92))
;;; Ensure no crash on (FIND-PACKAGE (SYMBOL-PACKAGE NIL)) if two functions
;;; are identical and one is named by an uninterned symbol.
(fold-identical-code :aggressive t)