Hello
In LW Personal 4.3.7 I obtain the below errors when in the Editor, on "Calculator function" I select Definitions --> Compile
Previously all code was compiled with Buffer --> Compile
The problem disappears when evaluate (enable-rdnzl-syntax) on Listener. Why?
Debugger pane:
--------------
Error: Illegal setf place "Calculador".
1 (continue) Skip compiling form.
2 Skip compiling #<EDITOR::EDITOR-REGION-STREAM #EDITOR:BUFFER Ejercicio01.lisp 2157B4DC>.
3 (abort) Abort job 16 :(BIND-STANDARD-STREAMS-AND-EXECUTE #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER Background Output> 216868C4> (INTERNAL-DO-WITH-RANDOM-TYPEOUT #<closure (SUBFUNCTION CAPI::WITH-RANDOM-TYPEOUT-FUNC CAPI::FUNCALL-BACKGROUND-JOB-WITH-TYPEOUT-AUX) 2068E242> #<EDITOR::EDITOR-OUTPUT-STREAM #<EDITOR:BUFFER Background Output> 216868C4> #<CAPI:EDITOR-PANE CAPI:EDITOR-PANE 2169D734> #<CAPI:COLLECTOR-PANE LISPWORKS-TOOLS::BACKGROUND-OUTPUT-PANE 21685D9C> T))
Type :b for backtrace, :c <option number> to proceed, or :? for other options
Output pane:
------------
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 1)
;;;*** Warning in CALCULADOR: [%TEXT assumed special
;;;*** Warning in CALCULADOR: FORMA] assumed special
Code:
------
(use-package :rdnzl)
(enable-rdnzl-syntax)
(import-types "System.Windows.Forms"
"Application" "DockStyle" "Form"
"KeyPressEventHandler"
"MessageBox" "MessageBoxButtons" "DialogResult"
"TextBox" "Button" "Label")
(import-types "System.Drawing" "Point")
(import-type "System.EventHandler")
(use-namespace "System.Windows.Forms")
(use-namespace "System.Drawing")
(use-namespace "System")
(defun message-box (text &optional (caption "Mensaje"))
;; check if the "OK" button was pressed
[Equals [MessageBox.Show text caption [$MessageBoxButtons.OKCancel]]
[$DialogResult.OK]]) ;; we want the message box to have "OK" and "Cancel" buttons
(defun crea-control (tipo &optional (x 0) (y 0) (texto ""))
(let ((ctl (new tipo))
(pto (new "Point")))
(setf [%X pto] x
[%Y pto] y
[%Text ctl] texto
[%Name ctl] tipo
[%Location ctl] pto)
ctl))
(defun calculador ()
(let ((forma (new "Form"))
(tb1 (crea-control "TextBox" 0 0))
(tb2 (crea-control "TextBox" 100 0))
(etiq (crea-control "Label" 0 75))
(boton (crea-control "Button" 0 25 "Sume")))
(setf [%Text forma] "Calculador"
[%MaximizeBox forma] nil)
[Add [%Controls forma] tb1]
[Add [%Controls forma] tb2]
[Add [%Controls forma] boton]
[Add [%Controls forma] etiq]
;[+Click boton (new "EventHandler" #'clicked)]
[+Click boton
(new "EventHandler"
#'(lambda (&rest args)
(declare (ignore args))
(setf [%Text etiq]
(format nil "~S" (+ (pn:parse-number [%Text tb1])
(pn:parse-number [%Text tb2]))))))]
forma))
(defun display ()
[Application.Run (calculador)])
(defun run ()
(mp:process-run-function "Calculador" #+:lispworks nil #'display))
Regards
Francisco Rivera
jfrivera56@hotmail.com