1.0.18.16: many STYLE-WARNING changes.

[sbcl.git] / src / compiler / generic / genesis.lisp

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 2e68ef4..843cc73 100644 (file)
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -1110,7 +1110,6 @@ core and return a descriptor to it."
         (let ((result (symbol-package symbol)))
           (unless (package-ok-for-target-symbol-p result)
             (bug "~A in bad package for target: ~A" symbol result))
-          (aver (package-ok-for-target-symbol-p result))
           result))))
 
 ;;; Return a handle on an interned symbol. If necessary allocate the