- (let ((alien (make-symbol "ALIEN")))
- `(with-alien ((,alien (array #+sbcl(sb-alien:unsigned 8) #+cmu(alien:unsigned 8) ,(eval size))))
+ (let ((alien (make-symbol "ALIEN"))
+ (size (eval size)))
+ `(with-alien ((,alien (array #+sbcl(sb-alien:unsigned 8) #+cmu(alien:unsigned 8) ,size)))