[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Problem in running express-windows !!



I am having problem in running express-windows.
It is saying undefined variable "MAKE-WINDOW".

Could you Please help me ??  I am sending the dribble-bug output.


dribbling to file "/usr1/users/ashok/ew.fail"
 
LISP-IMPLEMENTATION-TYPE: Allegro CL
LISP-IMPLEMENTATION-VERSION: 3.1.4 [Sun3] (12/1/89)
MACHINE-TYPE: Sun3
MACHINE-VERSION: 
SOFTWARE-TYPE: SunOS
SOFTWARE-VERSION: 
SHORT-SITE-NAME: surya
*features*: (:BIG-ENDIAN :GSGC :M68881 :M68020 :ALLEGRO-V3.1 :FRANZ-INC :EXCL :ALLEGRO :COMMON-LISP :CONFORMING-IEEE :IEEE :FLAVORS :SUN :M68K :SUN3 :UNIX :MULTIPROCESSING :XLIB :GC-CURSOR :CW-X)
*modules*: ("XVARS" "XCW" "CLX" "CLXEXCLDEP" "ADVISE" "TRACE" "MDPROC" "PROCESS" "FOREIGN" "FOREIGN-FUNCTIONS" "SA68881")
PATCH::*XCW-PATCHES*:
 (16 . "scrolling set clipping region correctly")
 (15 . "programmatic iconization with old wm's")
 (14 . "stop-default-handler race condition")
 (13 . "install font error on bad server name")
 (12 . "restart icons and textures")
 (11 . "get-box-region allows full size")
 (10 . "documentation-print in menus can pop-up *p-w*")
 (9 . "rubout-handler ok when stream closed")
 (8 . "default deselect method")
 (7 . "sequential restores ok")
 (6 . "menus handle exposure events")
 (5 . "scrollbar popup and border sanity")
 (4 . "wm-shrink-method")
 (3 . "clip lines correctly")
 (2 . "make k-c-w finish correctly")
 (1 . "window creation stacking order")
trace: $Header: trace.cl,v 1.35 89/07/22 18:56:24 layer Rel $
mdproc: $Header: mdproc.cl,v 1.20 89/07/22 18:56:29 layer Rel $
process: $Header: process.cl,v 1.44 89/08/17 18:45:20 layer Rel $
foreign: $Header: foreign.cl,v 1.49 89/08/28 14:45:00 layer Rel $

NIL 
<cl> (use-package :cw)

T 
<cl> (initialize-common-windows :gc-cursor 't)

; Fast loading /usr/local/lib/cl/code/sigio.fasl.
; Fast loading /usr/local/lib/cl/code/cstructs.fasl.

T 
<cl> (load "/users/ew/clos/pcl.fasl")

; Fast loading /users/ew/clos/pcl.fasl.

T 
<cl> (load "/usr/local/lib/cl/code/clx.fasl")

; Fast loading /usr/local/lib/cl/code/clx.fasl.
; Fast loading /usr/local/lib/cl/code/defsys.fasl.
Error: opening  "/users/ew/clx/socket.o" resulted in error: Permission denied 

[changing package from "USER" to "XLIB"]
[1] <cl> :pop

[changing package from "XLIB" to "USER"]
<cl> (load "/usr/local/lib/cl/code/clx.fasl")

; Fast loading /usr/local/lib/cl/code/clx.fasl.
; Foreign loading /users/ew/clx/socket.o.
; Foreign loading /users/ew/clx/excldep.o.
Warning: No address found for foreign function C-READ-BYTES-INTERRUPTIBLE

T 
<cl> (load "/users/ew/load-ew.lisp")

; Loading /users/ew/load-ew.lisp.
Load CLX?n

Compile CLX?n

Load CLOS?n

Compile CLOS?n

; Loading /users/ew/code/system.lisp.
; Loading /users/ew/code/symbols.lisp.
Load Express Windows?n

Compile Express Windows?y

; Loading /users/ew/code/defsystem.lisp.
; Fast loading /users/ew/code/clx-hacks.fasl.
; Fast loading /users/ew/code/meter.fasl.
; Fast loading /users/ew/code/cl-clos-macros.fasl.
; Fast loading /users/ew/code/fixnum-macros.fasl.
; Fast loading /users/ew/code/x-macros-interface.fasl.
; Fast loading /users/ew/code/fonts.fasl.
; Fast loading /users/ew/code/macros.fasl.
; Fast loading /users/ew/code/x-interface.fasl.
; Fast loading /users/ew/code/read-internal.fasl.
; Fast loading /users/ew/code/quad-trees.fasl.
; Fast loading /users/ew/code/base-presentations.fasl.
; Fast loading /users/ew/code/type.fasl.
; Fast loading /users/ew/code/scrolling.fasl.
; Fast loading /users/ew/code/graphic-primitives.fasl.
; Fast loading /users/ew/code/io-functions.fasl.
; Fast loading /users/ew/code/command-processor.fasl.
; Fast loading /users/ew/code/misc.fasl.
; Fast loading /users/ew/code/memo.fasl.
; Fast loading /users/ew/code/table.fasl.
; Fast loading /users/ew/code/query.fasl.
; Fast loading /users/ew/code/completion.fasl.
; Fast loading /users/ew/code/frames.fasl.
; Fast loading /users/ew/code/input-editor.fasl.
; Fast loading /users/ew/code/proprietary-presentation-types.fasl.
; Fast loading /users/ew/code/presentation-types.fasl.
; Fast loading /users/ew/code/lisp-window.fasl.
; Fast loading /users/ew/code/demos.fasl.
; Fast loading /users/ew/code/sym-comp.fasl.
; Fast loading /users/ew/code/time.fasl.
; Fast loading /users/ew/code/lisp-machine-lisp-compatible.fasl.
; Fast loading /users/ew/code/file-manager.fasl.
; Fast loading /users/ew/code/menu-definer.fasl.
; Fast loading /users/ew/code/processes.fasl.

T 
<cl> (defvar *My-Window* NIL)

*MY-WINDOW* 
<cl> (defun make-my-window ()
  (let ((window-height 250)
    (window-width 250)
    (left-edge 250)
    (top-edge 250))
    (setq *My-Window*
      (make-window 'WINDOW
               :BORDERS 1
               :LEFT left-edge
               :TOP top-edge
               :HEIGHT window-height
               :WIDTH window-width
               :SUPERIOR *Ultimate-Root-Window*))
    (xlib:set-standard-properties
     (window-real-window *My-Window*)  ;;;type XLIB:WINDOW
     :normal-hints
     (xlib:make-wm-size-hints :WIDTH window-width :min-WIDTH window-width
                  :height window-height :min-height window-height
                  :X left-edge :Y top-edge))

    (expose-window *My-Window*)))

MAKE-MY-WINDOW 
<cl> (make-my-window)
Error: attempt to call `MAKE-WINDOW' which is an undefined function.

Restart actions (select using :continue):
 0: prompt for a new function, instead of `MAKE-WINDOW'.
[1c] <cl> (in-package 'simulator :use 'lisp)

#<The SIMULATOR package, 0 internal, 0 external> 
[1c] <cl> (import '(fpcl:defmethod fpcl:defflavor pcl:make-instance)
        'simulator)
Error: Package "FPCL" not found.

Restart actions (select using :continue):
 0: prompt for a new function, instead of `MAKE-WINDOW'.
[2] <cl> :pop
Previous error: attempt to call `MAKE-WINDOW' which is an undefined function.
If continued, prompt for a new function, instead of `MAKE-WINDOW'.
[1c] <cl> (import '(pcl:make-instance)
    'simulator)

T 
[1c] <cl> (import '(ew::formatting-table
       ew::formatting-row ew::formatting-cell
       ew:define-presentation-to-command-translator
       ew:accept ew:present ew:boolean
       ew:define-presentation-type
       ew:define-presentation-translator
       ew:self
       ew:send
       )
    'simulator)

T 
[1c] <cl>  (defun make-my-window ()
  (let ((window-height 250)
    (window-width 250)
    (left-edge 250)
    (top-edge 250))
    (setq *My-Window*
      (make-window 'WINDOW
               :BORDERS 1
               :LEFT left-edge
               :TOP top-edge
               :HEIGHT window-height
               :WIDTH window-width
               :SUPERIOR *Ultimate-Root-Window*))
    (xlib:set-standard-properties
     (window-real-window *My-Window*)  ;;;type XLIB:WINDOW
     :normal-hints
     (xlib:make-wm-size-hints :WIDTH window-width :min-WIDTH window-width
                  :height window-height :min-height window-height
                  :X left-edge :Y top-edge))

    (expose-window *My-Window*)))

MAKE-MY-WINDOW 
[1c] <cl> (make-my-window)
Error: attempt to call `MAKE-WINDOW' which is an undefined function.

Restart actions (select using :continue):
 0: prompt for a new function, instead of `MAKE-WINDOW'.
 1: prompt for a new function, instead of `MAKE-WINDOW'.
[2c] <cl> (dribble)


To: Ashok Kumar Kamshatti <ashok@wiliki.eng.hawaii.edu.ARPANET>
cc: express-windows@atc
Reply-To: todd.kaufmann@NL.CS.CMU.EDU
Subject: Re: Problem in running express-windows !! 
In-Reply-To: Your message of Fri, 25 May 90 11:13:01 -1000.
             <9005252113.AA16046@atc.boeing.com> 
Date: Fri, 25 May 90 15:07 PDT
From: Todd.Kaufmann@NL.CS.CMU.EDU

You missed the package for MAKE-WINDOW.
(find-all-symbols "MAKE-WINDOW") will help you find it.

I use find-all-symbols all the time when I'm stumbling through packages.. try
this alias for your allegro:

(tpl:alias ("fas" :string) (sym-name)
	   (let ((finds (find-all-symbols (string-upcase sym-name))))
	     (format t "~s~%" finds)
	     ;; and return value, so accessible by * at top-level.
	     finds
	     ))

and then you'll see

<cl> :fas make-window
(XLIB::MAKE-WINDOW EXPRESS-WINDOWS:MAKE-WINDOW)

T


good luck,
	-todd