Dmitri Hrapof <[email protected]> writes:
> Of course, but (typep obj 'funcallable-standard-object) didn't work
> for me on Clozure Common Lisp Version 1.2-r11583M (LinuxPPC32),
> complaining about WEBLOCKS::FUNCALLABLE-STANDARD-OBJECT, while (typep
> obj 'c2mop:funcallable-standard-object) did the trick.
weblocks> (symbol-package 'funcallable-standard-object)
#<Package "CCL">
weblocks> (lisp-implementation-version)
"Version 1.3-dev-r (Linuxx8664)" ;heh bzr-svn
Your loading environment is broken.
> BTW, not-working CRUD example from ucw-presentations provides (also
> not-working) search facility. Is there anything "prepackaged" for
> weblocks?
No, but on-query is surprisingly easy to use:
(defun needle->sql-like (needle)
"Convert string NEEDLE to the likeness of a SQL LIKE expression."
(format nil "%~A%"
(cl-ppcre:regex-replace-all "(%|_)" needle "\\\\\\1")))
(defun search-results (substr)
"Answer a search results widget."
(make-instance 'datagrid
:data-class 'blobby-thing
:on-query (list :where [uplike (needle->sql-like substr) [details]])))
And you get pagination and user-settable sorting for free.
--
Sorry but you say Nibiru is a Hoax? Doesnt Exist? So maybe The
Sumerian people doesnt exist also! --Anonymous by way of SkI
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
