Bug fix: When a DOUBLE-FLOAT was specified in a DEFBINARY form, the

generated code read a single-precision float instead.

binary.lisp

@@ -1163,7 +1163,7 @@ TYPE-INFO is a DEFBINARY-TYPE that contains the following:
 		(return-from this-function
 		  (values defstruct-type reader writer)))))
 	   ((type length &key (external-format :latin1))
-	    :where (eq type 'fixed-length-string)
+	    :where (member type '(fixed-length-string fixed-string))
 	    (setf reader*
 		  (let ((bytes (gensym))
 			(bytes* (gensym))

float.lisp

@@ -512,16 +512,16 @@ value is an integer."
   (let ((size (format-size format)))
     (values
      (decode-float-bits (read-integer size stream :byte-order byte-order)
-			:result-type result-type)
+			:result-type result-type :format format)
      size)))
 
 (defmacro read-float (format &key (stream *standard-input*) (result-type ''float) (byte-order :little-endian))
   (if (keywordp format) ;; Is the format known at compile time?
       (let ((size (format-size format)))
 	`(values (decode-float-bits (read-integer ,size ,stream :byte-order ,byte-order)
 				    :format ,format :result-type ,result-type)
-		 ,size)
-      `(%read-float ,format ,stream ,result-type ,byte-order))))		      
+		 ,size))
+      `(%read-float ,format ,stream ,result-type ,byte-order)))
 
 (defun %write-float (format fraction stream byte-order)
   (let ((size (format-size format)))