Skip to content

wrappers are not compiled in ABCL #103

Description

@alanruttenberg

e.g.
Note, however, there's something sinister happening to 'compile at the moment, caused by something cl-include or cffi does, so don't fix this until armedbear/abcl#431 is resolved.

(disassemble 'avpriv-get-gamma-from-trc)
; Not a compiled function: 
; 
; ((block avpriv-get-gamma-from-trc
;    (let ((#:trc6017537
;           (let ((#:trc6017537 trc))
;             (let ((#:g6017541 #:trc6017537))
;               (cond ((typep #:g6017541 'symbol)
;                      nil
;                      (enum-value 'av-color-transfer-characteristic
;                                  #:trc6017537))
;                     ((typep #:g6017541 'integer) nil #:trc6017537)
;                     (t
;                      (error 'type-error
;                             :datum
;                             #:g6017541
;                             :expected-type
;                             '(or integer symbol))))))))
;      (declare (ignorable #:trc6017537))
;      (cffi-sys::%%foreign-funcall (cffi-sys::find-foreign-function '"avpriv_get_gamma_from_trc"
;                                                                    ':default)
;                                   (list #:trc6017537)
;                                   '(:int)
;                                   ':double))))

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions