Merge pull request #281 from Affonso-Gui/fix-read-bit-vector

Unread last char in read-bit-vector

Author: k-okada

lisp/l/readmacro.l

@@ -42,7 +42,7 @@
 
 ;; #B and #* macro
 
-(defun read-binary (f n ch)
+(defun read-binary (f ch n)
   (let ((val 0) )
     (setq ch (read-char f))
     (while (find ch "01")
@@ -51,12 +51,13 @@
     (if (integerp ch)  (unread-char ch f))
     val))
 
-(defun read-bit-vector (f n ch)
+(defun read-bit-vector (f ch n)
    (let  ((ba (make-array '(8) :element-type :bit :fill-pointer 0)))
       (setq ch (read-char f))
       (while (find ch "01")
 	(vector-push-extend (- ch #\0) ba)
 	(setq ch (read-char f nil nil)))
+      (if (integerp ch)  (unread-char ch f))
       (subseq (array-entity ba) 0 (fill-pointer ba))))
 
 
@@ -67,7 +68,7 @@
 ;; define a legal shell command.
 (set-dispatch-macro-character #\# #\! (get-macro-character #\;))
 
-(defun read-pathname (f n ch)
+(defun read-pathname (f ch n)
   (pathname (read f)))
 
 (set-dispatch-macro-character #\# #\P 'read-pathname)