Re: [femlisp-user] getting errors on SuSE8.2

[osman]

On Monday 15 December 2003 04:06, you wrote:
>
> Does OpenDX work using the command "dx" from the shell on which femlisp is
> started?  The configuration of the DX via shell variables is not yet
> correctly taken into account in the current Femlisp version.  A patch in
> "femlisp:src;femlisp-config.lisp" should look about as follows:
>
> (defparameter *dx-path*
>   (or
>    #+cmu (let ((string (cdr (assoc :OPENDX_BINARY
> ext:*environment-list*)))) (when string
>            (probe-file (pathname string))))
>    (probe-file (pathname "path:dx")))
>   "The path to the Data Explorer executable.")
>
> Then you can set the environment variable OPENDX_BINARY in the shell where
> Femlisp is started.  (Alternatively, you could set *dx-path* in
> "femlisp:src;femlisp-config.lisp" to whatever you want.)
>
> If this does not help: What does backtrace say (type "backtrace" or "ba" at
> the debugger prompt)?
>

Nicolas,
This is what I get when I type "ba" :  I set  in femlisp-config.lisp: 

(defparameter *dx-path* (pathname "/usr/local/bin/dx")
  "The path to the Data Explorer executable.")


0: (UNIX::SIGPIPE-HANDLER #<#1=unused-arg> #<#1#> #.(SYSTEM:INT-SAP 
#x3FFFC7E0))
1: (UNIX::SIGPIPE-HANDLER 3
                          #<#1=unused-arg>
                          #<#1#>
                          #.(SYSTEM:INT-SAP #x3FFFC7E0))[:EXTERNAL]
2: ("Foreign function call land")
3: ("Foreign function call land")
4: ("Foreign function call land")
5: ("Foreign function call land")
6: ("Foreign function call land")
7: (LISP::DO-OUTPUT #<Stream for descriptor 6>
                    #.(SYSTEM:INT-SAP #x4001A000)
                    0
                    524
                    ...)
8: (LISP::FLUSH-OUTPUT-BUFFER #<Stream for descriptor 6>)
9: (FORCE-OUTPUT #<Stream for descriptor 6>)
10: ((METHOD GRAPHICS:GRAPHIC-OUTPUT NIL (T T)) #<#1=unused-arg> #<#1#>
     #<MESH:<SKELETON> {4826FD35}> :DX ...)
11: ("LAMBDA (PCL::.KEYARGS-START. PCL::.VALID-KEYS. #:G3263 #:G3264 #:G3265)"
     #<#1=unused-arg> #<#1#> #<MESH:<SKELETON> {4826FD35}> :DX ...)
12: ("DEFUN REGULAR-REFINEMENT-DEMO")
13: (FEMLISP-DEMO::SHOW-DEMO #<FEMLISP-DEMO::<DEMO> {4A34CD25}>)
14: (FEMLISP-DEMO::SHOW-DEMO #<FEMLISP-DEMO::<DEMO> {4A2DAF5D}>)
15: (FEMLISP-DEMO::SHOW-DEMO #<FEMLISP-DEMO::<DEMO> {481768C5}>)
16: (FEMLISP-DEMO:DEMO #<FEMLISP-DEMO::<DEMO> {481768C5}>)
17: (INTERACTIVE-EVAL (FEMLISP-DEMO:DEMO))
18: (LISP::%TOP-LEVEL)
19: ((LABELS LISP::RESTART-LISP
       SAVE-LISP))