;;;; make only condition INVALID-FASL part of the public interface,
;;;; and keep the guts internal.
;;;; make only condition INVALID-FASL part of the public interface,
;;;; and keep the guts internal.
((stream :reader invalid-fasl-stream :initarg :stream)
(expected :reader invalid-fasl-expected :initarg :expected))
(:report
((stream :reader invalid-fasl-stream :initarg :stream)
(expected :reader invalid-fasl-expected :initarg :expected))
(:report
((byte :reader invalid-fasl-byte :initarg :byte)
(byte-nr :reader invalid-fasl-byte-nr :initarg :byte-nr))
(:report
((byte :reader invalid-fasl-byte :initarg :byte)
(byte-nr :reader invalid-fasl-byte-nr :initarg :byte-nr))
(:report
((variant :reader invalid-fasl-variant :initarg :variant)
(version :reader invalid-fasl-version :initarg :version))
(:report
((variant :reader invalid-fasl-variant :initarg :variant)
(version :reader invalid-fasl-version :initarg :version))
(:report
((potential-features :reader invalid-fasl-potential-features
:initarg :potential-features)
(features :reader invalid-fasl-features :initarg :features))
((potential-features :reader invalid-fasl-potential-features
:initarg :potential-features)
(features :reader invalid-fasl-features :initarg :features))