Further fixes

Author: ajberkley

src/symbols.lisp

@@ -75,12 +75,18 @@
 	  (intern symbol-string new-package-string)
 	  (signal-missing-package symbol-string package-string)))))
 
+(declaim (inline ensure-string))
+(defun ensure-string (maybe-string)
+  (if (stringp maybe-string)
+      maybe-string
+      (progn (unexpected-data "string" maybe-string) "")))
+
 (declaim (inline restore-symbol))
 (defun restore-symbol (storage restore-object)
   "Do not call me directly because if you called store-symbol you may have
  ended up writing a reference to the symbol object instead of the symbol object."
   (let* ((symbol-string (restore-string storage))
-	 (package-string (funcall (the function restore-object))) ;; might be a reference
+	 (package-string (ensure-string (funcall (the function restore-object)))) ;; might be a reference
 	 (package (find-package package-string)))
       (if package
 	  (values (intern symbol-string package))

test/cl-binary-store-tests.lisp

@@ -672,7 +672,6 @@
                   (invalid-input-data ())))
                (delete-file "fuzzing-input")))
       (when (probe-file "fuzzing-input")
-        (format t "Trying pre-existing fuzzing-input~%")
         (finish-output t)
         (try
          (with-open-file (str "fuzzing-input" :element-type '(unsigned-byte 8)