[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Problem in running express-windows !!
- To: express-windows@atc
- Subject: Problem in running express-windows !!
- From: Ashok Kumar Kamshatti <ashok@wiliki.eng.hawaii.edu>
- Date: Fri, 25 May 90 14:13 PDT
- Cc: express-windows-request@atc
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