0.6.8.9:

[sbcl.git] / src / code / target-load.lisp

diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp
index ddfb683..f015581 100644 (file)
--- a/src/code/target-load.lisp
+++ b/src/code/target-load.lisp
@@ -13,9 +13,6 @@
 
 (in-package "SB!IMPL")
 
-(file-comment
-  "$Header$")
-
 (defvar *load-source-types* '("lisp" "l" "cl" "lsp")
   #!+sb-doc
   "The source file types which LOAD recognizes.")
@@ -41,17 +38,12 @@
 \f
 ;;;; SLOLOAD
 
-;;; something not EQ to anything read from a file
-;;; FIXME: shouldn't be DEFCONSTANT; and maybe make a shared EOF cookie in
-;;; SB-INT:*EOF-VALUE*?
-(defconstant load-eof-value '(()))
-
 ;;; Load a text file.
 (defun sloload (stream verbose print)
   (do-load-verbose stream verbose)
-  (do ((sexpr (read stream nil load-eof-value)
-             (read stream nil load-eof-value)))
-      ((eq sexpr load-eof-value)
+  (do ((sexpr (read stream nil *eof-object*)
+             (read stream nil *eof-object*)))
+      ((eq sexpr *eof-object*)
        t)
     (if print
        (let ((results (multiple-value-list (eval sexpr))))
@@ -346,7 +338,7 @@
       (gethash (concatenate 'simple-string
                            #!+linux "ldso_stub__"
                            #!+openbsd "_"
-                           #!+freebsd ""
+                           #!+freebsd "ldso_stub__"
                            foreign-symbol)
               *static-foreign-symbols*)
       (sb!sys:get-dynamic-foreign-symbol-address foreign-symbol)