From fcc6e09483f872d9bee0673249b1bbdbd1b6d135 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 28 Feb 1991 03:16:49 +0000
Subject: [PATCH] Changed FASLOAD to check that there is something in the
 stream before it drops into the load-group loop.  This eliminates the
 "feature" whereby zero-length fasl files where considered to be valid (doing
 nothing).

---
 code/load.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/code/load.lisp b/code/load.lisp
index dbb300296..f5f19b1c5 100644
--- a/code/load.lisp
+++ b/code/load.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.25 1991/02/08 13:33:54 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.26 1991/02/28 03:16:49 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.25 1991/02/08 13:33:54 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.26 1991/02/28 03:16:49 ram Exp $
 ;;;
 ;;; Loader for Spice Lisp.
 ;;; Written by Skef Wholey and Rob MacLachlan.
@@ -243,6 +243,8 @@
 ;;; Fasload:
 
 (defun fasload (stream)
+  (unless (listen stream)
+    (error "Attempt to load an empty FASL FILE:~%  ~S" stream))
   (when *load-verbose*
     (format t "~&; Loading stuff from ~S.~%" stream))
   (let* ((*fasl-file* stream)
-- 
GitLab