safepoint: Remove unused context argument.
[sbcl.git] / tests / icf-smoketest.impure-cload.lisp
blobbcc1c55d2d8162e33658380f0de430f89c77e981
1 (eval '(defun hhh () 92))
2 (defvar f #'hhh)
3 (unintern 'hhh)
4 (eval '(defun hhh () 92))
5 ;;; Ensure no crash on (FIND-PACKAGE (SYMBOL-PACKAGE NIL)) if two functions
6 ;;; are identical and one is named by an uninterned symbol.
7 #-(and gc-stress arm64)
8 (fold-identical-code :aggressive t)