X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-fasl.lisp;h=9e95f1c8497f2aa3df62624e53dd57f8cb0ff175;hb=75b52379bdc2269961af6a1308eca63610f38ac3;hp=029d24a751d053b0e5b3e83f37450c79f908c28d;hpb=e6c468c2b371f7deac2010cf03896a60974ea766;p=sbcl.git

diff --git a/src/code/early-fasl.lisp b/src/code/early-fasl.lisp
index 029d24a..9e95f1c 100644
--- a/src/code/early-fasl.lisp
+++ b/src/code/early-fasl.lisp
@@ -121,16 +121,9 @@
 ;;;   Assembler routines are named by full Lisp symbols: they
 ;;;     have packages and that sort of native Lisp stuff associated
 ;;;     with them. We can compare them with EQ.
-;;;   Foreign symbols are named by Lisp STRINGs: the Lisp package
-;;;     system doesn't extend out to symbols in languages like C.
-;;;     We want to use EQUAL to compare them.
-;;;   *STATIC-FOREIGN-SYMBOLS* are static as opposed to "dynamic" (not
-;;;     as opposed to C's "extern"). The table contains symbols known at 
-;;;     the time that the program was built, but not symbols defined
-;;;     in object files which have been loaded dynamically since then.
-(declaim (type hash-table *assembler-routines* *static-foreign-symbols*))
+(declaim (type hash-table *assembler-routines*))
 (defvar *assembler-routines* (make-hash-table :test 'eq))
-(defvar *static-foreign-symbols* (make-hash-table :test 'equal))
+
 
 ;;;; the FOP database