convert-from-foreign doesn't translate struct typedefs

[3b]

(cffi:defcstruct foo
  (f :unsigned-int))
(cffi:defctype foo (:struct foo))

(cffi:with-foreign-object (p 'foo)
  (cffi:convert-from-foreign p '(:struct foo)))
=>
(F 871732)

(cffi:with-foreign-object (p 'foo)
  (cffi:convert-from-foreign p 'foo))
=>
#.(SB-SYS:INT-SAP #X7FFFD68CFFF0)
;; expected (F ...) as with (:struct foo)

tested on sbcl 1.2.13.x, linux/windows x8664, cffi from dec 2014 and a bit past 0.15

[Attila Lendvai (attila-lendvai)]

using ENSURE-PARSED-BASE-TYPE instead of PARSE-TYPE fixes it:

(defun convert-from-foreign (value type)
  (translate-from-foreign value (ensure-parsed-base-type type)))

(define-compiler-macro convert-from-foreign (value type)
  (if (constantp type)
      (expand-from-foreign value (ensure-parsed-base-type (eval type)))
      `(translate-from-foreign ,value (parse-type ,type))))

but also breaks some other tests.