[Bese-devel] two parse-integer fixes
Aleksandar Bakic
a_bakic at yahoo.com
Mon Sep 12 14:51:52 UTC 2005
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
More information about the bese-devel
mailing list