Fw: [postmodern-devel] query with keyword :on

[Jens Teich]

 Marijn Haverbeke wrote:
> Hello Jens  (and other lispworks users),
> 
> I finally got a chance to do some coding, and I pushed a patch that
> should fix this problem -- could you try it out and tell me if it
> works at all. The only lisp interpreter I had available was Franz'
> telnet repl, so testing has been minimal, but the changes weren't
> that drastic, so there is a not unreasonable chance that they are
> correct. 
 
 First short test looks very good!
 
 Thanks
 Jens
 
 ------------
 
 WEBCAT 15 > (with-db
              (postmodern:sql
               (:select 'pmw.wert
                :from (:as 'projekt-merkmale-werte 'pmw)
                :inner-join (:as 'projekt-elemente       'pe)
                :on         (:= 'pmw.guid-produkt 'pe.guid-objekt)
                :where (:and
                        (:= 'pe.guid "rzt732819vlurc5827955302wwxz8b")
                        (:= 'pmw.merkmal-id "MID1008519")
                        (:= 'pmw.lang-id "de")))))
 "(SELECT pmw.wert FROM projekt_merkmale_werte AS pmw INNER JOIN
 projekt_elemente AS pe ON (pmw.guid_produkt = pe.guid_objekt) WHERE
 ((pe.guid = 'rzt732819vlurc5827955302wwxz8b') and (pmw.merkmal_id =
 'MID1008519') and (pmw.lang_id = 'de')))"   
 
 WEBCAT 16 > (with-db
              (postmodern:query
               (:select 'pmw.wert
                :from (:as 'projekt-merkmale-werte 'pmw)
                :inner-join (:as 'projekt-elemente       'pe)
                :on         (:= 'pmw.guid-produkt 'pe.guid-objekt)
                :where (:and
                        (:= 'pe.guid "rzt732819vlurc5827955302wwxz8b")
                        (:= 'pmw.merkmal-id "MID1008519")
                        (:= 'pmw.lang-id "de")))))
 NIL
 
 WEBCAT 17 > (with-db
              (postmodern:query
               (:select 'pmw.wert
                :from (:as 'projekt-merkmale-werte 'pmw)
                :inner-join (:as 'projekt-elemente       'pe)
                :on         (:= 'pmw.guid-produkt 'pe.guid-objekt)
                :where (:and
                        (:= 'pmw.merkmal-id "MID1008519")
                        (:= 'pmw.lang-id "de")))))
 (("30 N")
  ("30 N")
  ("5 N")
  ("5 N")
  ("30 N")
  ("5 N")
  ("5 N")
  ("30 N")
  (" 5 N") .....