[cl-objc-devel] Re: Unknown CFFI type: OBJC-CFFI:OBJC-SEL.
Raffael Cavallaro
raffaelcavallaro at mac.com
Tue May 20 19:41:14 UTC 2008
On May 20, 2008, at 3:09 PM, Jean-Philippe Barette-LaPierre wrote:
> Have you cleaned the previous compiled fasl?
I get a similar error relating to OBJC-CFFI:OBJC-SEL being an unknown
CFFI type with no previous fasls.
> Which version of CFFI are you using?
0.9.2 from asdf-install
Here is the whole session including the full backtrace with no
existing fasls for either cl-objc or cffi:
CL-USER> (asdf:oos 'asdf:load-op :cl-objc)
; loading system definition from /Users/raffaelc/.sbcl/systems/cl-
objc.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM CL-OBJC {11C42C99}> as CL-OBJC
; registering #<SYSTEM CL-OBJC.EXAMPLES.HELLO-WORLD {11D59C21}> as
; CL-OBJC.EXAMPLES.HELLO-WORLD
; registering #<SYSTEM CL-OBJC.EXAMPLES.CONVERTER {11F12181}> as
; CL-OBJC.EXAMPLES.CONVERTER
; registering #<SYSTEM CL-OBJC.EXAMPLES.CIRCLE-VIEW {120CD451}> as
; CL-OBJC.EXAMPLES.CIRCLE-VIEW
; registering #<SYSTEM CL-OBJC.DOC {122C82D1}> as CL-OBJC.DOC
; registering #<SYSTEM CL-OBJC.TEST {11D1EE91}> as CL-OBJC.TEST
; loading system definition from /Users/raffaelc/.sbcl/systems/
memoize.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM MEMOIZE {11F18B01}> as MEMOIZE
; loading system definition from
; /Users/raffaelc/.sbcl/systems/closer-mop.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM #:CLOSER-MOP {120409A1}> as CLOSER-MOP
; loading system definition from
; /Users/raffaelc/.sbcl/systems/lw-compat.asd into #<PACKAGE "ASDF0">
; registering #<SYSTEM #:LW-COMPAT {1216AC51}> as LW-COMPAT
; loading system definition from /Users/raffaelc/.sbcl/systems/yacc.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM #:YACC {122C39E1}> as YACC
; loading system definition from /Users/raffaelc/.sbcl/systems/cffi.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM CFFI {12414431}> as CFFI
; compiling file "/Users/raffaelc/.sbcl/site/cffi_0.9.2/src/
utils.lisp" (written 08 SEP 2006 04:56:43 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:CFFI-UTILS ...)
; compiling (IN-PACKAGE #:CFFI-UTILS)
; compiling (DEFMACRO POST-INCF ...)
; compiling (DEFUN MKLIST ...)
; compiling (DEFMACRO DISCARD-DOCSTRING ...)
; compiling (DEFUN PARSE-BODY ...)
; compiling (DEFMACRO LET-WHEN ...)
; compiling (DEFMACRO BIF ...)
; compiling (DEFUN STARTS-WITH ...)
; compiling (DEFUN SIDE-EFFECT-FREE? ...)
; compiling (DEFMACRO ONCE-ONLY ...)
; compiling (DEFMACRO WITH-UNIQUE-NAMES ...)
; compiling (DEFUN MAKE-GENSYM-LIST ...)
; compiling (DEFUN SYMBOLICATE ...)
; compiling (DEFUN SINGLE-BIT-P ...)
; /Users/raffaelc/.sbcl/site/cffi_0.9.2/src/utils.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cffi_0.9.2/src/
features.lisp" (written 08 SEP 2006 04:56:43 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (PUSHNEW :CFFI ...)
; compiling (DEFPACKAGE #:CFFI-FEATURES ...)
; /Users/raffaelc/.sbcl/site/cffi_0.9.2/src/features.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cffi_0.9.2/src/cffi-
sbcl.lisp" (written 08 SEP 2006 04:56:43 PM):
; compiling (DEFPACKAGE #:CFFI-SYS ...)
; compiling (IN-PACKAGE #:CFFI-SYS)
; compiling (MAPC (LAMBDA # ...) ...)
; compiling (DEFUN CANONICALIZE-SYMBOL-NAME-CASE ...)
; compiling (DEFUN POINTERP ...)
; compiling (DEFUN POINTER-EQ ...)
; compiling (DEFUN NULL-POINTER ...)
; compiling (DEFUN NULL-POINTER-P ...)
; compiling (DEFUN INC-POINTER ...)
; compiling (DEFUN MAKE-POINTER ...)
; compiling (DEFUN POINTER-ADDRESS ...)
; compiling (DEFUN %FOREIGN-ALLOC ...)
; compiling (DEFUN FOREIGN-FREE ...)
; compiling (DEFMACRO WITH-FOREIGN-POINTER ...)
; compiling (DEFUN MAKE-SHAREABLE-BYTE-VECTOR ...)
; compiling (DEFMACRO WITH-POINTER-TO-VECTOR-DATA ...)
; compiling (DEFMACRO DEFINE-MEM-ACCESSORS ...)
; compiling (DEFINE-MEM-ACCESSORS (:CHAR SB-SYS:SIGNED-SAP-REF-8) ...)
; compiling (DEFUN CONVERT-FOREIGN-TYPE ...)
; compiling (DEFUN %FOREIGN-TYPE-SIZE ...)
; compiling (DEFUN %FOREIGN-TYPE-ALIGNMENT ...)
; compiling (DEFUN FOREIGN-FUNCALL-TYPE-AND-ARGS ...)
; compiling (DEFMACRO %%FOREIGN-FUNCALL ...)
; compiling (DEFMACRO %FOREIGN-FUNCALL ...)
; compiling (DEFMACRO %FOREIGN-FUNCALL-POINTER ...)
; compiling (DEFVAR *CALLBACKS* ...)
; compiling (DEFMACRO %DEFCALLBACK ...)
; compiling (DEFUN %CALLBACK ...)
; compiling (DEFUN %LOAD-FOREIGN-LIBRARY ...)
; compiling (DEFUN %CLOSE-FOREIGN-LIBRARY ...)
; compiling (DEFUN FOREIGN-SYMBOL-POINTER ...)
; compiling (DEFUN FINALIZE ...)
; compiling (DEFUN CANCEL-FINALIZATION ...)
; /Users/raffaelc/.sbcl/site/cffi_0.9.2/src/cffi-sbcl.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cffi_0.9.2/src/
package.lisp" (written 08 SEP 2006 04:56:43 PM):
; compiling (IN-PACKAGE #:CL-USER)
; compiling (DEFPACKAGE #:CFFI ...)
; /Users/raffaelc/.sbcl/site/cffi_0.9.2/src/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cffi_0.9.2/src/
libraries.lisp" (written 08 SEP 2006 04:56:43 PM):
; compiling (IN-PACKAGE #:CFFI)
; compiling (DEFVAR *FOREIGN-LIBRARY-DIRECTORIES* ...)
; compiling (DEFVAR *DARWIN-FRAMEWORK-DIRECTORIES* ...)
; compiling (DEFUN MINI-EVAL ...)
; compiling (DEFUN FIND-FILE ...)
; compiling (DEFUN FIND-DARWIN-FRAMEWORK ...)
; compiling (DEFVAR *FOREIGN-LIBRARIES* ...)
; compiling (DEFUN GET-FOREIGN-LIBRARY ...)
; compiling (DEFUN (SETF GET-FOREIGN-LIBRARY) ...)
; compiling (DEFMACRO DEFINE-FOREIGN-LIBRARY ...)
; compiling (DEFUN CFFI-FEATURE-P ...)
; compiling (DEFINE-CONDITION LOAD-FOREIGN-LIBRARY-ERROR ...)
; compiling (DEFUN READ-NEW-VALUE ...)
; compiling (DEFUN HANDLE-LOAD-FOREIGN-LIBRARY-ERROR ...)
; compiling (DEFUN LOAD-DARWIN-FRAMEWORK ...)
; compiling (DEFUN LOAD-FOREIGN-LIBRARY-NAME ...)
; compiling (DEFUN TRY-FOREIGN-LIBRARY-ALTERNATIVES ...)
; compiling (DEFPARAMETER *CFFI-FEATURE-SUFFIX-MAP* ...)
; compiling (DEFUN DEFAULT-LIBRARY-SUFFIX ...)
; compiling (DEFUN LOAD-FOREIGN-LIBRARY ...)
; compiling (DEFMACRO USE-FOREIGN-LIBRARY ...)
; compiling (DEFUN CLOSE-FOREIGN-LIBRARY ...)
; /Users/raffaelc/.sbcl/site/cffi_0.9.2/src/libraries.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cffi_0.9.2/src/early-
types.lisp" (written 08 SEP 2006 04:56:43 PM):
; compiling (IN-PACKAGE #:CFFI)
; compiling (DEFVAR *FOREIGN-TYPES* ...)
; compiling (DEFUN FIND-TYPE ...)
; compiling (DEFUN FIND-TYPE-OR-LOSE ...)
; compiling (DEFUN NOTICE-FOREIGN-TYPE ...)
; compiling (DEFVAR *TYPE-PARSERS* ...)
; compiling (DEFUN FIND-TYPE-PARSER ...)
; compiling (DEFUN (SETF FIND-TYPE-PARSER) ...)
; compiling (DEFMACRO DEFINE-TYPE-SPEC-PARSER ...)
; compiling (DEFUN PARSE-TYPE ...)
; compiling (DEFGENERIC CANONICALIZE ...)
; compiling (DEFGENERIC AGGREGATEP ...)
; compiling (DEFGENERIC FOREIGN-TYPE-ALIGNMENT ...)
; compiling (DEFGENERIC FOREIGN-TYPE-SIZE ...)
; compiling (DEFGENERIC UNPARSE ...)
; compiling (DEFGENERIC TRANSLATE-P ...)
; compiling (DEFCLASS FOREIGN-TYPE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD MAKE-LOAD-FORM ...)
; compiling (DEFUN CANONICALIZE-FOREIGN-TYPE ...)
; compiling (DEFMETHOD UNPARSE ...)
; compiling (DEFUN UNPARSE-TYPE ...)
; compiling (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; compiling (DEFMETHOD TRANSLATE-P ...)
; compiling (DEFCLASS FOREIGN-BUILT-IN-TYPE ...)
; compiling (DEFMETHOD CANONICALIZE ...)
; compiling (DEFMETHOD AGGREGATEP ...)
; compiling (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; compiling (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; compiling (DEFMETHOD TRANSLATE-P ...)
; compiling (DEFMACRO DEFINE-BUILT-IN-FOREIGN-TYPE ...)
; compiling (DEFCLASS FOREIGN-POINTER-TYPE ...)
; compiling (DEFMETHOD CANONICALIZE ...)
; compiling (DEFMETHOD AGGREGATEP ...)
; compiling (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; compiling (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; compiling (DEFMETHOD TRANSLATE-P ...)
; compiling (DEFMETHOD UNPARSE ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFCLASS FOREIGN-TYPE-ALIAS ...)
; compiling (DEFMETHOD CANONICALIZE ...)
; compiling (DEFMETHOD AGGREGATEP ...)
; compiling (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; compiling (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; compiling (DEFCLASS FOREIGN-TYPEDEF ...)
; compiling (DEFUN FOLLOW-TYPEDEFS ...)
; compiling (DEFCLASS FOREIGN-STRUCT-TYPE ...)
; compiling (DEFMETHOD CANONICALIZE ...)
; compiling (DEFMETHOD AGGREGATEP ...)
; compiling (DEFMETHOD FOREIGN-TYPE-SIZE ...)
; compiling (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; compiling (DEFGENERIC TRANSLATE-TYPE-TO-FOREIGN ...)
; compiling (DEFGENERIC TRANSLATE-TYPE-FROM-FOREIGN ...)
; compiling (DEFGENERIC FREE-TYPE-TRANSLATED-OBJECT ...)
; compiling (DEFGENERIC TRANSLATE-TO-FOREIGN ...)
; compiling (DEFGENERIC TRANSLATE-FROM-FOREIGN ...)
; compiling (DEFGENERIC FREE-TRANSLATED-OBJECT ...)
; compiling (DEFMETHOD TRANSLATE-TYPE-TO-FOREIGN ...)
; compiling (DEFMETHOD TRANSLATE-TYPE-FROM-FOREIGN ...)
; compiling (DEFMETHOD FREE-TYPE-TRANSLATED-OBJECT ...)
; compiling (DEFUN %EXPAND-TYPE-TO-FOREIGN-DYN ...)
; compiling (DEFUN %EXPAND-TYPE-TO-FOREIGN ...)
; compiling (DEFUN %EXPAND-TYPE-FROM-FOREIGN ...)
; compiling (DEFVAR *RUNTIME-TRANSLATOR-FORM*)
; compiling (DEFUN SPECIALIZEDP ...)
; compiling (DEFGENERIC EXPAND-TYPE-TO-FOREIGN-DYN ...)
; compiling (DEFGENERIC EXPAND-TYPE-TO-FOREIGN ...)
; compiling (DEFGENERIC EXPAND-TYPE-FROM-FOREIGN ...)
; compiling (DEFGENERIC EXPAND-TO-FOREIGN-DYN ...)
; compiling (DEFGENERIC EXPAND-TO-FOREIGN ...)
; compiling (DEFGENERIC EXPAND-FROM-FOREIGN ...)
; compiling (DEFMETHOD EXPAND-TYPE-TO-FOREIGN-DYN ...)
; compiling (DEFMETHOD EXPAND-TYPE-TO-FOREIGN ...)
; compiling (DEFMETHOD EXPAND-TYPE-FROM-FOREIGN ...)
; compiling (DEFUN CONVERT-TO-FOREIGN ...)
; compiling (DEFINE-COMPILER-MACRO CONVERT-TO-FOREIGN ...)
; compiling (DEFUN CONVERT-FROM-FOREIGN ...)
; compiling (DEFINE-COMPILER-MACRO CONVERT-FROM-FOREIGN ...)
; compiling (DEFUN FREE-CONVERTED-OBJECT ...)
; /Users/raffaelc/.sbcl/site/cffi_0.9.2/src/early-types.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cffi_0.9.2/src/
types.lisp" (written 08 SEP 2006 04:56:43 PM):
; compiling (IN-PACKAGE #:CFFI)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :CHAR)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-CHAR)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :SHORT)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-SHORT)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :INT)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-INT)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :LONG)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-LONG)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :FLOAT)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :DOUBLE)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :VOID)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :LONG-LONG)
; compiling (DEFINE-BUILT-IN-FOREIGN-TYPE :UNSIGNED-LONG-LONG)
; compiling (DEFINE-TYPE-SPEC-PARSER :POINTER ...)
; compiling (DEFINE-MODIFY-MACRO INCF-POINTER ...)
; compiling (DEFUN MEM-REF ...)
; compiling (DEFINE-COMPILER-MACRO MEM-REF ...)
; compiling (DEFUN MEM-SET ...)
; compiling (DEFINE-SETF-EXPANDER MEM-REF ...)
; compiling (DEFINE-COMPILER-MACRO MEM-SET ...)
; compiling (DEFUN MEM-AREF ...)
; compiling (DEFINE-COMPILER-MACRO MEM-AREF ...)
; compiling (DEFINE-SETF-EXPANDER MEM-AREF ...)
; compiling (DEFGENERIC FOREIGN-STRUCT-SLOT-POINTER ...)
; compiling (DEFGENERIC FOREIGN-STRUCT-SLOT-POINTER-FORM ...)
; compiling (DEFGENERIC FOREIGN-STRUCT-SLOT-VALUE ...)
; compiling (DEFGENERIC (SETF FOREIGN-STRUCT-SLOT-VALUE) ...)
; compiling (DEFGENERIC FOREIGN-STRUCT-SLOT-VALUE-FORM ...)
; compiling (DEFGENERIC FOREIGN-STRUCT-SLOT-SET-FORM ...)
; compiling (DEFCLASS FOREIGN-STRUCT-SLOT ...)
; compiling (DEFMETHOD FOREIGN-STRUCT-SLOT-POINTER ...)
; compiling (DEFMETHOD FOREIGN-STRUCT-SLOT-POINTER-FORM ...)
; compiling (DEFUN FOREIGN-SLOT-NAMES ...)
; compiling (DEFCLASS SIMPLE-STRUCT-SLOT ...)
; compiling (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE ...)
; compiling (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE-FORM ...)
; compiling (DEFMETHOD (SETF FOREIGN-STRUCT-SLOT-VALUE) ...)
; compiling (DEFMETHOD FOREIGN-STRUCT-SLOT-SET-FORM ...)
; compiling (DEFCLASS AGGREGATE-STRUCT-SLOT ...)
; compiling (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE ...)
; compiling (DEFMETHOD FOREIGN-STRUCT-SLOT-VALUE-FORM ...)
; compiling (DEFMETHOD (SETF FOREIGN-STRUCT-SLOT-VALUE) ...)
; compiling (DEFMETHOD FOREIGN-STRUCT-SLOT-SET-FORM ...)
; compiling (DEFUN MAKE-STRUCT-SLOT ...)
; compiling (DEFUN GET-ALIGNMENT ...)
; compiling (DEFUN ADJUST-FOR-ALIGNMENT ...)
; compiling (DEFUN NOTICE-FOREIGN-STRUCT-DEFINITION ...)
; compiling (DEFMACRO DEFCSTRUCT ...)
; compiling (DEFUN GET-SLOT-INFO ...)
; compiling (DEFUN FOREIGN-SLOT-POINTER ...)
; compiling (DEFUN FOREIGN-SLOT-OFFSET ...)
; compiling (DEFUN FOREIGN-SLOT-VALUE ...)
; compiling (DEFINE-COMPILER-MACRO FOREIGN-SLOT-VALUE ...)
; compiling (DEFINE-SETF-EXPANDER FOREIGN-SLOT-VALUE ...)
; compiling (DEFUN FOREIGN-SLOT-SET ...)
; compiling (DEFINE-COMPILER-MACRO FOREIGN-SLOT-SET ...)
; compiling (DEFMACRO WITH-FOREIGN-SLOTS ...)
; compiling (DEFUN NOTICE-FOREIGN-UNION-DEFINITION ...)
; compiling (DEFMACRO DEFCUNION ...)
; compiling (DEFMETHOD FOREIGN-TYPE-ALIGNMENT ...)
; compiling (DEFUN FOREIGN-ALLOC ...)
; compiling (DEFMACRO WITH-FOREIGN-OBJECT ...)
; compiling (DEFMACRO WITH-FOREIGN-OBJECTS ...)
; compiling (DEFMACRO DEFINE-FOREIGN-TYPE ...)
; compiling (DEFMACRO DEFCTYPE ...)
; compiling (DEFCLASS FOREIGN-TYPE-WRAPPER ...)
; compiling (DEFINE-TYPE-SPEC-PARSER :WRAPPER ...)
; compiling (DEFMETHOD UNPARSE ...)
; compiling (DEFMETHOD TRANSLATE-TYPE-TO-FOREIGN ...)
; compiling (DEFMETHOD TRANSLATE-TYPE-FROM-FOREIGN ...)
; compiling (DEFINE-FOREIGN-TYPE :BOOLEAN ...)
; compiling (DEFMETHOD UNPARSE ...)
; compiling (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; compiling (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; compiling (DEFMETHOD EXPAND-TO-FOREIGN ...)
; compiling (DEFMETHOD EXPAND-FROM-FOREIGN ...)
; compiling (DEFCTYPE :UCHAR ...)
; compiling (DEFCTYPE :USHORT ...)
; compiling (DEFCTYPE :UINT ...)
; compiling (DEFCTYPE :ULONG ...)
; compiling (DEFCTYPE :LLONG ...)
; compiling (DEFCTYPE :ULLONG ...)
; compiling (LABELS (# # ...) ...)
; /Users/raffaelc/.sbcl/site/cffi_0.9.2/src/types.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cffi_0.9.2/src/
enum.lisp" (written 08 SEP 2006 04:56:43 PM):
; compiling (IN-PACKAGE #:CFFI)
; compiling (DEFCLASS FOREIGN-ENUM ...)
; compiling (DEFUN MAKE-FOREIGN-ENUM ...)
; compiling (DEFMACRO DEFCENUM ...)
; compiling (DEFUN %FOREIGN-ENUM-VALUE ...)
; compiling (DEFUN FOREIGN-ENUM-VALUE ...)
; compiling (DEFUN %FOREIGN-ENUM-KEYWORD ...)
; compiling (DEFUN FOREIGN-ENUM-KEYWORD ...)
; compiling (DEFMETHOD TRANSLATE-TYPE-TO-FOREIGN ...)
; compiling (DEFMETHOD TRANSLATE-TYPE-FROM-FOREIGN ...)
; compiling (DEFCLASS FOREIGN-BITFIELD ...)
; compiling (DEFUN MAKE-FOREIGN-BITFIELD ...)
; compiling (DEFMACRO DEFBITFIELD ...)
; compiling (DEFUN %FOREIGN-BITFIELD-VALUE ...)
; compiling (DEFUN FOREIGN-BITFIELD-VALUE ...)
; compiling (DEFUN %FOREIGN-BITFIELD-SYMBOLS ...)
; compiling (DEFUN FOREIGN-BITFIELD-SYMBOLS ...)
; compiling (DEFMETHOD TRANSLATE-TYPE-TO-FOREIGN ...)
; compiling (DEFMETHOD TRANSLATE-TYPE-FROM-FOREIGN ...)
; /Users/raffaelc/.sbcl/site/cffi_0.9.2/src/enum.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cffi_0.9.2/src/
strings.lisp" (written 08 SEP 2006 04:56:43 PM):
; compiling (IN-PACKAGE #:CFFI)
; compiling (DEFUN LISP-STRING-TO-FOREIGN ...)
; compiling (DEFUN FOREIGN-STRING-TO-LISP ...)
; compiling (DEFUN FOREIGN-STRING-ALLOC ...)
; compiling (DEFUN FOREIGN-STRING-FREE ...)
; compiling (DEFMACRO WITH-FOREIGN-STRING ...)
; compiling (DEFMACRO WITH-FOREIGN-POINTER-AS-STRING ...)
; compiling (DEFCTYPE :STRING ...)
; compiling (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; compiling (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; compiling (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; compiling (DEFMETHOD FREE-TRANSLATED-OBJECT ...)
; compiling (DEFCTYPE :STRING+PTR ...)
; compiling (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; compiling (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; compiling (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; compiling (DEFMETHOD FREE-TRANSLATED-OBJECT ...)
; /Users/raffaelc/.sbcl/site/cffi_0.9.2/src/strings.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cffi_0.9.2/src/
functions.lisp" (written 08 SEP 2006 04:56:43 PM):
; compiling (IN-PACKAGE #:CFFI)
; compiling (DEFUN TRANSLATE-OBJECTS ...)
; compiling (DEFUN PARSE-ARGS-AND-TYPES ...)
; compiling (DEFMACRO FOREIGN-FUNCALL ...)
; compiling (DEFUN PROMOTE-VARARGS-TYPE ...)
; compiling (DEFMACRO FOREIGN-FUNCALL-VARARGS ...)
; compiling (DEFUN LISP-FUNCTION-NAME ...)
; compiling (DEFUN FOREIGN-FUNCTION-NAME ...)
; compiling (UNLESS (FBOUNDP #) ...)
; compiling (DEFUN %DEFCFUN ...)
; compiling (DEFUN %DEFCFUN-VARARGS ...)
; compiling (DEFMACRO DEFCFUN ...)
; compiling (DEFUN INVERSE-TRANSLATE-OBJECTS ...)
; compiling (DEFMACRO DEFCALLBACK ...)
; compiling (DECLAIM (INLINE GET-CALLBACK))
; compiling (DEFUN GET-CALLBACK ...)
; compiling (DEFMACRO CALLBACK ...)
; /Users/raffaelc/.sbcl/site/cffi_0.9.2/src/functions.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cffi_0.9.2/src/foreign-
vars.lisp" (written 08 SEP 2006 04:56:43 PM):
; compiling (IN-PACKAGE #:CFFI)
; compiling (DEFUN LISP-VAR-NAME ...)
; compiling (DEFUN FOREIGN-VAR-NAME ...)
; compiling (DEFUN GET-VAR-POINTER ...)
; compiling (DEFUN FOREIGN-SYMBOL-POINTER-OR-LOSE ...)
; compiling (DEFMACRO DEFCVAR ...)
; /Users/raffaelc/.sbcl/site/cffi_0.9.2/src/foreign-vars.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cl-objc-leopard/src/
packages.lisp" (written 20 MAY 2008 01:50:24 PM):
; compiling (IN-PACKAGE "CL-USER")
; compiling (DEFPACKAGE "CL-OBJC-UTILS" ...)
; compiling (DEFPACKAGE "OBJC-CFFI" ...)
; compiling (DEFPACKAGE "CL-OBJC" ...)
; compiling (DEFPACKAGE "OBJC-CLOS" ...)
; compiling (DEFPACKAGE "OBJC" ...)
; compiling (DEFPACKAGE "OBJC-TYPES" ...)
; compiling (DEFPACKAGE "OBJC-READER" ...)
; compiling (DEFPACKAGE "CL-OBJC-EXAMPLES" ...)
; compiling (DEFPACKAGE "CL-OBJC-USER" ...)
; /Users/raffaelc/.sbcl/site/cl-objc-leopard/src/packages.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cl-objc-leopard/src/objc-
types.lisp" (written 20 MAY 2008 01:50:24 PM):
; compiling (IN-PACKAGE "OBJC-TYPES")
; compiling (DEFVAR TYPEMAP ...)
; compiling (DEFUN CHAR-TO-TYPE ...)
; compiling (DEFVAR METHOD-CODE-MAP ...)
; compiling (DEFUN CHAR-TO-METHODCODE ...)
; compiling (DEFUN LEX-TYPESTR ...)
; compiling (DEFUN TYPESTR-LEXER ...)
; compiling (DEFUN READ-NUM ...)
; compiling (DEFUN READ-TYPE-NAME ...)
; compiling (DEFINE-PARSER *OBJC-TYPE-PARSER* ...)
; compiling (DEFUN PARSE-OBJC-TYPESTR ...)
; compiling (DEFUN OBJC-FOREIGN-TYPE-SIZE ...)
; compiling (DEFUN ENCODE-TYPES ...)
; compiling (DEFUN LOOKUP-TYPE-CHAR ...)
; compiling (DEFUN LOOKUP-METHOD-CHAR ...)
; compiling (DEFUN ENCODE-TYPE ...)
; /Users/raffaelc/.sbcl/site/cl-objc-leopard/src/objc-types.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cl-objc-leopard/src/
utils.lisp" (written 20 MAY 2008 01:50:24 PM):
; compiling (IN-PACKAGE "CL-OBJC-UTILS")
; compiling (DEFMACRO WITH-GENSYMS ...)
; compiling (DEFUN INTERPOSE ...)
; compiling (DEFUN CFFI-TYPE-P ...)
; compiling (DEFUN SPLIT-STRING ...)
; compiling (DEFUN SIMPLE-REPLACE-STRING ...)
; compiling (DEFUN ENSURE-LIST ...)
; compiling (DEFUN LOOKUP-SAME-SYMBOL-NAME ...)
; compiling (DEFMACRO COMPOSITE-MAPCAR ...)
; compiling (DEFUN GENSYM-LIST ...)
; /Users/raffaelc/.sbcl/site/cl-objc-leopard/src/utils.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/raffaelc/.sbcl/site/cl-objc-leopard/src/
cffi.lisp" (written 20 MAY 2008 01:50:24 PM):
; compiling (IN-PACKAGE "OBJC-CFFI")
; compiling (PUSHNEW #P"/usr/lib/" ...)
; compiling (DEFINE-FOREIGN-LIBRARY LIBOBJC ...)
; compiling (USE-FOREIGN-LIBRARY LIBOBJC)
; compiling (DEFCLASS OBJC-SELECTOR ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFINE-FOREIGN-TYPE OBJC-SELECTOR-TYPE ...)
; compiling (DEFCFUN ("sel_isMapped" SEL-IS-MAPPED) ...)
; file: /Users/raffaelc/.sbcl/site/cl-objc-leopard/src/cffi.lisp
; in: DEFCFUN ("sel_isMapped" SEL-IS-MAPPED)
; (CFFI:DEFCFUN ("sel_isMapped" OBJC-CFFI:SEL-IS-MAPPED) :BOOLEAN
; "Returns true if a selector is registered in the
ObjC runtime."
; (OBJC-CFFI::SEL OBJC-CFFI:OBJC-SEL))
;
; caught ERROR:
; (during macroexpansion of (DEFCFUN ("sel_isMapped" SEL-IS-
MAPPED) ...))
; Unknown CFFI type: OBJC-SEL.
; compiling (DEFCFUN ("sel_getName" SEL-GET-NAME) ...)
; file: /Users/raffaelc/.sbcl/site/cl-objc-leopard/src/cffi.lisp
; in: DEFCFUN ("sel_getName" SEL-GET-NAME)
; (CFFI:DEFCFUN ("sel_getName" OBJC-CFFI::SEL-GET-NAME) :STRING
; (OBJC-CFFI::SEL OBJC-CFFI:OBJC-SEL))
;
; caught ERROR:
; (during macroexpansion of (DEFCFUN ("sel_getName" SEL-GET-
NAME) ...))
; Unknown CFFI type: OBJC-SEL.
; compiling (DEFCFUN ("sel_registerName" SEL-REGISTER-NAME) ...)
; file: /Users/raffaelc/.sbcl/site/cl-objc-leopard/src/cffi.lisp
; in: DEFCFUN ("sel_registerName" SEL-REGISTER-NAME)
; (CFFI:DEFCFUN ("sel_registerName" OBJC-CFFI::SEL-REGISTER-NAME)
; OBJC-CFFI:OBJC-SEL (OBJC-CFFI::STR :STRING))
;
; caught ERROR:
; (during macroexpansion of (DEFCFUN ("sel_registerName" SEL-
REGISTER-NAME) ...))
; Unknown CFFI type: OBJC-SEL.
; compiling (DEFCFUN ("sel_getUid" SEL-GET-UID) ...)
; file: /Users/raffaelc/.sbcl/site/cl-objc-leopard/src/cffi.lisp
; in: DEFCFUN ("sel_getUid" SEL-GET-UID)
; (CFFI:DEFCFUN ("sel_getUid" OBJC-CFFI:SEL-GET-UID) OBJC-
CFFI:OBJC-SEL
; "Returns the selector named NAME." (OBJC-
CFFI::STR :STRING))
;
; caught ERROR:
; (during macroexpansion of (DEFCFUN ("sel_getUid" SEL-GET-UID) ...))
; Unknown CFFI type: OBJC-SEL.
; compiling (DEFMETHOD TRANSLATE-FROM-FOREIGN ...)
; file: /Users/raffaelc/.sbcl/site/cl-objc-leopard/src/cffi.lisp
; in: DEFMETHOD TRANSLATE-FROM-FOREIGN (T OBJC-SELECTOR-TYPE)
; (DEFMETHOD CFFI:TRANSLATE-FROM-FOREIGN
; (OBJC-CFFI::UID (TYPE OBJC-CFFI::OBJC-SELECTOR-TYPE))
; (MAKE-INSTANCE 'OBJC-CFFI:OBJC-SELECTOR :NAME
; (OBJC-CFFI::SEL-GET-NAME OBJC-
CFFI::UID) :UID
; OBJC-CFFI::UID))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER CFFI:TRANSLATE-FROM-FOREIGN NIL
; (OBJC-CFFI::UID
; (TYPE OBJC-CFFI::OBJC-SELECTOR-TYPE))
; ((MAKE-INSTANCE 'OBJC-CFFI:OBJC-
SELECTOR :NAME
; (OBJC-CFFI::SEL-GET-
NAME
; OBJC-CFFI::UID)
; :UID OBJC-CFFI::UID)))
;
; caught STYLE-WARNING:
; can't find type for specializer OBJC-SELECTOR-TYPE in
; SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
; compiling (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; file: /Users/raffaelc/.sbcl/site/cl-objc-leopard/src/cffi.lisp
; in: DEFMETHOD TRANSLATE-TO-FOREIGN (OBJC-SELECTOR OBJC-SELECTOR-TYPE)
; (DEFMETHOD CFFI:TRANSLATE-TO-FOREIGN
; ((OBJC-CFFI::SEL OBJC-CFFI:OBJC-SELECTOR)
; (TYPE OBJC-CFFI::OBJC-SELECTOR-TYPE))
; (SLOT-VALUE OBJC-CFFI::SEL 'OBJC-CFFI::UID))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER CFFI:TRANSLATE-TO-FOREIGN NIL
; ((OBJC-CFFI::SEL OBJC-CFFI:OBJC-
SELECTOR)
; (TYPE OBJC-CFFI::OBJC-SELECTOR-TYPE))
; ((SLOT-VALUE OBJC-CFFI::SEL 'OBJC-
CFFI::UID)))
;
; caught STYLE-WARNING:
; can't find type for specializer OBJC-SELECTOR-TYPE in
; SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
; compiling (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; file: /Users/raffaelc/.sbcl/site/cl-objc-leopard/src/cffi.lisp
; in: DEFMETHOD TRANSLATE-TO-FOREIGN (STRING OBJC-SELECTOR-TYPE)
; (DEFMETHOD CFFI:TRANSLATE-TO-FOREIGN
; ((OBJC-CFFI::NAME STRING) (TYPE OBJC-CFFI::OBJC-
SELECTOR-TYPE))
; (SLOT-VALUE (OBJC-CFFI::SEL-REGISTER-NAME OBJC-
CFFI::NAME)
; 'OBJC-CFFI::UID))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER CFFI:TRANSLATE-TO-FOREIGN NIL
; ((OBJC-CFFI::NAME STRING)
; (TYPE OBJC-CFFI::OBJC-SELECTOR-TYPE))
; ((SLOT-VALUE
; (OBJC-CFFI::SEL-REGISTER-NAME OBJC-
CFFI::NAME)
; 'OBJC-CFFI::UID)))
;
; caught STYLE-WARNING:
; can't find type for specializer OBJC-SELECTOR-TYPE in
; SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
; compiling (DEFMETHOD TRANSLATE-TO-FOREIGN ...)
; file: /Users/raffaelc/.sbcl/site/cl-objc-leopard/src/cffi.lisp
; in: DEFMETHOD TRANSLATE-TO-FOREIGN (T OBJC-SELECTOR-TYPE)
; (DEFMETHOD CFFI:TRANSLATE-TO-FOREIGN
; (OBJC-CFFI::SEL (TYPE OBJC-CFFI::OBJC-SELECTOR-TYPE))
; OBJC-CFFI::SEL)
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER CFFI:TRANSLATE-TO-FOREIGN NIL
; (OBJC-CFFI::SEL
; (TYPE OBJC-CFFI::OBJC-SELECTOR-TYPE))
; (OBJC-CFFI::SEL))
;
; caught STYLE-WARNING:
; can't find type for specializer OBJC-SELECTOR-TYPE in
; SB-PCL::PARAMETER-SPECIALIZER-DECLARATION-IN-DEFMETHOD.
; compiling (DEFCLASS OBJC-METHOD ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFMETHOD DESCRIBE-OBJECT ...)
; compiling (DEFINE-FOREIGN-TYPE OBJC-IMP-TYPE ...)
; compiling (DEFCSTRUCT OBJC-METHOD-CSTRUCT ...)
Unknown CFFI type: OBJC-CFFI:OBJC-SEL.
[Condition of type SIMPLE-ERROR]
Restarts:
0: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL {11E9C349}> on
#<ASDF:CL-SOURCE-FILE "cffi" {11847169}>.
1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {11E9C349}> on
#<ASDF:CL-SOURCE-FILE "cffi" {11847169}> as having been successful.
2: [ABORT-REQUEST] Abort handling SLIME request.
3: [ABORT] Exit debugger, returning to top level.
Backtrace:
0: (CFFI::PARSE-TYPE OBJC-CFFI:OBJC-SEL)
1: (CFFI::CANONICALIZE-FOREIGN-TYPE OBJC-CFFI:OBJC-SEL)
2: (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION OBJC-CFFI::OBJC-METHOD-
CSTRUCT ((OBJC-CFFI::METHOD_NAME OBJC-CFFI:OBJC-SEL) (OBJC-
CFFI::METHOD_TYPES :STRING) (OBJC-CFFI::METHOD_IMP OBJC-CFFI::OBJC-IMP-
POINTER)))
3: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CFFI::NOTICE-FOREIGN-STRUCT-
DEFINITION (QUOTE OBJC-CFFI::OBJC-METHOD-CSTRUCT) (QUOTE (# # #)))
#<NULL-LEXENV>)
4: ((FLET SB-C::DEFAULT-PROCESSOR) (CFFI::NOTICE-FOREIGN-STRUCT-
DEFINITION (QUOTE OBJC-CFFI::OBJC-METHOD-CSTRUCT) (QUOTE (# # #))))
5: (SB-C::PROCESS-TOPLEVEL-FORM (CFFI::NOTICE-FOREIGN-STRUCT-
DEFINITION (QUOTE OBJC-CFFI::OBJC-METHOD-CSTRUCT) (QUOTE (# # #)))
((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (CFFI::NOTICE-
FOREIGN-STRUCT-DEFINITION # #)) SB-C::ORIGINAL-SOURCE-START 0 20)
(:COMPILE-TOPLEVEL))
6: (SB-C::PROCESS-TOPLEVEL-PROGN ((CFFI::NOTICE-FOREIGN-STRUCT-
DEFINITION (QUOTE OBJC-CFFI::OBJC-METHOD-CSTRUCT) (QUOTE #))) ((EVAL-
WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (CFFI::NOTICE-FOREIGN-
STRUCT-DEFINITION # #)) SB-C::ORIGINAL-SOURCE-START 0 20) (:COMPILE-
TOPLEVEL))
7: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-
TOPLEVEL :EXECUTE) (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION (QUOTE OBJC-
CFFI::OBJC-METHOD-CSTRUCT) (QUOTE #))) (SB-C::ORIGINAL-SOURCE-START 0
20) NIL)
8: ((FLET SB-C::DEFAULT-PROCESSOR) (CFFI:DEFCSTRUCT OBJC-CFFI::OBJC-
METHOD-CSTRUCT (OBJC-CFFI::METHOD_NAME OBJC-CFFI:OBJC-SEL) (OBJC-
CFFI::METHOD_TYPES :STRING) (OBJC-CFFI::METHOD_IMP OBJC-CFFI::OBJC-IMP-
POINTER)))
9: (SB-C::PROCESS-TOPLEVEL-FORM (CFFI:DEFCSTRUCT OBJC-CFFI::OBJC-
METHOD-CSTRUCT (OBJC-CFFI::METHOD_NAME OBJC-CFFI:OBJC-SEL) (OBJC-
CFFI::METHOD_TYPES :STRING) (OBJC-CFFI::METHOD_IMP OBJC-CFFI::OBJC-IMP-
POINTER)) (SB-C::ORIGINAL-SOURCE-START 0 20) NIL)
10: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
11: ((LAMBDA NIL))
12: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {119EAB3D}>)
13: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
14: (COMPILE-FILE #P"/Users/raffaelc/.sbcl/site/cl-objc-leopard/src/
cffi.lisp")
15: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-
SOURCE-FILE)) #<unavailable argument> #<unavailable argument>
#<ASDF:COMPILE-OP NIL {11E9C349}> #<ASDF:CL-SOURCE-FILE
"cffi" {11847169}>)
16: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument>
#<ASDF:COMPILE-OP NIL {11E9C349}> #<ASDF:CL-SOURCE-FILE
"cffi" {11847169}>)
17: ((LAMBDA NIL))
18: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
19: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {124E2F8D}>)
20: (ASDF:OPERATE ASDF:LOAD-OP :CL-OBJC)
21: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF:OOS (QUOTE ASDF:LOAD-OP) :CL-
OBJC) #<NULL-LEXENV>)
22: (SWANK::EVAL-REGION "(asdf:oos 'asdf:load-op :cl-objc)
" T)
23: ((LAMBDA NIL))
24: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T))
#<unused argument> #<unused argument> #<CLOSURE (LAMBDA NIL)
{11AEEF9D}>)
25: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA NIL)
{11AEEF9D}>)
26: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(asdf:oos
'asdf:load-op :cl-objc)
") #<NULL-LEXENV>)
27: ((LAMBDA NIL))
28: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T
T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-
DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {11AEE38D}>)
29: ((LAMBDA NIL))
30: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T
T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-
DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL) {12381C25}>)
31: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {11719A41}>
#<CLOSURE (LAMBDA NIL) {11AEBEE5}>)
32: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {11719A41}>
#<FUNCTION (LAMBDA NIL) {12381C25}>)
33: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {11719A41}>)
34: (SWANK::PROCESS-AVAILABLE-INPUT #<SB-SYS:FD-STREAM for "a
socket" {1170F3A1}> #<CLOSURE (LAMBDA NIL) {11AEBEA5}>)
35: ((FLET SWANK::HANDLER))
36: ((LAMBDA (SWANK-BACKEND::_)) #<unused argument>)
37: (SB-IMPL::SUB-SERVE-EVENT NIL NIL NIL)
38: (SB-SYS:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)
39: (SB-IMPL::REFILL-INPUT-BUFFER #<SB-SYS:FD-STREAM for "standard
input" {122792D1}>)
40: (SB-IMPL::INPUT-CHAR/UTF-8 #<SB-SYS:FD-STREAM for "standard
input" {122792D1}> NIL #:EOF-OBJECT)
41: (READ-CHAR #<SB-SYS:FD-STREAM for "standard input" {122792D1}>
NIL #:EOF-OBJECT #<unused argument>)
42: (READ-CHAR #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {100BCC61}>
NIL #:EOF-OBJECT #<unused argument>)
43: (READ-CHAR #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-
INPUT* {11F274F1}> NIL #:EOF-OBJECT #<unused argument>)
44: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {11F274F1}> NIL (NIL) T)
45: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {11F274F1}> NIL (NIL) NIL)
46: (READ #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT*
{11F274F1}> NIL (NIL) NIL)
47: (SB-IMPL::REPL-READ-FORM-FUN #<SYNONYM-STREAM :SYMBOL
SWANK::*CURRENT-STANDARD-INPUT* {11F274F1}> #<unavailable argument>)
48: (SB-IMPL::REPL-FUN NIL)
49: (SB-IMPL::REPL-FUN NIL)
50: ((LAMBDA NIL))
51: ((LAMBDA NIL))
52: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL)
{11F35A3D}>)
53: (SB-IMPL::TOPLEVEL-REPL NIL)
54: (SB-IMPL::TOPLEVEL-INIT)
55: ((LABELS SB-IMPL::RESTART-LISP))
regards,
Ralph
Raffael Cavallaro, Ph.D.
raffaelcavallaro at mac.com
More information about the Cl-objc-devel
mailing list