<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 10 (filtered)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
span.EmailStyle17
{font-family:Arial;
color:windowtext;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Hello</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>In LW Personal 4.3.7 I obtain the below errors when in the
Editor, on “Calculator function” I select Definitions
--> Compile </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Previously all code was compiled with Buffer </span></font><font
size=2 face=Wingdings><span style='font-size:10.0pt;font-family:Wingdings'>à</span></font><font
size=2 face=Arial><span style='font-size:10.0pt;font-family:Arial'> Compile</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>The problem disappears when evaluate (enable-rdnzl-syntax)
on Listener. Why?</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Debugger pane:</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>--------------</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Error: Illegal setf place "Calculador".</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> 1 (continue) Skip compiling form.</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> 2 Skip compiling #<EDITOR::EDITOR-REGION-STREAM
#<EDITOR:BUFFER Ejercicio01.lisp> 2157B4DC>.</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> 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))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Type :b for backtrace, :c <option number> to
proceed, or :? for other options</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Output pane:</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>------------</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>;;; Safety = 3, Speed = 1, Space = 1, Float = 1,
Interruptible = 0</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>;;; Source level debugging is on </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>;;; Source file recording is on </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>;;; Cross referencing is on</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>; (TOP-LEVEL-FORM 1)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>;;;*** Warning in CALCULADOR: [%TEXT assumed special</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>;;;*** Warning in CALCULADOR: FORMA] assumed special</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Code:</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>------</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>(use-package :rdnzl)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>(enable-rdnzl-syntax)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>(import-types "System.Windows.Forms"</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>
"Application" "DockStyle" "Form" </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>
"KeyPressEventHandler" </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>
"MessageBox" "MessageBoxButtons" "DialogResult" </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>
"TextBox" "Button" "Label")</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>(import-types "System.Drawing" "Point")</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>(import-type "System.EventHandler")</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>(use-namespace "System.Windows.Forms")</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>(use-namespace "System.Drawing")</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>(use-namespace "System")</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>(defun message-box (text &optional (caption "Mensaje"))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> ;; check if the "OK" button was pressed</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> [Equals [MessageBox.Show text caption [$MessageBoxButtons.OKCancel]]</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> [$DialogResult.OK]])
;; we want the message box to have "OK" and "Cancel"
buttons</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'>(defun crea-control (tipo &optional (x 0) (y 0)
(texto ""))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> </span></font><font size=2 face=Arial><span
style='font-size:10.0pt;font-family:Arial'>(let ((ctl (new tipo))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> (pto (new
"Point")))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font><font size=2 face=Arial><span
lang=ES-CR style='font-size:10.0pt;font-family:Arial'>(setf [%X pto] x</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'>
[%Y pto] y</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'>
[%Text ctl] texto</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'>
[%Name ctl] tipo</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'>
[%Location ctl] pto)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> ctl))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'>(defun calculador ()</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> </span></font><font size=2 face=Arial><span
style='font-size:10.0pt;font-family:Arial'>(let ((forma (new "Form"))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> (tb1 (crea-control
"TextBox" 0 0))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font><font
size=2 face=Arial><span lang=ES-CR style='font-size:10.0pt;font-family:Arial'>(tb2
(crea-control "TextBox" 100 0))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> (etiq
(crea-control "Label" 0 75))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> (boton
(crea-control "Button" 0 25 "Sume")))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> (setf [%Text forma]
"Calculador"</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> [%MaximizeBox
forma] nil)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> [Add [%Controls forma] tb1]</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> </span></font><font size=2
face=Arial><span style='font-size:10.0pt;font-family:Arial'>[Add [%Controls
forma] tb2]</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> [Add [%Controls forma] boton]</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> [Add [%Controls forma] etiq]</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> ;[+Click boton (new "EventHandler"
#'clicked)]</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> [+Click boton </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> (new "EventHandler"
</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>
#'(lambda (&rest args)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>
(declare (ignore args))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>
(setf [%Text etiq] </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>
(format nil "~S" (+ (pn:parse-number [%Text tb1])</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>
(pn:parse-number [%Text tb2]))))))]</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font><font
size=2 face=Arial><span lang=ES-CR style='font-size:10.0pt;font-family:Arial'>forma))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'>(defun display ()</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> [Application.Run (calculador)])</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-CR style='font-size:
10.0pt;font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>(defun run ()</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> (mp:process-run-function "Calculador" #+:lispworks
nil #'display))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'>Regards</span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'> </span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'>Francisco Rivera</span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'>jfrivera56@hotmail.com</span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'> </span></font></p>
</div>
</body>
</html>