Help needed with LISP syntax

[Thom Ivancso]

Hello all,

I have here two sub-functions that I have used in the past in writing LISP routines in OSDM, this code worked fine running OSDM 11.60 on HP UNIX, but for the life of me it will not run under windows and OSDM 12.01C.

I keep getting the error *LISP-ACTION-EVENT* is unbound.


(defun get-gport-name ()
(let* ((name (uib::widget-name *lisp-action-widget*))
(vp (format nil "~A" (first (sd-string-split name "_"))))
)
vp
)
)

(defun get-gport-pick ()
(let* ((event *lisp-action-event*))
(format nil "(make-gpntwc-from-dcvp ~A ~A ~S)"
(hclx:get-XButtonEvent-x event)
(hclx:get-XButtonEvent-y event) (get-gport-name)
)
)
)




If someone could take a look at these and tell me if the syntax is still okay or has something been changed in recent upgrades in the OSDM source code that would prohibit these from working.

Cheers
Thom

[Markus]

Hi Thom,

*LISP-ACTION-EVENT* is not supported on Windows. Please use the supported IKit function sd-get-last-vp-pick instead.

Cheers,
Markus

[Thom Ivancso]

Hello Markus,


Thanks for the heads up on that.

Is there a listing of what commands and syntax is not supported on Windows?


Cheers
Thom

[Markus]

Hello Thom,


Is there a listing of what commands and syntax is not supported on Windows?


the code you posted was never supported! This code is pure internal code and works on UNIX only. So, please refrain from posting internal code to pubilc user forums!

The only supported API is the LISP Integration Kit. Here, every function is documented and marked if it is supported on one platform only. Other documentation does not exist - at least not for customers.


Cheers,
Markus

[Thom Ivancso]

Hello Markus,


Thanks again.


Cheers
Thom