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/