Coalesece FUN-INFO instances in save rather than only for self-build

User code could add 1000 functions all with the 'foldable' attribute.

Also move the compilation of disassembler thingies into cold-init.

make-target-2-load.lisp

@@ -110,23 +110,6 @@
  (when (plusp count)
  (format t "~&Removed ~D doc string~:P" count)))
 
- ;; Share identical FUN-INFOs
- sb-int::
- (let ((ht (make-hash-table :test 'equalp))
- (old-count 0))
- (sb-int:call-with-each-globaldb-name
- (lambda (name)
- (binding* ((info (info :function :info name) :exit-if-null)
- (shared-info (gethash info ht info)))
- (incf old-count)
- (if (eq info shared-info)
- (setf (gethash info ht) info)
- (setf (info :function :info name) shared-info)))))
- (format t "~&FUN-INFO: Collapsed ~D -> ~D~%"
- old-count (hash-table-count ht)))
-
- (sb-disassem::!compile-inst-printers)
-
  ;; Unintern no-longer-needed stuff before the possible PURIFY in
  ;; SAVE-LISP-AND-DIE.
  #-sb-fluid (!unintern-init-only-stuff)

src/code/cold-init.lisp

@@ -245,6 +245,7 @@
  (show-and-call float-cold-init-or-reinit)
 
  (show-and-call !class-finalize)
+ (show-and-call sb!disassem::!compile-inst-printers)
 
  ;; Install closures as guards on some early PRINT-OBJECT methods so that
  ;; THREAD and RESTART print nicely prior to the real methods being installed.

src/code/save.lisp

@@ -187,6 +187,16 @@ sufficiently motivated to do lengthy fixes."
  (return-from save-lisp-and-die))))
  (when (eql t compression)
  (setf compression -1))
+
+ ;; Share EQUALP FUN-INFOs
+ (let ((ht (make-hash-table :test 'equalp)))
+ (sb-int:call-with-each-globaldb-name
+ (lambda (name)
+ (binding* ((info (info :function :info name) :exit-if-null)
+ (shared-info (gethash info ht)))
+ (if shared-info
+ (setf (info :function :info name) shared-info)
+ (setf (gethash info ht) info))))))
  ;; Share similar simple-fun arglists and types
  ;; EQUALISH considers any two identically-spelled gensyms as EQ
  (let ((arglist-hash (make-hash-table :hash-function 'equal-hash