X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffop.lisp;h=3d1df115e8a7208ac303d485bbe6d7ed34c4ac66;hb=cbaa1997bb097a55d108df592ac3b7eb4a703fff;hp=6f8cb3b42e731489dc7e64d7f7a89954349bf517;hpb=0aafa73007d42f2bc8e626f98a243019b7e63284;p=sbcl.git

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 6f8cb3b..3d1df11 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -489,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))