Hi Leslie, "Leslie P. Polzer" <[email protected]> writes:
> Hi Andrea, > > good to have you back here! Thank you Leslie! Very pleased to hear you again :-) > Let's make that code smart so it will pass integers to dataseq-select- > item > when the parse was successful. I will be happy to apply this then. Attached you'll find my attempt to do that, but I'm really puzzled because with this patch applied, weblocks doesn't compile with the latest version of SBCL but _do_ compile with latest CCL. I really don't know how to fix this. I attached it anyway so maybe someone can easily see where is the problem. Thank you again ;-) Bye, Andrea. -- Software vuol dire conoscenza! Per questo dev'essere un bene comune! Usa software libero e contribisci a cambiare il mondo: http://www.softwarelibero.it http://www.fsf.org http://www.gnu.org
-- You received this message because you are subscribed to the Google Groups "weblocks" group. To post to this group, send email to [email protected]. To unsubscribe from this group, send email to [email protected]. For more options, visit this group at http://groups.google.com/group/weblocks?hl=en.
# HG changeset patch # User Andrea Russo <[email protected]> # Date 1309281119 -7200 # Node ID a09f4edc48922689e84b615afad82d8ff2348494 # Parent dde87661f2512dce4b5fc51ca1b9bac308102722 Don't assume tha object ids are always integers in ``dataseq-operations-action''. diff -r dde87661f251 -r a09f4edc4892 src/widgets/dataseq/operations-action.lisp --- a/src/widgets/dataseq/operations-action.lisp Mon Jun 27 16:09:43 2011 +0200 +++ b/src/widgets/dataseq/operations-action.lisp Tue Jun 28 19:11:59 2011 +0200 @@ -12,7 +12,9 @@ (dataseq-clear-selection obj) (loop for i in (request-parameters) when (string-starts-with (car i) "item-") - do (dataseq-select-item obj (parse-integer (substring (car i) 5)))) + do (let ((value (substring (car i) 5))) + (dataseq-select-item obj (handler-case (parse-integer value) + (parse-error () value))))) (loop for i in (append (dataseq-item-ops obj) (dataseq-common-ops obj))
