[Bese-devel] a minor typo fix

Aleksandar Bakic a_bakic at yahoo.com
Sat Aug 27 22:42:27 UTC 2005


This seems to be one correct way:

diff -rN old-ucw_dev/src/yaclml/ucw-tags.lisp
new-ucw_dev/src/yaclml/ucw-tags.lisp
41c41
<                           (set-action-parameter
---
>                           (set-action-parameter this.form
62,63c62,63
<           `(defun set-action-paramater (value)
<              (setf (slot-value (aref this.form ,',+action-parameter-name+)
'value)
---
>           `(defun set-action-parameter (form value)
>              (setf (slot-value (slot-value form ,(intern
+action-parameter-name+)) 'value)
102c102,103
<                                        (set-action-parameter
,(register-action---
>                                        (set-action-parameter this.form
>                                                            ,(register-action
166c167
<                            (set-action-parameter ,(make-new-action
(context.current-frame *context*)
---
>                            (set-action-parameter this.form ,(make-new-action
(context.current-frame *context*)

Alex


		
__________________________________ 
Yahoo! Mail 
Stay connected, organized, and protected. Take the tour: 
http://tour.mail.yahoo.com/mailtour.html 




More information about the bese-devel mailing list