This works great:
(sql (:create-table enemy
((name :type string :primary-key t)
(age :type integer)
(address :type (or db-null string)
:references (important-addresses :cascade :cascade))
(fatal-weakness :type text :default "None")
(identifying-color :type (string 20) :unique t))
(:foreign-key (identifying-color) (colors name))
(:constraint enemy-age-check :check (:> 'age 12))
))
This not so much:
(sql (:alter-table enemy
:add (:foreign-key (identifying-color) (colors name)))))
It is trying to evaluate enemy and if I keyword that run identifying colors.
[Yes I am about to hit the pomo list after upgrading my pomo stack and
checking the archives]
kt
On Mar 30, 12:54 pm, Kenneth Tilton <·········@gmail.com> wrote:
> This works great:
>
> (sql (:create-table enemy
> ((name :type string :primary-key t)
> (age :type integer)
> (address :type (or db-null string)
> :references (important-addresses :cascade :cascade))
> (fatal-weakness :type text :default "None")
> (identifying-color :type (string 20) :unique t))
> (:foreign-key (identifying-color) (colors name))
> (:constraint enemy-age-check :check (:> 'age 12))
> ))
>
> This not so much:
>
> (sql (:alter-table enemy
> :add (:foreign-key (identifying-color) (colors name)))))
>
> It is trying to evaluate enemy and if I keyword that run identifying colors.
>
> [Yes I am about to hit the pomo list after upgrading my pomo stack and
> checking the archives]
>
> kt
i think:
SW-DB> (s-sql:sql (:alter-table enemy
:add :constraint enemy-age-
check :check (:> 'age 12)))
"ALTER TABLE enemy ADD CONSTRAINT enemy_age_check CHECK (age > 12)"
From: Kenneth Tilton
Subject: Re: Singin the Postmodern S-Sql :alter-table Blues
Date:
Message-ID: <49d0f580$0$5898$607ed4bc@cv.net>
Lars Rune N�stdal wrote:
> On Mar 30, 12:54 pm, Kenneth Tilton <·········@gmail.com> wrote:
>> This works great:
>>
>> (sql (:create-table enemy
>> ((name :type string :primary-key t)
>> (age :type integer)
>> (address :type (or db-null string)
>> :references (important-addresses :cascade :cascade))
>> (fatal-weakness :type text :default "None")
>> (identifying-color :type (string 20) :unique t))
>> (:foreign-key (identifying-color) (colors name))
>> (:constraint enemy-age-check :check (:> 'age 12))
>> ))
>>
>> This not so much:
>>
>> (sql (:alter-table enemy
>> :add (:foreign-key (identifying-color) (colors name)))))
>>
>> It is trying to evaluate enemy and if I keyword that run identifying colors.
>>
>> [Yes I am about to hit the pomo list after upgrading my pomo stack and
>> checking the archives]
>>
>> kt
>
> i think:
>
> SW-DB> (s-sql:sql (:alter-table enemy
> :add :constraint enemy-age-
> check :check (:> 'age 12)))
> "ALTER TABLE enemy ADD CONSTRAINT enemy_age_check CHECK (age > 12)"
Thx, Lars. I just needed to upgrade my pomo stack, :alter-table was new.
Then you are right, I had the syntax wrong.
Whassup with SymbolicWeb? Did I see the group is gone?
kt
On Mar 30, 6:38 pm, Kenneth Tilton <·········@gmail.com> wrote:
> Lars Rune Nøstdal wrote:
> > On Mar 30, 12:54 pm, Kenneth Tilton <·········@gmail.com> wrote:
> >> This works great:
>
> >> (sql (:create-table enemy
> >> ((name :type string :primary-key t)
> >> (age :type integer)
> >> (address :type (or db-null string)
> >> :references (important-addresses :cascade :cascade))
> >> (fatal-weakness :type text :default "None")
> >> (identifying-color :type (string 20) :unique t))
> >> (:foreign-key (identifying-color) (colors name))
> >> (:constraint enemy-age-check :check (:> 'age 12))
> >> ))
>
> >> This not so much:
>
> >> (sql (:alter-table enemy
> >> :add (:foreign-key (identifying-color) (colors name)))))
>
> >> It is trying to evaluate enemy and if I keyword that run identifying colors.
>
> >> [Yes I am about to hit the pomo list after upgrading my pomo stack and
> >> checking the archives]
>
> >> kt
>
> > i think:
>
> > SW-DB> (s-sql:sql (:alter-table enemy
> > :add :constraint enemy-age-
> > check :check (:> 'age 12)))
> > "ALTER TABLE enemy ADD CONSTRAINT enemy_age_check CHECK (age > 12)"
>
> Thx, Lars. I just needed to upgrade my pomo stack, :alter-table was new.
> Then you are right, I had the syntax wrong.
>
> Whassup with SymbolicWeb? Did I see the group is gone?
>
> kt
Yes. It's staying closed until I figure out a way to create a better
and more steady income based on it.
That, or I'm currently screwed, so screw you too. Lisp is worse than
meth. :}
Lars Rune N�stdal wrote:
> On Mar 30, 6:38 pm, Kenneth Tilton <·········@gmail.com> wrote:
>> Lars Rune N�stdal wrote:
>>> On Mar 30, 12:54 pm, Kenneth Tilton <·········@gmail.com> wrote:
>>>> This works great:
>>>> (sql (:create-table enemy
>>>> ((name :type string :primary-key t)
>>>> (age :type integer)
>>>> (address :type (or db-null string)
>>>> :references (important-addresses :cascade :cascade))
>>>> (fatal-weakness :type text :default "None")
>>>> (identifying-color :type (string 20) :unique t))
>>>> (:foreign-key (identifying-color) (colors name))
>>>> (:constraint enemy-age-check :check (:> 'age 12))
>>>> ))
>>>> This not so much:
>>>> (sql (:alter-table enemy
>>>> :add (:foreign-key (identifying-color) (colors name)))))
>>>> It is trying to evaluate enemy and if I keyword that run identifying colors.
>>>> [Yes I am about to hit the pomo list after upgrading my pomo stack and
>>>> checking the archives]
>>>> kt
>>> i think:
>>> SW-DB> (s-sql:sql (:alter-table enemy
>>> :add :constraint enemy-age-
>>> check :check (:> 'age 12)))
>>> "ALTER TABLE enemy ADD CONSTRAINT enemy_age_check CHECK (age > 12)"
>> Thx, Lars. I just needed to upgrade my pomo stack, :alter-table was new.
>> Then you are right, I had the syntax wrong.
>>
>> Whassup with SymbolicWeb? Did I see the group is gone?
>>
>> kt
>
> Yes. It's staying closed until I figure out a way to create a better
> and more steady income based on it.
>
> That, or I'm currently screwed, so screw you too. Lisp is worse than
> meth. :}
Income? If you expect more than minimum wage Mr. Stallman has some bad
news for you. It does involve screwing, yes, but more in the getting
than in the doing.