mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
9 lines
281 B
Common Lisp
9 lines
281 B
Common Lisp
(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.
|
|
#-(and gc-stress arm64)
|
|
(fold-identical-code :aggressive t)
|