Oracle and ACL 8.0
Joel Reymont <[email protected]> Tue, 21 Mar 2006 13:20:39 +0000
| Newsgroups | gmane.lisp.clsql.devel |
|---|---|
| Message-ID | <[email protected]> |
Has anyone seen this error? Everything is fine with SBCL, the view in
question is defined like this:
(in-package :fraud)
(clsql:def-view-class event-real-game-tbl ()
((created-tm
:type date
:db-kind :key
:accessor :created-time)
...
It doesn't see DATE with ACL 8.0 somehow. Any suggestions?
Thanks, Joel
P.S. Fraud is my own package
(OR NULL FRAUD::DATE) is not a valid type specifier
[Condition of type SIMPLE-ERROR]
Backtrace:
0: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR @ #x10c175aa>)
1: (SWANK:SWANK-DEBUGGER-HOOK #<SIMPLE-ERROR @ #x10c175aa>
#<Function SWANK-DEBUGGER-HOOK>)
2: (ERROR SIMPLE-ERROR :FORMAT-CONTROL "~s is not a valid type
specifier" :FORMAT-ARGUMENTS ((OR NULL FRAUD::DATE)))
3: (SUBTYPEP T (OR NULL FRAUD::DATE))
4: ((METHOD ACLMOP:COMPUTE-EFFECTIVE-SLOT-DEFINITION (EXCL::STD-
CLASS T T)) #<CLSQL-SYS::STANDARD-DB-CLASS FRAUD::EVENT-REAL-GAME-
TBL> FRAUD::CREATED-TM (#<CLSQL-SYS::VIEW-CLASS-DIRECT-SLOT-
DEFINITION FRAUD::CREATED-TM @ #x10c15d7a>))
5: ((METHOD ACLMOP:COMPUTE-EFFECTIVE-SLOT-DEFINITION (CLSQL-
SYS::STANDARD-DB-CLASS T T)) #<CLSQL-SYS::STANDARD-DB-CLASS
FRAUD::EVENT-REAL-GAME-TBL> FRAUD::CREATED-TM (#<CLSQL-SYS::VIEW-
CLASS-DIRECT-SLOT-DEFINITION FRAUD::CREATED-TM @ #x10c15d7a>))
6: ((:INTERNAL (:EFFECTIVE-METHOD 3 NIL NIL NIL T) 0) #<CLSQL-
SYS::STANDARD-DB-CLASS FRAUD::EVENT-REAL-GAME-TBL> FRAUD::CREATED-TM
(#<CLSQL-SYS::VIEW-CLASS-DIRECT-SLOT-DEFINITION FRAUD::CREATED-TM @
#x10c15d7a>))
7: (MAPCAR #<Closure (:INTERNAL (METHOD ACLMOP:COMPUTE-SLOTS #) 0)
@ #xbfff7e92> ((CLSQL-SYS::VIEW-DATABASE #<CLSQL-SYS::VIEW-CLASS-
DIRECT-SLOT-DEFINITION CLSQL-SYS::VIEW-DATABASE @ #x10afc482>)
(FRAUD::CREATED-TM #<CLSQL-SYS::VIEW-CLASS-DIRECT-SLOT-DEFINITION
FRAUD::CREATED-TM @ #x10c15d7a>) (FRAUD::EVENT-TYPE #<CLSQL-SYS::VIEW-
CLASS-DIRECT-SLOT-DEFINITION FRAUD::EVENT-TYPE @ #x10c15df2>)
(FRAUD::PLAYER-ID #<CLSQL-SYS::VIEW-CLASS-DIRECT-SLOT-DEFINITION
FRAUD::PLAYER-ID @ #x10c15e6a>) (FRAUD::TABLE-ID #<CLSQL-SYS::VIEW-
CLASS-DIRECT-SLOT-DEFINITION FRAUD::TABLE-ID @ #x10c15ee2>)
(FRAUD::HAND-ID #<CLSQL-SYS::VIEW-CLASS-DIRECT-SLOT-DEFINITION
FRAUD::HAND-ID @ #x10c15f5a>) (FRAUD::TABLE-SSN-ID #<CLSQL-SYS::VIEW-
CLASS-DIRECT-SLOT-DEFINITION FRAUD::TABLE-SSN-ID @ #x10c15fd2>)
(FRAUD::SEAT-NDX #<CLSQL-SYS::VIEW-CLASS-DIRECT-SLOT-DEFINITION
FRAUD::SEAT-NDX @ #x10c1604a>) (FRAUD::EVENT-EXTRA1 #<CLSQL-SYS::VIEW-
CLASS-DIRECT-SLOT-DEFINITION FRAUD::EVENT-EXTRA1 @ #x10c160c2>)
(FRAUD::EVENT-EXTRA2 #<CLSQL-SYS::VIEW-CLASS-DIRECT-SLOT-DEFINITION
FRAUD::EVENT-EXTRA2 @ #x10c1613a>) ...))
8: ((METHOD ACLMOP:COMPUTE-SLOTS (EXCL::STD-CLASS)) #<CLSQL-
SYS::STANDARD-DB-CLASS FRAUD::EVENT-REAL-GAME-TBL>)
9: ((METHOD ACLMOP:COMPUTE-SLOTS (CLSQL-SYS::STANDARD-DB-CLASS))
#<CLSQL-SYS::STANDARD-DB-CLASS FRAUD::EVENT-REAL-GAME-TBL>)
10: ((:INTERNAL (:EFFECTIVE-METHOD 1 NIL NIL NIL T) 0) #<CLSQL-
SYS::STANDARD-DB-CLASS FRAUD::EVENT-REAL-GAME-TBL>)
11: ((METHOD ACLMOP:FINALIZE-INHERITANCE (EXCL::STD-CLASS)) #<CLSQL-
SYS::STANDARD-DB-CLASS FRAUD::EVENT-REAL-GAME-TBL>)
12: ((:INTERNAL (:EFFECTIVE-METHOD 1 NIL NIL NIL NIL) 0) #<CLSQL-
SYS::STANDARD-DB-CLASS FRAUD::EVENT-REAL-GAME-TBL>)
13: ((:TOP-LEVEL-FORM "db.lisp" 1090))
--
http://wagerlabs.com/