Just compiled McCLIM (and all of it's dependencies) on Mac OS X (version 10.6.4 - Snow Leopard) and got the following undefined variable warnings after compiling (warnings, but no errors). I am compiling on SBCL 1.0.39 +threads and using clx-0.7.4
Are these warnings important ? Most of the example/demo applications from the button menu seem to work with exception of drag and drop example. I can provide any additional information as needed.
; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/bordered-output.lisp ; in: CLIM:DEFINE-BORDER-TYPE :INSET ; (LET ((CLIM-INTERNALS::DARK CLIM-INTERNALS::*3D-DARK-COLOR*) ; (CLIM-INTERNALS::LIGHT CLIM-INTERNALS::*3D-LIGHT-COLOR*)) ; (FLET ((CLIM-INTERNALS::DRAW ; (CLIM-INTERNALS::LEFT-EDGE CLIM-INTERNALS::RIGHT-EDGE ; CLIM-INTERNALS::BOTTOM-EDGE CLIM-INTERNALS::TOP-EDGE ; CLIM-INTERNALS::LIGHT CLIM-INTERNALS::DARK) ; (CLIM:DRAW-LINE* STREAM CLIM-INTERNALS::LEFT-EDGE ; CLIM-INTERNALS::BOTTOM-EDGE ; CLIM-INTERNALS::LEFT-EDGE ; CLIM-INTERNALS::TOP-EDGE :INK ; CLIM-INTERNALS::DARK) ; (CLIM:DRAW-LINE* STREAM CLIM-INTERNALS::LEFT-EDGE ; CLIM-INTERNALS::TOP-EDGE ; CLIM-INTERNALS::RIGHT-EDGE ; CLIM-INTERNALS::TOP-EDGE :INK ; CLIM-INTERNALS::DARK) ; (CLIM:DRAW-LINE* STREAM CLIM-INTERNALS::RIGHT-EDGE ; CLIM-INTERNALS::BOTTOM-EDGE ; CLIM-INTERNALS::RIGHT-EDGE ; CLIM-INTERNALS::TOP-EDGE :INK ; CLIM-INTERNALS::LIGHT) ; (CLIM:DRAW-LINE* STREAM CLIM-INTERNALS::LEFT-EDGE ; CLIM-INTERNALS::BOTTOM-EDGE ; CLIM-INTERNALS::RIGHT-EDGE ; CLIM-INTERNALS::BOTTOM-EDGE :INK ; CLIM-INTERNALS::LIGHT))) ; (CLIM-INTERNALS::DRAW CLIM-INTERNALS::LEFT CLIM-INTERNALS::RIGHT ; CLIM-INTERNALS::BOTTOM CLIM-INTERNALS::TOP CLIM-INTERNALS::LIGHT ; CLIM-INTERNALS::DARK) ; (CLIM-INTERNALS::DRAW (1+ CLIM-INTERNALS::LEFT) ; (1- CLIM-INTERNALS::RIGHT) (1- CLIM-INTERNALS::BOTTOM) ; (1+ CLIM-INTERNALS::TOP) CLIM-INTERNALS::LIGHT CLIM-INTERNALS::DARK))) ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*3D-DARK-COLOR* ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*3D-LIGHT-COLOR*
; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/Goatee/presentation-history.lisp ; in: DEFUN GOATEE::CMD-HISTORY-YANK-PREVIOUS ; (LET* ((GOATEE::ACCEPTING-TYPE CLIM-INTERNALS::*ACTIVE-HISTORY-TYPE*) ; (GOATEE::HISTORY ; (AND GOATEE::ACCEPTING-TYPE ; (CLIM:PRESENTATION-TYPE-HISTORY GOATEE::ACCEPTING-TYPE)))) ; (WHEN GOATEE::HISTORY ; (MULTIPLE-VALUE-BIND (GOATEE::OBJECT TYPE) ; (CLIM-INTERNALS::PRESENTATION-HISTORY-PREVIOUS GOATEE::HISTORY ; GOATEE::ACCEPTING-TYPE) ; (WHEN TYPE ; (GOATEE::CLEAR-BUFFER GOATEE::*BUFFER*) ; (GOATEE::INSERT-PTYPE-HISTORY GOATEE::OBJECT TYPE))))) ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*ACTIVE-HISTORY-TYPE*
; in: DEFUN GOATEE::CMD-HISTORY-YANK-NEXT ; (LET* ((GOATEE::ACCEPTING-TYPE CLIM-INTERNALS::*ACTIVE-HISTORY-TYPE*) ; (GOATEE::HISTORY ; (AND GOATEE::ACCEPTING-TYPE ; (CLIM:PRESENTATION-TYPE-HISTORY GOATEE::ACCEPTING-TYPE)))) ; (WHEN GOATEE::HISTORY ; (MULTIPLE-VALUE-BIND (GOATEE::OBJECT TYPE) ; (CLIM-INTERNALS::PRESENTATION-HISTORY-NEXT GOATEE::HISTORY ; GOATEE::ACCEPTING-TYPE) ; (WHEN TYPE ; (GOATEE::CLEAR-BUFFER GOATEE::*BUFFER*) ; (GOATEE::INSERT-PTYPE-HISTORY GOATEE::OBJECT TYPE))))) ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*ACTIVE-HISTORY-TYPE*
; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/frames.lisp ; in: ; DEFMETHOD CLIM-INTERNALS::FRAME-PRINT-POINTER-DOCUMENTATION (CLIM:STANDARD-APPLICATION-FRAME ; T T T T) ; (+ (CLIM-INTERNALS::BACKGROUND-MESSAGE-TIME CLIM-INTERNALS::PSTREAM) ; CLIM-INTERNALS::*BACKGROUND-MESSAGE-MINIMUM-LIFETIME*) ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*BACKGROUND-MESSAGE-MINIMUM-LIFETIME*
; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/commands.lisp ; in: DEFUN CLIM-INTERNALS::PARTIAL-COMMAND-FROM-NAME ; (GETHASH CLIM:COMMAND-NAME CLIM-INTERNALS::*COMMAND-PARSER-TABLE*) ; ==> ; (SB-IMPL::GETHASH3 CLIM:COMMAND-NAME CLIM-INTERNALS::*COMMAND-PARSER-TABLE* ; NIL) ; ; caught WARNING: ; undefined variable: CLIM-INTERNALS::*COMMAND-PARSER-TABLE*
; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/Drei/views.lisp ; in: DEFUN DREI::GET-CHUNK ; (+ DREI:*MAXIMUM-CHUNK-SIZE* DREI::CHUNK-START-OFFSET) ; ; caught WARNING: ; undefined variable: DREI:*MAXIMUM-CHUNK-SIZE*
; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/presentations.lisp ; in: DEFUN CLIM:CALL-PRESENTATION-MENU ; (CLIM:MENU-CHOOSE CLIM-INTERNALS::ITEMS :LABEL CLIM-INTERNALS::LABEL ; :ASSOCIATED-WINDOW CLIM-INTERNALS::WINDOW :PRINTER ; #'(LAMBDA (CLIM-INTERNALS::ITEM STREAM) ; (LET ((CLIM-INTERNALS::OBJECT #)) ; (CLIM:DOCUMENT-PRESENTATION-TRANSLATOR ; (CLIM-INTERNALS::PRESENTATION-TRANSLATOR-MENU-ITEM-TRANSLATOR ; CLIM-INTERNALS::OBJECT) ; (CLIM-INTERNALS::PRESENTATION-TRANSLATOR-MENU-ITEM-PRESENTATION ; CLIM-INTERNALS::OBJECT) ; (CLIM-INTERNALS::PRESENTATION-TRANSLATOR-MENU-ITEM-CONTEXT ; CLIM-INTERNALS::OBJECT) ; CLIM-INTERNALS::FRAME NIL CLIM-INTERNALS::WINDOW CLIM-INTERNALS::X ; CLIM-INTERNALS::Y :STREAM STREAM))) ; :LABEL CLIM-INTERNALS::LABEL :POINTER-DOCUMENTATION ; CLIM:*POINTER-DOCUMENTATION-OUTPUT*) ; ; caught WARNING: ; undefined variable: CLIM:*POINTER-DOCUMENTATION-OUTPUT*
; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/Backends/PostScript/graphics.lisp ; in: DEFUN CLIM-POSTSCRIPT::WRITE-COORDINATES ; (CLIM-INTERNALS::WITH-TRANSFORMED-POSITION (CLIM-POSTSCRIPT::*TRANSFORMATION* ; CLIM-POSTSCRIPT::X ; CLIM-POSTSCRIPT::Y) ; (CLIM-POSTSCRIPT::WRITE-NUMBER STREAM CLIM-POSTSCRIPT::X) ; (CLIM-POSTSCRIPT::WRITE-NUMBER STREAM CLIM-POSTSCRIPT::Y)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (CLIM:TRANSFORM-POSITION CLIM-POSTSCRIPT::*TRANSFORMATION* CLIM-POSTSCRIPT::X ; CLIM-POSTSCRIPT::Y) ; ; caught WARNING: ; undefined variable: CLIM-POSTSCRIPT::*TRANSFORMATION*
; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/commands.lisp ; in: DEFUN CLIM-INTERNALS::PARTIAL-COMMAND-FROM-NAME ; #'(LAMBDA (CLIM-INTERNALS::FOO) ; (DECLARE (IGNORE CLIM-INTERNALS::FOO)) ; CLIM:*UNSUPPLIED-ARGUMENT-MARKER*) ; ; caught WARNING: ; undefined variable: CLIM:*UNSUPPLIED-ARGUMENT-MARKER*
; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/design.lisp ; in: DEFUN CLIM:MAKE-OPACITY ; (COND ((= CLIM-INTERNALS::VALUE 0) CLIM:+TRANSPARENT-INK+) ; ((= CLIM-INTERNALS::VALUE 1) CLIM:+EVERYWHERE+) ; (T ; (MAKE-INSTANCE 'CLIM-INTERNALS::STANDARD-OPACITY :VALUE ; CLIM-INTERNALS::VALUE))) ; --> IF COND IF ; ==> ; (PROGN CLIM:+EVERYWHERE+) ; ; caught WARNING: ; undefined variable: CLIM:+EVERYWHERE+
; in: DEFMETHOD CLIM:COMPOSE-OUT (CLIM:DESIGN CLIM:COLOR) ; (DEFMETHOD CLIM:COMPOSE-OUT ; ((CLIM:DESIGN CLIM:DESIGN) (CLIM-INTERNALS::MASK CLIM:COLOR)) ; (DECLARE (IGNORE CLIM:DESIGN CLIM-INTERNALS::MASK)) ; CLIM:+NOWHERE+) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET ; ==> ; (BLOCK CLIM:COMPOSE-OUT CLIM:+NOWHERE+) ; ; caught WARNING: ; undefined variable: CLIM:+NOWHERE+
; in: ; DEFMETHOD CLIM:COMPOSE-OUT (CLIM:DESIGN CLIM-INTERNALS::EVERYWHERE-MIXIN) ; (DEFMETHOD CLIM:COMPOSE-OUT ; ((CLIM:DESIGN CLIM:DESIGN) ; (CLIM-INTERNALS::MASK CLIM-INTERNALS::EVERYWHERE-MIXIN)) ; (DECLARE (IGNORE CLIM:DESIGN CLIM-INTERNALS::MASK)) ; CLIM:+NOWHERE+) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET ; ==> ; (BLOCK CLIM:COMPOSE-OUT CLIM:+NOWHERE+) ; ; caught WARNING: ; undefined variable: CLIM:+NOWHERE+
; in: ; DEFMETHOD CLIM:COMPOSE-IN (CLIM:DESIGN CLIM-INTERNALS::NOWHERE-MIXIN) ; (DEFMETHOD CLIM:COMPOSE-IN ; ((CLIM:DESIGN CLIM:DESIGN) ; (CLIM-INTERNALS::MASK CLIM-INTERNALS::NOWHERE-MIXIN)) ; (DECLARE (IGNORE CLIM:DESIGN CLIM-INTERNALS::MASK)) ; CLIM:+NOWHERE+) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET ; ==> ; (BLOCK CLIM:COMPOSE-IN CLIM:+NOWHERE+) ; ; caught WARNING: ; undefined variable: CLIM:+NOWHERE+
; file: /Users/kevinsmith/sbcl-lisp/mcclim-0.9.6/Drei/lisp-syntax.lisp ; in: DREI-SYNTAX:DEFINE-SYNTAX DREI-LISP-SYNTAX:LISP-SYNTAX ; (DREI-SYNTAX:DEFINE-SYNTAX DREI-LISP-SYNTAX:LISP-SYNTAX ; (DREI-LR-SYNTAX:LR-SYNTAX-MIXIN ; DREI-FUNDAMENTAL-SYNTAX:FUNDAMENTAL-SYNTAX) ; ((DREI-LISP-SYNTAX::%PACKAGE-LIST :ACCESSOR ; DREI-LISP-SYNTAX::PACKAGE-LIST :DOCUMENTATION ; "An alist mapping the end offset ; of (in-package) forms to a string of the package designator in ; the form. The list is sorted with the earliest (in-package) forms ; last (descending offset).") ; (DREI-LISP-SYNTAX::%BASE :INITFORM NIL ; :DOCUMENTATION ; "The base which numbers in the buffer are ; expected to be in. If the provided value is NIL, the value of ; `*read-base*' will be used." ; :TYPE (OR NULL (INTEGER 2 36))) ; (DREI-LISP-SYNTAX::%OPTION-SPECIFIED-PACKAGE ; :ACCESSOR ; DREI-LISP-SYNTAX::OPTION-SPECIFIED-PACKAGE ; :INITFORM NIL :DOCUMENTATION "The package ; specified in the attribute line (may be overridden ; by (in-package) forms). This may be either a string (the name of ; the intended package) or a package object.") ; (DREI-LISP-SYNTAX::%IMAGE :ACCESSOR ; DREI-LISP-SYNTAX::IMAGE :INITFORM NIL ; :DOCUMENTATION "An image object (or NIL) that ; determines where and how Lisp code in the buffer of the ; syntax should be run.") ; (DREI-LISP-SYNTAX::%FORM-BEFORE-CACHE :ACCESSOR ; DREI-LISP-SYNTAX::FORM-BEFORE-CACHE :INITFORM ; (MAKE-HASH-TABLE :TEST #'EQUAL)) ; (DREI-LISP-SYNTAX::%FORM-AFTER-CACHE :ACCESSOR ; DREI-LISP-SYNTAX::FORM-AFTER-CACHE :INITFORM ; (MAKE-HASH-TABLE :TEST #'EQUAL)) ; (DREI-LISP-SYNTAX::%FORM-AROUND-CACHE :ACCESSOR ; DREI-LISP-SYNTAX::FORM-AROUND-CACHE :INITFORM ; (MAKE-HASH-TABLE :TEST #'EQUAL))) ; (:NAME "Lisp") (:PATHNAME-TYPES "lisp" "lsp" "cl") ; (:COMMAND-TABLE DREI-LISP-SYNTAX:LISP-TABLE) ; (:DEFAULT-INITARGS :INITIAL-STATE ; DREI-LISP-SYNTAX::|initial-state |)) ; --> PROGN CLIM-LISP-PATCH:DEFCLASS PROGN DEFCLASS PROGN EVAL-WHEN LET LET ; ==> ; #'(LAMBDA () ; (DECLARE (OPTIMIZE (SB-C:STORE-COVERAGE-DATA 0))) ; DREI-LISP-SYNTAX::|initial-state |) ; ; caught WARNING: ; undefined variable: DREI-LISP-SYNTAX::|initial-state | ; ; compilation unit finished ; Undefined functions: ; DREI-SYNTAX::LOW-MARK CLIM:MEDIUM CLIM-INTERNALS::WITH-MEDIUM-OPTIONS ; Undefined variables: ; CLIM-INTERNALS::*3D-DARK-COLOR* CLIM-INTERNALS::*3D-LIGHT-COLOR* CLIM-INTERNALS::*ACTIVE-HISTORY-TYPE* CLIM-INTERNALS::*BACKGROUND-MESSAGE-MINIMUM-LIFETIME* CLIM-INTERNALS::*COMMAND-PARSER-TABLE* DREI:*MAXIMUM-CHUNK-SIZE* CLIM:*POINTER-DOCUMENTATION-OUTPUT* CLIM-POSTSCRIPT::*TRANSFORMATION* CLIM:*UNSUPPLIED-ARGUMENT-MARKER* CLIM:+EVERYWHERE+ CLIM:+NOWHERE+ DREI-LISP-SYNTAX::|initial-state | ; caught 15 WARNING conditions ; printed 951 notes ("SB-GROVEL" "SB-BSD-SOCKETS")