From 0a341b5af0d74e131cfd77f7d0600768dcc44406 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Fri, 30 Sep 2016 12:09:00 -0400 Subject: [PATCH] Revert "Fix weirdness and confusion" This reverts commit 41942fd92694ff1317a2484d9fdd0a5a034019de. --- src/compiler/generic/genesis.lisp | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp index e30dd5fc8..b452bc046 100644 --- a/src/compiler/generic/genesis.lisp +++ b/src/compiler/generic/genesis.lisp @@ -2026,7 +2026,6 @@ core and return a descriptor to it." (defun record-cold-assembler-routine (name address) (/xhow "in RECORD-COLD-ASSEMBLER-ROUTINE" name address) - (aver (not (assoc name *cold-assembler-routines*))) (push (cons name address) *cold-assembler-routines*)) @@ -3832,8 +3831,6 @@ initially undefined function references:~2%") ;; *COLD-ASSEMBLER-ROUTINES* above and calling ;; INITIALIZE-STATIC-FNS below. (when preload-file - (setq object-file-names - (remove preload-file object-file-names :test 'string-equal)) (cold-load preload-file)) ;; Prepare for cold load. -- 2.11.4.GIT