Hello.
I'm currently trying to compile the gtk bindings for CMUCL. I used to
compile them using CMUCL version 18c and now I'm using the latest
CVS version of CMUCL, but using this new version I got some error during
compilation.
The error is the following:
Error in batch processing:
FOREIGN-SYMBOL-ADDRESS must be qualified with :CODE or :DATA
make: *** [cl-gtk] Error 1
the source code that drops the error is this:
(progn
(setq
*callback-marshal*
(sap-to-pointer (system:foreign-symbol-address "callback_marshal")))
(setq
*destroy-marshal*
(sap-to-pointer (system:foreign-symbol-address "destroy_marshal"))))
The full output is attached.
Any ideas?
Thanks.
Gerardo Sarria.
-- Attached file included as plaintext by Listar --
-- File: out.txt
gcc `gtk-config --cflags` -I/usr/local/lib/cmucl/lib -g -O2 -DCMUCL -c ../src/cl-gtk.c
-o cl-gtk.o
/usr/local/bin/lisp -batch -eval '(setf (logical-pathname-translations "cl-gtk")
(quote (("obj;*.*.*" "/home/demo/omlinux/test/clg-0.51/cmucl/*.*.*") ("**;*.*.*"
"/home/demo/omlinux/test/clg-0.51/**/*.*.*"))))' -load ../tools/build.lisp -eval
'(quit)'
; Loading #p"/home/demo/omlinux/test/clg-0.51/tools/build.lisp".
;; Loading #p"/home/demo/omlinux/test/clg-0.51/tools/gendefpackage.lisp".
;; Loading #p"/home/demo/omlinux/test/clg-0.51/tools/buildtools.lisp".
;; Loading #p"/home/demo/omlinux/test/clg-0.51/gforeign-package.x86f".
;; Loading #p"/home/demo/omlinux/test/clg-0.51/linkgtk.x86f".
;;; Running /usr/bin/ld...
;;; Done.
;; Loading #p"/home/demo/omlinux/test/clg-0.51/glib-package.x86f".
;; Loading #p"/home/demo/omlinux/test/clg-0.51/gdk-package.x86f".
;; Loading #p"/home/demo/omlinux/test/clg-0.51/gtk-package.x86f".
; Byte Compiling Top-Level Form:
; Converted NULL-SAP.
; Compiling DEFUN NULL-SAP:
; Converted SAP-NULL-P.
; Compiling DEFUN SAP-NULL-P:
; Converted STRING-SPLIT.
; Compiling DEFUN STRING-SPLIT:
; Converted STRING-SPLIT-IF.
; Compiling DEFUN STRING-SPLIT-IF:
; Converted ENSURE-LIST.
; Compiling DEFUN ENSURE-LIST:
; Converted ENSURE-FIRST.
; Compiling DEFUN ENSURE-FIRST:
; Byte Compiling Top-Level Form:
; Converted NAMEP.
; Compiling DEFUN NAMEP:
; Converted PUSHEND.
; Compiling DEFINE-MODIFY-MACRO PUSHEND:
; Converted DECOMPOSE-QUALIFIED-NAME.
; Compiling DEFUN DECOMPOSE-QUALIFIED-NAME:
; Converted FIND-SYMBOL-FROM-QUALIFIED-NAME.
; Compiling DEFUN FIND-SYMBOL-FROM-QUALIFIED-NAME:
; Converted INTERN-FROM-QUALIFIED-NAME.
; Compiling DEFUN INTERN-FROM-QUALIFIED-NAME:
; Byte Compiling Top-Level Form:
; Converted WITH-PREFIX.
; Compiling DEFMACRO WITH-PREFIX:
; Byte Compiling Top-Level Form:
; Byte Compiling Top-Level Form:
; Byte Compiling Top-Level Form:
; Converted MAKE-TYPE-INFO.
; Compiling DEFSTRUCT TYPE-INFO:
; Converted GET-TYPE-INFO.
; Compiling DEFUN GET-TYPE-INFO:
; Converted TYPE-NAME.
; Compiling DEFUN TYPE-NAME:
; Converted TYPE-NUMBER.
; Compiling DEFUN TYPE-NUMBER:
; Converted TYPE-CTYPE.
; Compiling DEFUN TYPE-CTYPE:
; Converted SUPERTYPE.
; Compiling DEFUN SUPERTYPE:
; Converted TYPE-TO-ALIEN.
; Compiling DEFUN TYPE-TO-ALIEN:
; Converted TYPE-FROM-ALIEN.
; Compiling DEFUN TYPE-FROM-ALIEN:
; Converted TYPE-DEALLOC.
; Compiling DEFUN TYPE-DEALLOC:
; Byte Compiling Top-Level Form:
; Byte Compiling Creation Form for #<KERNEL::CLASS-CELL TYPE-INFO>:
; Converted TYPE-NUMBER-FROM-C-NAME.
; Compiling DEF-ALIEN-ROUTINE ("gtk_type_from_name" TYPE-NUMBER-FROM-C-NAME):
; Converted FIND-TYPE-FROM-C-NAME.
; Compiling DEFUN FIND-TYPE-FROM-C-NAME:
; Converted GTK-TYPE-NAME.
; Compiling DEF-ALIEN-ROUTINE GTK-TYPE-NAME:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEF-ALIEN-ROUTINE GTK-TYPE-NAME
; (DEF-ALIEN-ROUTINE GTK-TYPE-NAME C-STRING (TYPE TYPE-NUMBER))
; --> BLOCK WITH-ALIEN COMPILER-LET SYMBOL-MACROLET VALUES PROG1 LET
; --> ALIEN-FUNCALL ALIEN::NATURALIZE IF
; ==>
; (C-CALL::%NATURALIZE-C-STRING ALIEN)
; Note: Doing SAP to pointer coercion (cost 20).
;
; Converted TYPE-C-NAME.
; Compiling DEFUN TYPE-C-NAME:
; Converted FUNDAMENTAL-TYPE-NUMBER.
; Compiling DEFUN FUNDAMENTAL-TYPE-NUMBER:
; Converted FUNDAMENTAL-TYPE.
; Compiling DEFUN FUNDAMENTAL-TYPE:
; Converted COMPLETE-TYPE-INITIALIZATION.
; Compiling DEFUN COMPLETE-TYPE-INITIALIZATION:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN COMPLETE-TYPE-INITIALIZATION
; (FUNCALL FUNCTION C-NAME)
; --> C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Converted MAKE-C-TYPE-NAME.
; Compiling DEFUN MAKE-C-TYPE-NAME:
; Converted INITIALIZE-TYPE.
; Compiling DEFUN INITIALIZE-TYPE:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN INITIALIZE-TYPE
; (APPLY TYPE-INFO-MAKER :NAME NAME :SUPERTYPE ...)
; --> MULTIPLE-VALUE-CALL LET IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION #:OO-22)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; (FUNCALL INIT-FUNCTION C-NAME)
; --> C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Byte Compiling Top-Level Form:
; Converted DEFINE-TYPE.
; Compiling DEFMACRO DEFINE-TYPE:
; Byte Compiling Top-Level Form:
; Byte Compiling Top-Level Form:
; Compiling DEFTYPE POINTER:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFTYPE POINTER
; (DEFTYPE POINTER SYSTEM-AREA-POINTER)
; --> EVAL-WHEN COMMON-LISP::%DEFTYPE COMMON-LISP::%DEFTYPE FUNCTION BLOCK LET*
; ==>
; (LET* (#)
; )
; Note: Variable SYSTEM-AREA-POINTER defined but never used.
;
; Converted SAP-TO-POINTER.
; Compiling DEFUN SAP-TO-POINTER:
; Converted POINTER-TO-SAP.
; Compiling DEFUN POINTER-TO-SAP:
; Byte Compiling Top-Level Form:
; Converted CHOICE-TO-ALIEN.
; Compiling DEFMACRO CHOICE-TO-ALIEN:
; Byte Compiling Top-Level Form:
; Compiling DEFSTRUCT OBJECT:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFSTRUCT OBJECT
; (DEFSTRUCT (OBJECT # # #) (SAP NULL :TYPE SYSTEM-AREA-POINTER))
; --> PROGN WHEN COND IF IF PROGN DEFMETHOD PROGN PCL::LOAD-DEFMETHOD LIST*
; --> LAMBDA FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND LET FLET
; --> PCL::BIND-ARGS LET* BLOCK FUNCALL C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Converted PRINT-OBJECT-TYPE.
; Compiling DEFUN PRINT-OBJECT-TYPE:
; Byte Compiling Top-Level Form:
; Converted MAKE-OBJECT-TYPE-INFO.
; Compiling DEFSTRUCT OBJECT-TYPE-INFO:
; Byte Compiling Top-Level Form:
; Byte Compiling Creation Form for #<KERNEL::CLASS-CELL OBJECT-TYPE-INFO>:
; Converted MAKE-CONTAINER-TYPE-INFO.
; Compiling DEFSTRUCT CONTAINER-TYPE-INFO:
; Converted CONSTRUCTOR-NAME.
; Compiling DEFUN CONSTRUCTOR-NAME:
; Converted WRAPPER-NAME.
; Compiling DEFUN WRAPPER-NAME:
; Converted PREDICATE-NAME.
; Compiling DEFUN PREDICATE-NAME:
; Converted MAKE-C-PREFIX.
; Compiling DEFUN MAKE-C-PREFIX:
; Converted SLOT-ACCESSOR-NAME.
; Compiling DEFUN SLOT-ACCESSOR-NAME:
; Converted MAKE-READER-NAME.
; Compiling DEFUN MAKE-READER-NAME:
; Converted MAKE-WRITER-NAME.
; Compiling DEFUN MAKE-WRITER-NAME:
; Converted MAKE-ARG-NAME.
; Compiling DEFUN MAKE-ARG-NAME:
; Byte Compiling Top-Level Form:
; Byte Compiling Creation Form for #<KERNEL::CLASS-CELL CONTAINER-TYPE-INFO>:
; Converted CHILD-SLOT-ACCESSOR-NAME.
; Compiling DEFUN CHILD-SLOT-ACCESSOR-NAME:
; Converted MAKE-CHILD-READER-NAME.
; Compiling DEFUN MAKE-CHILD-READER-NAME:
; Converted MAKE-CHILD-WRITER-NAME.
; Compiling DEFUN MAKE-CHILD-WRITER-NAME:
; Converted MAKE-SLOT-ACCESSORS.
; Compiling DEFUN MAKE-SLOT-ACCESSORS:
; Converted DEFINE-CLASS.
; Compiling DEFMACRO DEFINE-CLASS:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFMACRO DEFINE-CLASS
; (CONCATENATE 'STRING C-PREFIX "get_type")
; ==>
; (LET* (# # #)
; (DECLARE #)
; (LET #
; #
; #) ..)
; Note: Doing unsigned word to integer coercion (cost 20), for:
; The first argument of CHECK-FIXNUM.
;
; --> LET* MAKE-STRING MAKE-ARRAY THE TRUNCATE IF VALUES
; ==>
; (ASH C::X -3)
; Note: Doing signed word to integer coercion (cost 20), for:
; The first argument of CHECK-FIXNUM.
;
; Converted GTK-OBJECT-TYPE.
; Compiling DEF-ALIEN-ROUTINE GTK-OBJECT-TYPE:
; Converted TYPE-OF-OBJECT.
; Compiling DEFUN TYPE-OF-OBJECT:
; Converted SAP-TO-OJECT.
; Compiling DEFUN SAP-TO-OJECT:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN SAP-TO-OJECT
; (FUNCALL (OBJECT-TYPE-INFO-WRAPPER TYPE-INFO) :SAP SAP)
; --> C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Byte Compiling Top-Level Form:
; Converted OBJECT-TO-SAP.
; Compiling DEFUN OBJECT-TO-SAP:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN OBJECT-TO-SAP
; (TYPEP OBJECT TYPE)
; Note: Unable to optimize because:
; Can't open-code test of non-constant type.
;
; Converted OBJECT-SLOTS.
; Compiling DEFUN OBJECT-SLOTS:
; Converted FIND-SLOT-DEFINITION.
; Compiling DEFUN FIND-SLOT-DEFINITION:
; Converted CONTAINER-CHILD-SLOTS.
; Compiling DEFUN CONTAINER-CHILD-SLOTS:
; Converted FIND-CHILD-SLOT-DEFINITION.
; Compiling DEFUN FIND-CHILD-SLOT-DEFINITION:
; Converted FIND-OBJECT-READER.
; Compiling DEFUN FIND-OBJECT-READER:
; Converted FIND-OBJECT-WRITER.
; Compiling DEFUN FIND-OBJECT-WRITER:
; Converted FIND-OBJECT-INITIALIZER.
; Compiling DEFUN FIND-OBJECT-INITIALIZER:
; Converted OBJECT-SLOT-VALUE.
; Compiling DEFUN OBJECT-SLOT-VALUE:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN OBJECT-SLOT-VALUE
; (FUNCALL READER OBJECT)
; --> C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Converted (SETF OBJECT-SLOT-VALUE).
; Compiling DEFUN (SETF OBJECT-SLOT-VALUE):
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN (SETF OBJECT-SLOT-VALUE)
; (FUNCALL WRITER OBJECT VALUE)
; --> C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Converted FIND-CONTAINER-CHILD-READER.
; Compiling DEFUN FIND-CONTAINER-CHILD-READER:
; Byte Compiling Top-Level Form:
; Converted FIND-CONTAINER-CHILD-WRITER.
; Compiling DEFUN FIND-CONTAINER-CHILD-WRITER:
; Converted FIND-CONTAINER-CHILD-INITIALIZER.
; Compiling DEFUN FIND-CONTAINER-CHILD-INITIALIZER:
; Converted CONTAINER-CHILD-SLOT-VALUE.
; Compiling DEFUN CONTAINER-CHILD-SLOT-VALUE:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN CONTAINER-CHILD-SLOT-VALUE
; (FUNCALL READER OBJECT)
; --> C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Converted (SETF CONTAINER-CHILD-SLOT-VALUE).
; Compiling DEFUN (SETF CONTAINER-CHILD-SLOT-VALUE):
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN (SETF CONTAINER-CHILD-SLOT-VALUE)
; (FUNCALL WRITER OBJECT VALUE)
; --> C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Converted INITIALIZE-OBJECT.
; Compiling DEFUN INITIALIZE-OBJECT:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN INITIALIZE-OBJECT
; (FUNCALL INITIALIZER OBJECT VALUE)
; --> C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
; ; [Last message occurs 2 times]
; Converted MAKE-OBJECT.
; Compiling DEFUN MAKE-OBJECT:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN MAKE-OBJECT
; (SAP-TO-OJECT SAP CLASS)
; --> BLOCK UNLESS COND IF PROGN IF LET FUNCALL C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Byte Compiling Top-Level Form:
; Compiling DEFSTRUCT BOXED:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFSTRUCT BOXED
; (DEFSTRUCT (BOXED # # #) (SAP NULL :TYPE SYSTEM-AREA-POINTER))
; --> PROGN WHEN COND IF IF PROGN DEFMETHOD PROGN PCL::LOAD-DEFMETHOD LIST*
; --> LAMBDA FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND LET FLET
; --> PCL::BIND-ARGS LET* BLOCK FUNCALL C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Converted PRINT-BOXED.
; Compiling DEFUN PRINT-BOXED:
; Byte Compiling Top-Level Form:
; Converted MAKE-BOXED-TYPE-INFO.
; Compiling DEFSTRUCT BOXED-TYPE-INFO:
; Converted DEFINE-BOXED.
; Compiling DEFMACRO DEFINE-BOXED:
; Converted SAP-TO-BOXED.
; Compiling DEFUN SAP-TO-BOXED:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN SAP-TO-BOXED
; (FUNCALL (BOXED-TYPE-INFO-WRAPPER TYPE-INFO) :SAP SAP)
; --> C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Converted BOXED-TO-SAP.
; Compiling DEFUN BOXED-TO-SAP:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN BOXED-TO-SAP
; (TYPEP BOXED TYPE)
; Note: Unable to optimize because:
; Can't open-code test of non-constant type.
;
; Byte Compiling Top-Level Form:
; Byte Compiling Creation Form for #<KERNEL::CLASS-CELL BOXED-TYPE-INFO>:
; Byte Compiling Top-Level Form:
; Converted MAKE-ENUM-TYPE-INFO.
; Compiling DEFSTRUCT ENUM-TYPE-INFO:
; Converted INITIALIZE-ENUM-TYPE.
; Compiling DEFUN INITIALIZE-ENUM-TYPE:
; Converted ENUM-INT.
; Compiling DEFUN ENUM-INT:
; Converted INT-ENUM.
; Compiling DEFUN INT-ENUM:
; Converted %ENUM-VALUE.
; Compiling DEF-ALIEN-ROUTINE ("gtk_enum_value" %ENUM-VALUE):
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEF-ALIEN-ROUTINE ("gtk_enum_value" %ENUM-VALUE)
; (DEF-ALIEN-ROUTINE ("gtk_enum_value" %ENUM-VALUE)
; UNSIGNED-INT
; (TYPE TYPE-NUMBER)
; (STRING C-STRING))
; Note: Doing unsigned word to integer coercion (cost 20) to "<return value>".
;
; Converted STRING-TO-ENUM.
; Compiling DEFUN STRING-TO-ENUM:
; Converted DEFINE-ENUM.
; Compiling DEFMACRO DEFINE-ENUM:
; Converted INITIALIZE-FLAGS-TYPE.
; Compiling DEFUN INITIALIZE-FLAGS-TYPE:
; Byte Compiling Top-Level Form:
; Byte Compiling Creation Form for #<KERNEL::CLASS-CELL ENUM-TYPE-INFO>:
; Converted FLAGS-INT.
; Compiling DEFUN FLAGS-INT:
; Converted INT-FLAGS.
; Compiling DEFUN INT-FLAGS:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN INT-FLAGS
; (LOGAND INT (CDR MAPPING))
; Note: Forced to do static-function Two-arg-and (cost 53).
; Unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (UNSIGNED-BYTE 32), not a FIXNUM.
; Unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The second argument is a INTEGER, not a (SIGNED-BYTE 32).
; etc.
;
; Converted DEFINE-FLAGS.
; Compiling DEFMACRO DEFINE-FLAGS:
; Converted GTK-ARG-NEW.
; Compiling DEF-ALIEN-ROUTINE GTK-ARG-NEW:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEF-ALIEN-ROUTINE GTK-ARG-NEW
; (DEF-ALIEN-ROUTINE GTK-ARG-NEW ARG (TYPE TYPE-NUMBER))
; Note: Doing SAP to pointer coercion (cost 20) to "<return value>".
;
; Converted GTK-ARG-FREE.
; Compiling DEF-ALIEN-ROUTINE GTK-ARG-FREE:
; Converted GTK-ARG-ARRAY-NEW.
; Compiling DEF-ALIEN-ROUTINE GTK-ARG-ARRAY-NEW:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEF-ALIEN-ROUTINE GTK-ARG-ARRAY-NEW
; (DEF-ALIEN-ROUTINE GTK-ARG-ARRAY-NEW ARG (LENGTH INT))
; Note: Doing SAP to pointer coercion (cost 20) to "<return value>".
;
; Converted GTK-ARG-ARRAY-FREE.
; Compiling DEF-ALIEN-ROUTINE GTK-ARG-ARRAY-FREE:
; Converted GTK-ARG-ARRAY-REF.
; Compiling DEF-ALIEN-ROUTINE GTK-ARG-ARRAY-REF:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEF-ALIEN-ROUTINE GTK-ARG-ARRAY-REF
; (DEF-ALIEN-ROUTINE GTK-ARG-ARRAY-REF ARG (ARG-ARRAY ARG) (INDEX INT))
; Note: Doing SAP to pointer coercion (cost 20) to "<return value>".
;
; Converted GTK-ARG-GET-TYPE.
; Compiling DEF-ALIEN-ROUTINE GTK-ARG-GET-TYPE:
; Byte Compiling Top-Level Form:
; Converted GTK-ARG-SET-TYPE.
; Compiling DEF-ALIEN-ROUTINE GTK-ARG-SET-TYPE:
; Converted GTK-ARG-GET-NAME.
; Compiling DEF-ALIEN-ROUTINE GTK-ARG-GET-NAME:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEF-ALIEN-ROUTINE GTK-ARG-GET-NAME
; (DEF-ALIEN-ROUTINE GTK-ARG-GET-NAME C-STRING (ARG ARG))
; --> BLOCK WITH-ALIEN COMPILER-LET SYMBOL-MACROLET VALUES PROG1 LET
; --> ALIEN-FUNCALL ALIEN::NATURALIZE IF
; ==>
; (C-CALL::%NATURALIZE-C-STRING ALIEN)
; Note: Doing SAP to pointer coercion (cost 20).
;
; Converted GTK-ARG-SET-NAME.
; Compiling DEF-ALIEN-ROUTINE GTK-ARG-SET-NAME:
; Converted GTK-ARG-DATA.
; Compiling DEF-ALIEN-ROUTINE GTK-ARG-DATA:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEF-ALIEN-ROUTINE GTK-ARG-DATA
; (DEF-ALIEN-ROUTINE GTK-ARG-DATA C-POINTER (ARG ARG))
; --> BLOCK WITH-ALIEN COMPILER-LET SYMBOL-MACROLET VALUES PROG1 LET
; --> ALIEN-FUNCALL ALIEN::NATURALIZE
; ==>
; (ALIEN::%SAP-ALIEN ALIEN '#<ALIEN::ALIEN-POINTER-TYPE #>)
; Note: Unable to optimize because:
; Could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure.
;
; Note: Doing SAP to pointer coercion (cost 20).
;
; Converted GTK-ARG-RET-DATA.
; Compiling DEF-ALIEN-ROUTINE GTK-ARG-RET-DATA:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEF-ALIEN-ROUTINE GTK-ARG-RET-DATA
; (DEF-ALIEN-ROUTINE GTK-ARG-RET-DATA C-POINTER (ARG ARG))
; --> BLOCK WITH-ALIEN COMPILER-LET SYMBOL-MACROLET VALUES PROG1 LET
; --> ALIEN-FUNCALL ALIEN::NATURALIZE
; ==>
; (ALIEN::%SAP-ALIEN ALIEN '#<ALIEN::ALIEN-POINTER-TYPE #>)
; Note: Unable to optimize because:
; Could not optimize away %SAP-ALIEN: forced to do runtime
; allocation of alien-value structure.
;
; Note: Doing SAP to pointer coercion (cost 20).
;
; Converted ARG-TO-LISP.
; Compiling DEFUN ARG-TO-LISP:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN ARG-TO-LISP
; (SAP-TO-OJECT (DEREF #) TYPE)
; --> BLOCK UNLESS COND IF PROGN IF LET FUNCALL C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; (SAP-TO-BOXED (DEREF #) TYPE)
; --> BLOCK UNLESS COND IF PROGN IF LET FUNCALL C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; (DEREF (CAST DATA #))
; --> ALIEN::EXTRACT-ALIEN-VALUE ALIEN::NATURALIZE
; ==>
; (SAP-REF-SAP ALIEN::SAP (/ ALIEN::OFFSET X86:BYTE-BITS))
; Note: Doing SAP to pointer coercion (cost 20), for:
; The first result of SAP-REF-SAP-C.
;
; (SAP-TO-POINTER (DEREF #) TYPE)
; --> BLOCK
; ==>
; SAP
; Note: Doing SAP to pointer coercion (cost 20) to "<return value>".
;
; (DEREF (CAST DATA #))
; --> ALIEN::EXTRACT-ALIEN-VALUE ALIEN::NATURALIZE
; ==>
; (SAP-REF-SAP ALIEN::SAP (/ ALIEN::OFFSET X86:BYTE-BITS))
; Note: Doing SAP to pointer coercion (cost 20), for:
; The first result of SAP-REF-SAP-C.
;
; (INT-FLAGS (DEREF #) TYPE)
; Note: Doing signed word to integer coercion (cost 20).
;
; (INT-ENUM (DEREF #) TYPE)
; Note: Doing signed word to integer coercion (cost 20).
;
; (DEREF (CAST DATA #))
; --> ALIEN::EXTRACT-ALIEN-VALUE ALIEN::NATURALIZE IF
; ==>
; (C-CALL::%NATURALIZE-C-STRING ALIEN)
; Note: Doing SAP to pointer coercion (cost 20).
;
; --> ALIEN::EXTRACT-ALIEN-VALUE ALIEN::NATURALIZE
; ==>
; ALIEN
; Note: Doing float to pointer coercion (cost 13) to "<return value>".
; ; [Last message occurs 2 times]
; Note: Doing unsigned word to integer coercion (cost 20) to "<return value>".
;
; Note: Doing signed word to integer coercion (cost 20) to "<return value>".
;
; Note: Doing unsigned word to integer coercion (cost 20) to "<return value>".
;
; Note: Doing signed word to integer coercion (cost 20) to "<return value>".
;
; Converted LISP-TO-ARG.
; Compiling DEFUN LISP-TO-ARG:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN LISP-TO-ARG
; (COERCE VALUE 'DOUBLE-FLOAT)
; --> THE
; ==>
; (KERNEL:%DOUBLE-FLOAT C::N)
; Note: Unable to optimize due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; (COERCE VALUE 'SINGLE-FLOAT)
; --> THE
; ==>
; (KERNEL:%SINGLE-FLOAT C::N)
; Note: Unable to optimize due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; Note: Forced to do full call.
; Unable to do inline float coercion (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; Unable to do inline float coercion (cost 5) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; etc.
;
; (COERCE VALUE 'DOUBLE-FLOAT)
; --> THE
; ==>
; (KERNEL:%DOUBLE-FLOAT C::N)
; Note: Forced to do full call.
; Unable to do inline float coercion (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; Unable to do inline float coercion (cost 5) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; etc.
;
; (SETF (DEREF #) VALUE)
; --> LET* MULTIPLE-VALUE-BIND LET ALIEN::%SET-DEREF ALIEN::DEPOSIT-ALIEN-VALUE
; --> LET ALIEN::NATURALIZE IF
; ==>
; (C-CALL::%NATURALIZE-C-STRING ALIEN)
; Note: Doing SAP to pointer coercion (cost 20).
;
; Converted LISP-TO-RET-ARG.
; Compiling DEFUN LISP-TO-RET-ARG:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN LISP-TO-RET-ARG
; (COERCE VALUE 'DOUBLE-FLOAT)
; --> THE
; ==>
; (KERNEL:%DOUBLE-FLOAT C::N)
; Note: Unable to optimize due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; (COERCE VALUE 'SINGLE-FLOAT)
; --> THE
; ==>
; (KERNEL:%SINGLE-FLOAT C::N)
; Note: Unable to optimize due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; Note: Forced to do full call.
; Unable to do inline float coercion (cost 2) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; Unable to do inline float coercion (cost 5) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; etc.
;
; (COERCE VALUE 'DOUBLE-FLOAT)
; --> THE
; ==>
; (KERNEL:%DOUBLE-FLOAT C::N)
; Note: Forced to do full call.
; Unable to do inline float coercion (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; Unable to do inline float coercion (cost 5) because:
; The first argument is a REAL, not a (SIGNED-BYTE 32).
; etc.
;
; (SETF (DEREF #) (FLAGS-INT VALUE TYPE))
; --> LET* MULTIPLE-VALUE-BIND LET ALIEN::%SET-DEREF ALIEN::DEPOSIT-ALIEN-VALUE
; --> LET ALIEN::NATURALIZE
; ==>
; ALIEN
; Note: Doing signed word to integer coercion (cost 20) to "<return value>".
;
; (SETF (DEREF #) (ENUM-INT VALUE TYPE))
; --> LET* MULTIPLE-VALUE-BIND LET ALIEN::%SET-DEREF ALIEN::DEPOSIT-ALIEN-VALUE
; --> LET ALIEN::NATURALIZE
; ==>
; ALIEN
; Note: Doing signed word to integer coercion (cost 20) to "<return value>".
;
; (SETF (DEREF #) VALUE)
; --> LET* MULTIPLE-VALUE-BIND LET ALIEN::%SET-DEREF ALIEN::DEPOSIT-ALIEN-VALUE
; --> LET ALIEN::NATURALIZE IF
; ==>
; (C-CALL::%NATURALIZE-C-STRING ALIEN)
; Note: Doing SAP to pointer coercion (cost 20).
;
; --> LET* MULTIPLE-VALUE-BIND LET ALIEN::%SET-DEREF ALIEN::DEPOSIT-ALIEN-VALUE
; --> LET ALIEN::NATURALIZE
; ==>
; ALIEN
; Note: Doing unsigned word to integer coercion (cost 20) to "<return value>".
;
; Note: Doing signed word to integer coercion (cost 20) to "<return value>".
;
; Note: Doing unsigned word to integer coercion (cost 20) to "<return value>".
;
; Note: Doing signed word to integer coercion (cost 20) to "<return value>".
;
; Converted GTK-OBJECT-ARG-GET.
; Compiling DEF-ALIEN-ROUTINE GTK-OBJECT-ARG-GET:
; Byte Compiling Top-Level Form:
; Converted GTK-OBJECT-ARG-SET.
; Compiling DEF-ALIEN-ROUTINE GTK-OBJECT-ARG-SET:
; Converted GTK-CONTAINER-ARG-GET.
; Compiling DEF-ALIEN-ROUTINE GTK-CONTAINER-ARG-GET:
; Converted GTK-CONTAINER-ARG-SET.
; Compiling DEF-ALIEN-ROUTINE GTK-CONTAINER-ARG-SET:
; Converted GET-OBJECT-ARG.
; Compiling DEFUN GET-OBJECT-ARG:
; Converted SET-OBJECT-ARG.
; Compiling DEFUN SET-OBJECT-ARG:
; Byte Compiling Top-Level Form:
; Converted GET-CONTAINER-CHILD-ARG.
; Compiling DEFUN GET-CONTAINER-CHILD-ARG:
; Converted SET-CONTAINER-CHILD-ARG.
; Compiling DEFUN SET-CONTAINER-CHILD-ARG:
; Converted GTK-TYPE-NEW.
; Compiling DEF-ALIEN-ROUTINE GTK-TYPE-NEW:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEF-ALIEN-ROUTINE GTK-TYPE-NEW
; (DEF-ALIEN-ROUTINE GTK-TYPE-NEW SYSTEM-AREA-POINTER (TYPE TYPE-NUMBER))
; Note: Doing SAP to pointer coercion (cost 20) to "<return value>".
;
; Converted GTK-OBJECT-FINISH-CONSTRUCTION.
; Compiling DEF-ALIEN-ROUTINE GTK-OBJECT-FINISH-CONSTRUCTION:
; Converted MAKE-C-FUNC-NAME.
; Compiling DEFUN MAKE-C-FUNC-NAME:
; Converted TRANSLATE-TO-ALIEN.
; Compiling DEFUN TRANSLATE-TO-ALIEN:
; Converted TRANSLATE-FROM-ALIEN.
; Compiling DEFUN TRANSLATE-FROM-ALIEN:
; Converted DEFINE-FOREIGN.
; Compiling DEFMACRO DEFINE-FOREIGN:
; Converted %DEFINE-FOREIGN.
; Compiling DEFUN %DEFINE-FOREIGN:
; Byte Compiling Top-Level Form:
; Converted REGISTER-USER-DATA.
; Compiling DEFUN REGISTER-USER-DATA:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN REGISTER-USER-DATA
; (SETQ *USER-DATA-COUNT* (THE FIXNUM #))
; Note: Doing signed word to integer coercion (cost 20), for:
; The first argument of CHECK-FIXNUM.
;
; Converted FIND-USER-DATA.
; Compiling DEFUN FIND-USER-DATA:
; Byte Compiling Top-Level Form:
; Converted REGISTER-CALLBACK-FUNCTION.
; Compiling DEFUN REGISTER-CALLBACK-FUNCTION:
; Converted CALLBACK-TRAMPOLINE.
; Compiling DEFUN CALLBACK-TRAMPOLINE:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN CALLBACK-TRAMPOLINE
; (APPLY CALLBACK-FUNCTION LISP-ARGS)
; --> MULTIPLE-VALUE-CALL LET IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION #:OO-17)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; (FORMAT *QUERY-IO* "Enter return value of type ~S: " RETURN-TYPE)
; ==>
; (FORMAT C::DEST (FORMATTER "Enter return value of type ~S: ") #:G46)
; Note: Unable to optimize due to type uncertainty:
; The first argument is a (OR BASE-STRING
; STREAM
; (MEMBER NIL T)), not a STREAM.
;
; Note: Unable to optimize due to type uncertainty:
; The first argument is a (OR BASE-STRING
; STREAM
; (MEMBER NIL T)), not a (MEMBER T).
;
; Converted DESTROY-USER-DATA.
; Compiling DEFUN DESTROY-USER-DATA:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN DESTROY-USER-DATA
; (FUNCALL (CDR USER-DATA) (CAR USER-DATA))
; --> C::%FUNCALL IF
; ==>
; (KERNEL:%COERCE-TO-FUNCTION FUNCTION)
; Note: Unable to optimize because:
; Might be a symbol, so must call FDEFINITION at runtime.
;
; Converted GTK-INIT.
; Compiling DEF-ALIEN-ROUTINE GTK-INIT:
; Converted AFTER-GC-HOOK.
; Compiling DEFUN AFTER-GC-HOOK:
;
;
; File: /home/demo/omlinux/test/clg-0.51/src/gforeign.lisp
; In: DEFUN AFTER-GC-HOOK
; (DEFUN AFTER-GC-HOOK () (SETF # # # #))
; Note: Doing unsigned word to integer coercion (cost 20) to "<return value>".
;
; Byte Compiling Top-Level Form:
; Converted INTERACTIVE-EVAL.
; Compiling DEFUN INTERACTIVE-EVAL:
; Compiling Top-Level Form:
; Converted INIT.
; Compiling DEFUN INIT:
; Compilation unit aborted.
; 1 fatal error
; 67 notes
Error in batch processing:
FOREIGN-SYMBOL-ADDRESS must be qualified with :CODE or :DATA
make: *** [cl-gtk] Error 1
