0.6.11.37:

[sbcl.git] / src / code / fop.lisp

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index b47aa4e..e8c3a37 100644 (file)
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -65,16 +65,17 @@
 ;;; know both the 1-byte-arg and the 4-byte-arg fop names. -- WHN 19990902
 (defmacro define-cloned-fops ((name code &optional (pushp t))
                              (small-name small-code) &rest forms)
-  (check-type pushp (member nil t :nope))
+  (aver (member pushp '(nil t :nope)))
   `(progn
      (macrolet ((clone-arg () '(read-arg 4)))
        (define-fop (,name ,code ,pushp) ,@forms))
      (macrolet ((clone-arg () '(read-arg 1)))
        (define-fop (,small-name ,small-code ,pushp) ,@forms))))
 
-;;; a helper function for reading string values from FASL files: sort of like
-;;; READ-SEQUENCE specialized for files of (UNSIGNED-BYTE 8), with an automatic
-;;; conversion from (UNSIGNED-BYTE 8) into CHARACTER for each element read
+;;; a helper function for reading string values from FASL files: sort
+;;; of like READ-SEQUENCE specialized for files of (UNSIGNED-BYTE 8),
+;;; with an automatic conversion from (UNSIGNED-BYTE 8) into CHARACTER
+;;; for each element read
 (declaim (ftype (function (stream simple-string &optional index) (values)) read-string-as-bytes))
 (defun read-string-as-bytes (stream string &optional (length (length string)))
   (dotimes (i length)
@@ -99,11 +100,12 @@
 #!+sb-show
 (defvar *show-fop-nop4-p* nil)
 
-;;; CMU CL had a single no-op fop, FOP-NOP, with fop code 0. Since 0 occurs
-;;; disproportionately often in fasl files for other reasons, FOP-NOP is less
-;;; than ideal for writing human-readable patterns into fasl files for
-;;; debugging purposes. There's no shortage of unused fop codes, so we add this
-;;; second NOP, which reads 4 arbitrary bytes and discards them.
+;;; CMU CL had a single no-op fop, FOP-NOP, with fop code 0. Since 0
+;;; occurs disproportionately often in fasl files for other reasons,
+;;; FOP-NOP is less than ideal for writing human-readable patterns
+;;; into fasl files for debugging purposes. There's no shortage of
+;;; unused fop codes, so we add this second NOP, which reads 4
+;;; arbitrary bytes and discards them.
 (define-fop (fop-nop4 137 :nope)
   (let ((arg (read-arg 4)))
     (declare (ignorable arg))
@@ -487,10 +489,8 @@
                             sb!vm:byte-bits))
       res)))
 
-;;; FOP-SIGNED-INT-VECTOR
-;;;
-;;; Same as FOP-INT-VECTOR, except this is for signed simple-arrays.
-;;; It appears that entry 50 and 51 are clear.
+;;; This is the same as FOP-INT-VECTOR, except this is for signed
+;;; SIMPLE-ARRAYs.
 (define-fop (fop-signed-int-vector 50)
   (prepare-for-fast-read-byte *fasl-file*
     (let* ((len (fast-read-u-integer 4))