| commit | 9fa801f4cbac058aa0edfb2d00172faf71b5026e | |
| author | Douglas Katzman <dougk@google.com> | |
| Fri, 6 Mar 2015 00:46:09 +0000 (5 19:46 -0500) | ||
| committer | Douglas Katzman <dougk@google.com> | |
| Fri, 6 Mar 2015 02:03:41 +0000 (5 21:03 -0500) | ||
| tree | 5f5a1c0169b3afd28d401e94c2c10347ce0588ac | treesnapshot (tar.gz zip) |
| parent | eedb29ab84fb1028ec591a87866da98a13e2a3f9 | commitdiff |
Remove a brittle timing dependency from globaldb bootstrap.
The defaults for (INFO :FUNCTION {:TYPE|:WHERE-FROM} <name>) both call
FBOUNDP, and if (SETF f) is not defined, then (FBOUNDP '(SETF f))
calls LEGAL-FUN-NAME-OR-TYPE-ERROR, which reads *VALID-FUN-NAMES-ALIST*.
By initializing the alist prior to cold-init, the code is safer.
The defaults for (INFO :FUNCTION {:TYPE|:WHERE-FROM} <name>) both call
FBOUNDP, and if (SETF f) is not defined, then (FBOUNDP '(SETF f))
calls LEGAL-FUN-NAME-OR-TYPE-ERROR, which reads *VALID-FUN-NAMES-ALIST*.
By initializing the alist prior to cold-init, the code is safer.
| src/code/cold-init.lisp | diffblobblamehistory | |
| src/code/function-names.lisp | diffblobblamehistory | |
| src/compiler/generic/genesis.lisp | diffblobblamehistory |