[mcclim-devel] some (perhaps minor) problems compiling McCLIM on MAC OS/X 10.6.4

Kevin Smith k2msmith at gmail.com
Tue Aug 10 19:05:38 UTC 2010


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





More information about the mcclim-devel mailing list