[Bese-devel] two parse-integer fixes

[Aleksandar Bakic]

diff -rN old-ucw_dev/src/components/presentations.lisp
new-ucw_dev/src/components/presentations.lisp
565c565
<       (setf (presentation-slot-value slot instance) (parse-integer
value))))))---
>       (setf (presentation-slot-value slot instance) i)))))
620,623c620,622
<          (setf (,accessor-name slot instance)
<                (if (string= "" value)
<                    nil
<                    (parse-integer value))))
---
>        (let ((i (parse-integer value :junk-allowed t)))
>          (when i
>            (setf (,accessor-name slot instance) i))))



		
__________________________________ 
Yahoo! Mail - PC Magazine Editors' Choice 2005 
http://mail.yahoo.com