Permalink
Browse files

Merge pull request #8 from eadmund/master

Fixed another case bug with ~:R
  • Loading branch information...
2 parents 2bf28f2 + 111fdf0 commit af4d9d4aa4cee93b36d8cba05afafb335a17cc15 @froydnj committed Jan 30, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/common.lisp
View
@@ -98,7 +98,7 @@
(- bytes i)
(1- i))))
`(setf (aref buffer (+ index ,offset))
- (,(intern (format nil "~:R-~A" i '#:byte)) value))))
+ (,(read-from-string (format nil "~:R-~A" i '#:byte)) value))))
(values)))))
(define-fetchers-and-storers (bitsize)
`(progn

0 comments on commit af4d9d4

Please sign in to comment.