X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=843cc7343f88b8794baea5f46c8d41b49e8c2c11;hb=5d04a95274c9ddaebbcd6ddffc5d646e2c25598c;hp=2e68ef4a55232568c194ef4ee530cf4fdc23babc;hpb=4d9fb924ec5e084743813bf30528af87ce87c41e;p=sbcl.git diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp index 2e68ef4..843cc73 100644 --- 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