=> Bootstrap dependency digest>=20010302: found digest-20121220 ===> Building for clisp-new-clx-2.49nb1 /usr/pkg/bin/clisp -norc -q -i ./clx-preload.lisp -c ./clx.lisp -o ./ WARNING: locale: no encoding 646, using ISO-8859-1 ;; Loading file ./clx-preload.lisp ... ;; Loaded file ./clx-preload.lisp ;; Compiling file /usr/pkgsrc/work/x11/clisp-new-clx/work/clisp-2.49/modules/clx/new-clx/clx.lisp ... ;; Wrote file /usr/pkgsrc/work/x11/clisp-new-clx/work/clisp-2.49/modules/clx/new-clx/clx.fas The following functions were used but not defined: XLIB::%GCONTEXT-KEY->MASK XLIB::ATOM-NAME XLIB::INTERN-ATOM XLIB::LOOKUP-WINDOW XLIB::WINDOW-ID XLIB::SET-WM-HINTS XLIB::VISUAL-INFO XLIB::LOOKUP-RESOURCE-ID XLIB::DRAWABLE-ID XLIB::GCONTEXT-ID XLIB::CURSOR-ID XLIB::FONT-ID XLIB::LOOKUP-COLORMAP XLIB::WINDOW-DISPLAY XLIB::COLORMAP-ID XLIB::CARD8->CHAR XLIB::GET-PROPERTY XLIB::CHAR->CARD8 XLIB::CHANGE-PROPERTY XLIB::SCREEN-ROOT XLIB::DISPLAY-DEFAULT-SCREEN XLIB::LIST-PROPERTIES XLIB::ROTATE-PROPERTIES XLIB::COLORMAP-VISUAL-INFO XLIB::DISPLAY-DISPLAY XLIB::DISPLAY-HOST XLIB::DISPLAY-PROTOCOL-MAJOR-VERSION XLIB::DISPLAY-PROTOCOL-MINOR-VERSION XLIB::DISPLAY-RELEASE-NUMBER XLIB::DISPLAY-VENDOR-NAME XLIB::DRAWABLE-HEIGHT XLIB::DRAWABLE-WIDTH XLIB::DRAWABLE-X XLIB::DRAWABLE-Y XLIB::%UNTRACED-COLOR-RED XLIB::%UNTRACED-COLOR-GREEN XLIB::%UNTRACED-COLOR-BLUE XLIB::%UNTRACED-DISPLAY-DISPLAY XLIB::%UNTRACED-DISPLAY-VENDOR-NAME XLIB::%UNTRACED-DISPLAY-RELEASE-NUMBER XLIB::%UNTRACED-DISPLAY-PROTOCOL-MAJOR-VERSION XLIB::%UNTRACED-DISPLAY-PROTOCOL-MINOR-VERSION XLIB::%UNTRACED-COLORMAP-VISUAL-INFO XLIB::%UNTRACED-VISUAL-INFO-CLASS XLIB::CLOSED-DISPLAY-P XLIB::%UNTRACED-DRAWABLE-WIDTH XLIB::%UNTRACED-DRAWABLE-HEIGHT XLIB::%UNTRACED-DRAWABLE-X XLIB::%UNTRACED-DRAWABLE-Y XLIB::%UNTRACED-DISPLAY-HOST XLIB::OPEN-DISPLAY XLIB::SET-DISPLAY-DEFAULT-SCREEN XLIB::CREATE-IMAGE XLIB::MAKE-EVENT-MASK 0 errors, 0 warnings /usr/pkg/bin/clisp -norc -q -i ./clx-preload.lisp -c ./image.lisp -o ./ WARNING: locale: no encoding 646, using ISO-8859-1 ;; Loading file ./clx-preload.lisp ... ;; Loaded file ./clx-preload.lisp ;; Compiling file /usr/pkgsrc/work/x11/clisp-new-clx/work/clisp-2.49/modules/clx/new-clx/image.lisp ... ;; Loading file /usr/pkgsrc/work/x11/clisp-new-clx/work/clisp-2.49/modules/clx/new-clx/clx.lib ... ;; Loaded file /usr/pkgsrc/work/x11/clisp-new-clx/work/clisp-2.49/modules/clx/new-clx/clx.lib ;; Wrote file /usr/pkgsrc/work/x11/clisp-new-clx/work/clisp-2.49/modules/clx/new-clx/image.fas The following functions were used but not defined: XLIB::CREATE-PIXMAP XLIB::CREATE-GCONTEXT XLIB::PUT-IMAGE XLIB::COPY-AREA XLIB::FREE-GCONTEXT 0 errors, 0 warnings /usr/pkg/bin/clisp -norc -q -i ./clx-preload.lisp -c ./resource.lisp -o ./ WARNING: locale: no encoding 646, using ISO-8859-1 ;; Loading file ./clx-preload.lisp ... ;; Loaded file ./clx-preload.lisp ;; Compiling file /usr/pkgsrc/work/x11/clisp-new-clx/work/clisp-2.49/modules/clx/new-clx/resource.lisp ... ;; Loading file /usr/pkgsrc/work/x11/clisp-new-clx/work/clisp-2.49/modules/clx/new-clx/clx.lib ... ;; Loaded file /usr/pkgsrc/work/x11/clisp-new-clx/work/clisp-2.49/modules/clx/new-clx/clx.lib ;; Wrote file /usr/pkgsrc/work/x11/clisp-new-clx/work/clisp-2.49/modules/clx/new-clx/resource.fas The following functions were used but not defined: XLIB::CARD8->CHAR XLIB::DISPLAY-DEFAULT-SCREEN XLIB::SCREEN-ROOT XLIB::DISPLAY-ROOTS XLIB::GET-PROPERTY 0 errors, 0 warnings ../../ccmp2c ./clx.f > genclx.c cc -I/usr/pkg/include -I/usr/include -I/usr/X11R7/include -O2 -march=i586 -I/usr/pkg/include -I/usr/include -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4 -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -fPIC -DWANT_XPM=1 -DWANT_XSHAPE=1 genclx.c -o genclx ./genclx -l -o clx.d > clx.d rm -f genclx.c rm -f genclx /usr/pkg/bin/clisp -norc -q -C /usr/pkg/lib/clisp/linkkit/modprep clx.d clx.c WARNING: locale: no encoding 646, using ISO-8859-1 ;; MODPREP: "clx.d" --> #P"clx.c" ;; MODPREP: reading "clx.d": 352,285 bytes, 8,779 lines WARNING: "clx.d":1836:XLIB:OPEN-DISPLAY: emulating signature (1 0 &ALLOW-OTHER-KEYS) WARNING: "clx.d":3605:XLIB:COPY-AREA: emulating signature (9 0) WARNING: "clx.d":3625:XLIB:COPY-PLANE: emulating signature (10 0) WARNING: "clx.d":3694:XLIB:DRAW-LINE: emulating signature (6 1) WARNING: "clx.d":3780:XLIB:DRAW-RECTANGLE: emulating signature (6 1) WARNING: "clx.d":3817:XLIB:DRAW-ARC: emulating signature (8 1) WARNING: "clx.d":4028:XLIB:DRAW-GLYPH: emulating signature (5 0 &KEY) WARNING: "clx.d":4035:XLIB:DRAW-GLYPHS: emulating signature (5 0 &KEY) WARNING: "clx.d":4041:XLIB:DRAW-IMAGE-GLYPH: emulating signature (5 0 &KEY) WARNING: "clx.d":4046:XLIB:DRAW-IMAGE-GLYPHS: emulating signature (5 0 &KEY) WARNING: "clx.d":5408:XLIB:CHANGE-PROPERTY: emulating signature (5 0 &KEY) WARNING: "clx.d":6157:XLIB:QUEUE-EVENT: emulating signature (2 0 &ALLOW-OTHER-KEYS) WARNING: "clx.d":6253:XLIB:SEND-EVENT: emulating signature (3 0 &ALLOW-OTHER-KEYS) WARNING: "clx.d":6399:XLIB:WARP-POINTER-IF-INSIDE: emulating signature (6 2) WARNING: "clx.d":6419:XLIB:WARP-POINTER-RELATIVE-IF-INSIDE: emulating signature (5 2) ;; MODPREP: 543 objects, 410 DEFUNs (15 emulated), 1 DEFVAR (1 init) ;; packages: ("XPM" "XLIB") MODPREP: wrote clx.c (577,883 bytes) cc -I/usr/pkg/include -I/usr/include -I/usr/X11R7/include -O2 -march=i586 -I/usr/pkg/include -I/usr/include -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4 -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES -I. -fPIC -I/usr/X11R7/include -I/usr/pkg/lib/clisp/linkkit -c clx.c ./clx.f:1651:33: warning: unused parameter 'dpy' [-Wunused-parameter] static void get_color (Display *dpy, object color, XColor *result) ^ clx.d:1738:56: warning: unsequenced modification and access to 'STACK' [-Wunsequenced] { VALUES_IF(get_window (popSTACK()) == get_window (popSTACK())); } ~~~~~~~~~~ ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4098:28: note: expanded from macro 'popSTACK' #define popSTACK() (STACK -= 1, (STACK[-1-(sintP)(-1)])) ^ ./clx.f:978:80: note: expanded from macro 'get_window' #define get_window(obj) ((Window) get_xid_object (O(object_xlib__window), obj)) ^ ./clx.f:972:66: note: expanded from macro 'get_xid_object' #define get_xid_object(type,obj) get_xid_object_and_display(type,obj,0) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:350:43: note: expanded from macro 'VALUES_IF' #define VALUES_IF(C) do { mv_space[0] = (C) ? ((object)((UBYTE*)(&symbol_tab_data.S_t)+(1UL))) : ((object)((UBYTE*)(&symbol_tab_data.S_nil)+(1UL))); mv_count = 1; } while (0) ^ clx.d:1753:56: warning: unsequenced modification and access to 'STACK' [-Wunsequenced] { VALUES_IF(get_pixmap (popSTACK()) == get_pixmap (popSTACK())); } ~~~~~~~~~~ ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4098:28: note: expanded from macro 'popSTACK' #define popSTACK() (STACK -= 1, (STACK[-1-(sintP)(-1)])) ^ ./clx.f:979:80: note: expanded from macro 'get_pixmap' #define get_pixmap(obj) ((Pixmap) get_xid_object (O(object_xlib__pixmap), obj)) ^ ./clx.f:972:66: note: expanded from macro 'get_xid_object' #define get_xid_object(type,obj) get_xid_object_and_display(type,obj,0) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:350:43: note: expanded from macro 'VALUES_IF' #define VALUES_IF(C) do { mv_space[0] = (C) ? ((object)((UBYTE*)(&symbol_tab_data.S_t)+(1UL))) : ((object)((UBYTE*)(&symbol_tab_data.S_nil)+(1UL))); mv_count = 1; } while (0) ^ clx.d:1768:60: warning: unsequenced modification and access to 'STACK' [-Wunsequenced] { VALUES_IF(get_drawable (popSTACK()) == get_drawable (popSTACK())); } ~~~~~~~~~~ ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4098:28: note: expanded from macro 'popSTACK' #define popSTACK() (STACK -= 1, (STACK[-1-(sintP)(-1)])) ^ ./clx.f:982:80: note: expanded from macro 'get_drawable' #define get_drawable(obj) ((Drawable)get_xid_object (O(object_xlib__drawable), obj)) ^ ./clx.f:972:66: note: expanded from macro 'get_xid_object' #define get_xid_object(type,obj) get_xid_object_and_display(type,obj,0) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:350:43: note: expanded from macro 'VALUES_IF' #define VALUES_IF(C) do { mv_space[0] = (C) ? ((object)((UBYTE*)(&symbol_tab_data.S_t)+(1UL))) : ((object)((UBYTE*)(&symbol_tab_data.S_nil)+(1UL))); mv_count = 1; } while (0) ^ clx.d:1783:52: warning: unsequenced modification and access to 'STACK' [-Wunsequenced] { VALUES_IF(get_font (popSTACK()) == get_font (popSTACK())); } ~~~~~~~~~~ ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4098:28: note: expanded from macro 'popSTACK' #define popSTACK() (STACK -= 1, (STACK[-1-(sintP)(-1)])) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:350:43: note: expanded from macro 'VALUES_IF' #define VALUES_IF(C) do { mv_space[0] = (C) ? ((object)((UBYTE*)(&symbol_tab_data.S_t)+(1UL))) : ((object)((UBYTE*)(&symbol_tab_data.S_nil)+(1UL))); mv_count = 1; } while (0) ^ clx.d:1798:60: warning: unsequenced modification and access to 'STACK' [-Wunsequenced] { VALUES_IF(get_colormap (popSTACK()) == get_colormap (popSTACK())); } ~~~~~~~~~~ ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4098:28: note: expanded from macro 'popSTACK' #define popSTACK() (STACK -= 1, (STACK[-1-(sintP)(-1)])) ^ ./clx.f:981:80: note: expanded from macro 'get_colormap' #define get_colormap(obj) ((Colormap)get_xid_object (O(object_xlib__colormap), obj)) ^ ./clx.f:972:66: note: expanded from macro 'get_xid_object' #define get_xid_object(type,obj) get_xid_object_and_display(type,obj,0) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:350:43: note: expanded from macro 'VALUES_IF' #define VALUES_IF(C) do { mv_space[0] = (C) ? ((object)((UBYTE*)(&symbol_tab_data.S_t)+(1UL))) : ((object)((UBYTE*)(&symbol_tab_data.S_nil)+(1UL))); mv_count = 1; } while (0) ^ clx.d:1813:56: warning: unsequenced modification and access to 'STACK' [-Wunsequenced] { VALUES_IF(get_cursor (popSTACK()) == get_cursor (popSTACK())); } ~~~~~~~~~~ ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4098:28: note: expanded from macro 'popSTACK' #define popSTACK() (STACK -= 1, (STACK[-1-(sintP)(-1)])) ^ ./clx.f:980:80: note: expanded from macro 'get_cursor' #define get_cursor(obj) ((Cursor) get_xid_object (O(object_xlib__cursor), obj)) ^ ./clx.f:972:66: note: expanded from macro 'get_xid_object' #define get_xid_object(type,obj) get_xid_object_and_display(type,obj,0) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:350:43: note: expanded from macro 'VALUES_IF' #define VALUES_IF(C) do { mv_space[0] = (C) ? ((object)((UBYTE*)(&symbol_tab_data.S_t)+(1UL))) : ((object)((UBYTE*)(&symbol_tab_data.S_nil)+(1UL))); mv_count = 1; } while (0) ^ clx.d:1829:60: warning: unsequenced modification and access to 'STACK' [-Wunsequenced] { VALUES_IF(get_gcontext (popSTACK()) == get_gcontext (popSTACK())); } ~~~~~~~~~~ ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4098:28: note: expanded from macro 'popSTACK' #define popSTACK() (STACK -= 1, (STACK[-1-(sintP)(-1)])) ^ ./clx.f:975:80: note: expanded from macro 'get_gcontext' #define get_gcontext(obj) ((GC) get_ptr_object (O(object_xlib__gcontext), obj)) ^ ./clx.f:973:66: note: expanded from macro 'get_ptr_object' #define get_ptr_object(type,obj) get_ptr_object_and_display(type,obj,0) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:350:43: note: expanded from macro 'VALUES_IF' #define VALUES_IF(C) do { mv_space[0] = (C) ? ((object)((UBYTE*)(&symbol_tab_data.S_t)+(1UL))) : ((object)((UBYTE*)(&symbol_tab_data.S_nil)+(1UL))); mv_count = 1; } while (0) ^ ./clx.f:1760:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:MAKE-EVENT-MASK,&rest keys,(subr_xlib_make_event_mask,seclass_default,0,0,rest,nokey,0,NIL)) { ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :180:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:1769:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:MAKE-STATE-MASK, &rest args,(subr_xlib_make_state_mask,seclass_default,0,0,rest,nokey,0,NIL)) { ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :11:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:1835:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:OPEN-DISPLAY, host &allow-other-keys,(subr_xlib_open_display,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 1) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if ((argcount-1)%2) error_key_odd(argcount,TheSubr(subr_self)->name); ) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :11:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:2325:1: warning: unused parameter 'argcount' [-Wunused-parameter] DEFUN(XLIB:DISPLAY-TRACE, &rest args,(subr_xlib_display_trace,seclass_default,0,0,rest,nokey,0,NIL)) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :21:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:41: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:2325:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :21:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:3459:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:COPY-GCONTEXT-COMPONENTS, gc1 gc2 &rest rest,(subr_xlib_copy_gcontext_components,seclass_default,2,0,rest,nokey,0,NIL)) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :25:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:3605:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:COPY-AREA, source gcontext source-x source-y width height destination destination-x destination-y,(subr_xlib_copy_area,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 9) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if (argcount > 9) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too many arguments given to ~S")); } ) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :27:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:3625:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:COPY-PLANE, source gcontext plane source-x source-y width height destination destination-x destination-y,(subr_xlib_copy_plane,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 10) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if (argcount > 10) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too many arguments given to ~S")); } ) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :27:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:3694:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:DRAW-LINE, drawable gcontext x0 y0 x1 y1 &optional relative-p,(subr_xlib_draw_line,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 6) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if (argcount > 7) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too many arguments given to ~S")); } for (;argcount < 7; argcount++) pushSTACK(unbound); ) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :27:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:3780:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:DRAW-RECTANGLE, drawable gcontext x y width height &optional fill-p,(subr_xlib_draw_rectangle,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 6) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if (argcount > 7) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too many arguments given to ~S")); } for (;argcount < 7; argcount++) pushSTACK(unbound); ) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :27:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:3817:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:DRAW-ARC, drawable gcontext x y width height angle1 angle2 &optional fill-p,(subr_xlib_draw_arc,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 8) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if (argcount > 9) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too many arguments given to ~S")); } for (;argcount < 9; argcount++) pushSTACK(unbound); ) { ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :27:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:4028:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:DRAW-GLYPH, drawable gcontext x y element &key TRANSLATE :WIDTH :SIZE,(subr_xlib_draw_glyph,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 5) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if ((argcount-5)%2) error_key_odd(argcount,TheSubr(subr_self)->name); { uintC i; skipSTACK((-3)); for (i = 0; i 0; i -= 2) if (eq(STACK_(i-1),O(object_Ktranslate))) STACK_(argcount-5+2) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Kwidth))) STACK_(argcount-5+1) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Ksize))) STACK_(argcount-5+0) = STACK_(i-2); else error_key_badkw(TheSubr(subr_self)->name,STACK_(i-1),STACK_(i-2),O(object__28_translate_20_width_20_size_29)); skipSTACK(argcount-5); }) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :27:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:4035:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:DRAW-GLYPHS, drawable gcontext x y sequence &key :START :END TRANSLATE :WIDTH :SIZE,(subr_xlib_draw_glyphs,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 5) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if ((argcount-5)%2) error_key_odd(argcount,TheSubr(subr_self)->name); { uintC i; skipSTACK((-5)); for (i = 0; i 0; i -= 2) if (eq(STACK_(i-1),O(object_Kstart))) STACK_(argcount-5+4) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Kend))) STACK_(argcount-5+3) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Ktranslate))) STACK_(argcount-5+2) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Kwidth))) STACK_(argcount-5+1) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Ksize))) STACK_(argcount-5+0) = STACK_(i-2); else error_key_badkw(TheSubr(subr_self)->name,STACK_(i-1),STACK_(i-2),O(object__28_start_20_end_20_translate_20_width_20_size_29)); skipSTACK(argcount-5); }) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :14:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:4041:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:DRAW-IMAGE-GLYPH, drawable gcontext x y element &key TRANSLATE :WIDTH :SIZE,(subr_xlib_draw_image_glyph,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 5) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if ((argcount-5)%2) error_key_odd(argcount,TheSubr(subr_self)->name); { uintC i; skipSTACK((-3)); for (i = 0; i 0; i -= 2) if (eq(STACK_(i-1),O(object_Ktranslate))) STACK_(argcount-5+2) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Kwidth))) STACK_(argcount-5+1) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Ksize))) STACK_(argcount-5+0) = STACK_(i-2); else error_key_badkw(TheSubr(subr_self)->name,STACK_(i-1),STACK_(i-2),O(object__28_translate_20_width_20_size_29)); skipSTACK(argcount-5); }) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :18:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:4046:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:DRAW-IMAGE-GLYPHS, drawable gcontext x y sequence &key :START :END TRANSLATE :WIDTH :SIZE,(subr_xlib_draw_image_glyphs,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 5) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if ((argcount-5)%2) error_key_odd(argcount,TheSubr(subr_self)->name); { uintC i; skipSTACK((-5)); for (i = 0; i 0; i -= 2) if (eq(STACK_(i-1),O(object_Kstart))) STACK_(argcount-5+4) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Kend))) STACK_(argcount-5+3) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Ktranslate))) STACK_(argcount-5+2) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Kwidth))) STACK_(argcount-5+1) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Ksize))) STACK_(argcount-5+0) = STACK_(i-2); else error_key_badkw(TheSubr(subr_self)->name,STACK_(i-1),STACK_(i-2),O(object__28_start_20_end_20_translate_20_width_20_size_29)); skipSTACK(argcount-5); }) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :18:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:5408:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:CHANGE-PROPERTY, window property data type format &key MODE :START :END TRANSFORM,(subr_xlib_change_property,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 5) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if ((argcount-5)%2) error_key_odd(argcount,TheSubr(subr_self)->name); { uintC i; skipSTACK((-4)); for (i = 0; i 0; i -= 2) if (eq(STACK_(i-1),O(object_Kmode))) STACK_(argcount-5+3) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Kstart))) STACK_(argcount-5+2) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Kend))) STACK_(argcount-5+1) = STACK_(i-2); else if (eq(STACK_(i-1),O(object_Ktransform))) STACK_(argcount-5+0) = STACK_(i-2); else error_key_badkw(TheSubr(subr_self)->name,STACK_(i-1),STACK_(i-2),O(object__28_mode_20_start_20_end_20_transform_29)); skipSTACK(argcount-5); }) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :38:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:6157:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:QUEUE-EVENT, display event-key &allow-other-keys,(subr_xlib_queue_event,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 2) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if ((argcount-2)%2) error_key_odd(argcount,TheSubr(subr_self)->name); ) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :65:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:6253:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:SEND-EVENT, window event-key event-mask &allow-other-keys,(subr_xlib_send_event,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 3) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if ((argcount-3)%2) error_key_odd(argcount,TheSubr(subr_self)->name); ) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :67:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:6399:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:WARP-POINTER-IF-INSIDE, destination destination-x destination-y source source-x source-y &optional source-width source-height,(subr_xlib_warp_pointer_if_inside,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 6) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if (argcount > 8) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too many arguments given to ~S")); } for (;argcount < 8; argcount++) pushSTACK(unbound); ) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :67:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:6419:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:WARP-POINTER-RELATIVE-IF-INSIDE, x-offset y-offset source source-x source-y &optional source-width source-height,(subr_xlib_warp_pointer_relative_if_inside,seclass_default,0,0,rest,nokey,0,NIL){ if (argcount < 5) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too few arguments given to ~S")); } if (argcount > 7) { pushSTACK(TheSubr(subr_self)->name); error(program_error,GETTEXT("EVAL/APPLY: too many arguments given to ~S")); } for (;argcount < 7; argcount++) pushSTACK(unbound); ) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :67:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:7239:19: warning: 'XKeycodeToKeysym' is deprecated [-Wdeprecated-declarations] X_CALL(keysym = XKeycodeToKeysym (dpy, keycode, index); ^ ./clx.f:496:39: note: expanded from macro 'X_CALL' #define X_CALL(f) do{ begin_x_call(); f; end_x_call(); }while(0) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/include/X11/Xlib.h:1699:15: note: 'XKeycodeToKeysym' declared here extern KeySym XKeycodeToKeysym( ^ ./clx.f:7258:21: warning: 'XKeycodeToKeysym' is deprecated [-Wdeprecated-declarations] keysym = XKeycodeToKeysym (dpy, keycode, 0)); ^ ./clx.f:496:39: note: expanded from macro 'X_CALL' #define X_CALL(f) do{ begin_x_call(); f; end_x_call(); }while(0) ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/include/X11/Xlib.h:1699:15: note: 'XKeycodeToKeysym' declared here extern KeySym XKeycodeToKeysym( ^ ./clx.f:7399:1: warning: unused parameter 'rest_args_pointer' [-Wunused-parameter] DEFUN(XLIB:KEYSYM, keysym &rest bytes,(subr_xlib_keysym,seclass_default,1,0,rest,nokey,0,NIL)) { /* see mit-clx/translate.lisp */ ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4411:45: note: expanded from macro 'DEFUN' #define DEFUN(funname,lambdalist,signature) LISPFUN signature ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4396:18: note: expanded from macro 'LISPFUN' #define LISPFUN LISPFUN_B ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4392:154: note: expanded from macro 'LISPFUN_B' #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args ^ :16:1: note: expanded from here subr_rest_function_args ^ /usr/pkgsrc/work/x11/clisp-new-clx/work/.buildlink/lib/clisp/linkkit/clisp.h:4394:59: note: expanded from macro 'subr_rest_function_args' #define subr_rest_function_args (uintC argcount, object* rest_args_pointer) ^ ./clx.f:8451:46: warning: unused parameter 'module' [-Wunused-parameter] void module__clx__init_function_2 (module_t *module) ^ ./clx.f:9761:46: warning: unused parameter 'module' [-Wunused-parameter] void module__clx__init_function_1 (module_t* module) ^ ./clx.f:10002:44: warning: unused parameter 'module' [-Wunused-parameter] void module__clx__fini_function (module_t* module) ^ 34 warnings generated. => Unwrapping files-to-be-installed.