[Openmcl-devel] ns:ns-tracking-area not present in 32bit CCL

[Raffael Cavallaro]

On Jun 8, 2009, at 3:29 PM, Ron Garret wrote:

> Thanks!  Updated version enclosed. This has been tested in 32-bit  
> CCL, and should now work on Tiger as well.

Thanks for this Ron; it's a really cool demo!

It works fine in CCL64, but under CCL32 (both the latest 12235 trunk  
version) it errors as below. I suppose this matters less and less with  
Snow Leopard approaching though. From what I can tell, it appears that  
the 32-bit IDE is having problems with your define-class defclass  
wrapper macro in the form (define-class window …

?
 > Error: Invalid type specifier: 100 .
 > While executing: CCL::VALUES-SPECIFIER-TYPE-INTERNAL, in process  
Listener(6).
 > Type cmd-. to abort, cmd-\ for a list of available restarts.
 > Type :? for other options.
1 > :b
  (3FD8C7C) : 0 (VALUES-SPECIFIER-TYPE-INTERNAL 100 NIL) 1375
  (3FD8C98) : 1 (FUNCALL #'#<CCL::VALUES-SPECIFIER-TYPE> 100 NIL) 1407
  (3FD8CD8) : 2 (SPECIFIER-TYPE 100 NIL) 55
  (3FD8CE8) : 3 (%TYPEP X0 100) 71
  (3FD8CF8) : 4 (TYPEP X0 100 NIL) 263
  (3FD8D10) : 5 (FUNCALL #'#<(:INTERNAL DEFINE-CLASS)> (:CV X0 100)) 207
  (3FD8D24) : 6 (FUNCALL #'#<DEFINE-CLASS> (DEFINE-CLASS WINDOW NS- 
WINDOW SUBVIEWS (:CV X0 100) ...) NIL) 879
  (3FD8D60) : 7 (FUNCALL #<Compiled-function DEFINE-CLASS  
Macroexpander #x9243A4E> (DEFINE-CLASS WINDOW NS-WINDOW SUBVIEWS (:CV  
X0 100) ...) NIL) 175
  (3FD8D78) : 8 (MACROEXPAND-1 (DEFINE-CLASS WINDOW NS-WINDOW SUBVIEWS  
(:CV X0 100) ...) NIL) 239
  (3FD8D90) : 9 (CHEAP-EVAL-MACROEXPAND-1 (DEFINE-CLASS WINDOW NS- 
WINDOW SUBVIEWS (:CV X0 100) ...) NIL) 63
  (3FD8DA4) : 10 (CHEAP-EVAL-IN-ENVIRONMENT (DEFINE-CLASS WINDOW NS- 
WINDOW SUBVIEWS (:CV X0 100) ...) NIL) 4295
  (3FD8DB8) : 11 (TOPLEVEL-EVAL (DEFINE-CLASS WINDOW NS-WINDOW  
SUBVIEWS (:CV X0 100) ...) ((*PACKAGE* *LOADING-FILE-SOURCE-FILE*  
GUI::*LOADING-TOPLEVEL-LOCATION*) #<Package "COMMON-LISP-USER"> "/ 
Users/raffaelc/ccl/examples/ccl-raf/draggable.lisp" NIL)) 743
  (3FD8DF8) : 12 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to  
*TERMINAL-IO* #x90A164E> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL- 
IO* #x90A1576> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function  
(:INTERNAL CCL::READ-LOOP) (Non-Global)  #x83856BE>) 1831
  (3FD8F0C) : 13 (TOPLEVEL-LOOP) 71
  (3FD8F14) : 14 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER- 
PROCESS)>) 583
  (3FD8F60) : 15 (RUN-PROCESS-INITIAL-FORM #<COCOA-LISTENER-PROCESS  
Listener(6) [Active] #x90D8266> (#<COMPILED-LEXICAL-CLOSURE #  
#x90D7EC6>)) 671
  (3FD8FA4) : 16 (FUNCALL #'#<(:INTERNAL (CCL::%PROCESS-PRESET- 
INTERNAL (PROCESS)))> #<COCOA-LISTENER-PROCESS Listener(6) [Active]  
#x90D8266> (#<COMPILED-LEXICAL-CLOSURE # #x90D7EC6>)) 335
  (3FD8FCC) : 17 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP- 
FUNCTION)>) 279
1 >


warmest regards,

Ralph

Raffael Cavallaro
raffaelcavallaro at me.com