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")
