clsqlでjoinをやってみよう、と思って、こんなコードを書いて、、、 def-view-classで複合主キーってどうやって指定するの？というところで詰まる。 (require :clsql) ;;1:1 (clsql:def-view-class test1 () ((test1-id :accessor test1-id :initarg :test1-…

clsqlをいじってみる。 (require :clsql) ;;クエリ (clsql-sys:with-database (con '("localhost" "xxx" "xxx" nil) :if-exists :old :database-type :postgresql-socket) (pprint (clsql-sys:query "select * from tb0" :database con))) ;;prepared statem…

mac+sbcl+weblocksの環境ができたので、weblocksを試す。 weblocksはclbuildで入れた。 slimeを起動して、以下のソースをC-c C- (eval-when (:compile-toplevel :load-toplevel :execute) (require :weblocks) (require :clsql)) (defpackage #:person (:use…