[Sbcl-devel] bug in DEF-ALIEN-ROUTINE

[Alexey D. <ade...@co...>]

Hello,

(macroexpand '(sb-alien:def-alien-routine 
                 ("close" CLOSE) 
                 INTEGER 
                 (FD INTEGER)))
=>
(PROGN
 (DECLAIM
  (FTYPE (FUNCTION (MAPCAR (CONSTANTLY T) '((FD INTEGER))) (ALIEN INTEGER))
;                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
;                  It should be the value of this expression.
   CLOSE))
 (DEFUN CLOSE (FD)
   (WITH-ALIEN ((CLOSE (FUNCTION INTEGER INTEGER) :EXTERN "close"))
               (VALUES (ALIEN-FUNCALL CLOSE FD)))))

Regards,
Alexey Dejneka