Custom Query (1030 matches)

Following code cannot load after compile:

(in-package :cl-user)
(eval-when (:compile-toplevel :load-toplevel :execute)
  (unless (find-package ':portable-threads)
    (make-package ':portable-threads
                  :use '(:common-lisp))))

(in-package :portable-threads)

binghe@binghe-mac:~/Lisp/src$ ccl64
; loading system definition from ASDF:CL-FAD;cl-fad.asd.newest into #<Package "ASDF0">
; registering #<SYSTEM CL-FAD #x300040F2D09D> as CL-FAD
Welcome to Clozure Common Lisp Version 1.2-r10475M-trunk  (DarwinX8664)!
? (compile-file "ccl-eval-when")
#P"/Users/binghe/Lisp/src/ccl-eval-when.dx64fsl"
NIL
NIL
? (load "ccl-eval-when")
> Error: Package name "PORTABLE-THREADS" is already in use.
> While executing: MAKE-PACKAGE, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :b
 (65A778) : 0 (MAKE-PACKAGE :PORTABLE-THREADS [...]) 277
 (65A810) : 1 (FUNCALL #'#<CCL::$FASL-LFUNCALL> #<CCL::FASLSTATE #x76B10D>) 77
 (65A830) : 2 (%FASLOAD "/Users/binghe/Lisp/src/ccl-eval-when.dx64fsl"
                        [...]) 1285
 (65A8D8) : 3 (%LOAD #P"/Users/binghe/Lisp/src/ccl-eval-when.dx64fsl"
                     NIL
                     NIL
                     :ERROR
                     :DEFAULT) 2381
 (65AA40) : 4 (LOAD "ccl-eval-when" [...]) 1037
 (65AAE0) : 5 (CALL-CHECK-REGS 'LOAD [...]) 229
 (65AB18) : 6 (TOPLEVEL-EVAL '(LOAD "ccl-eval-when") [...]) 733
 (65ABB8) : 7 (READ-LOOP [...]) 1837
 (65ADD8) : 8 (TOPLEVEL-LOOP) 125
 (65AE08) : 9 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 101
 (65AE20) : 10 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 645
 (65AEB8) : 11 (RUN-PROCESS-INITIAL-FORM
                 #<TTY-LISTENER listener(1) [Active] #x300040DB301D>
                 '(#<COMPILED-LEXICAL-CLOSURE # #x300040DB292F>)) 717
 (65AF48) : 12 (FUNCALL #'#<(:INTERNAL CCL::%PROCESS-PRESET-INTERNAL)>
                        #<TTY-LISTENER listener(1) [Active] #x300040DB301D>
                        '(#<COMPILED-LEXICAL-CLOSURE # #x300040DB292F>)) 389
 (65AF98) : 13 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 293
1 > :POP

I believe that "small" means "32 bits or less".

One example involves the classic Carbon function FindWindow, which takes a Point (a pair of 16-bit integers) and a pointer as arguments. The Point needs to be passed in a single word on the stack; we incorrectly pass the address of the Point.

(I think that I know how to fix this, just opening the ticket for the record.)

Loading a file with userinit disabled in Version 1.2-r10579M-trunk (Linuxx8664) with the following forms:

(defclass my-generic-function () ()
  (:metaclass funcallable-standard-class))

(format t "In a toplevel form: ~S~%"
          (typep (make-instance 'my-generic-function) 'my-generic-function))

(let ()
  (format t "In a let: ~S~%"
          (typep (make-instance 'my-generic-function) 'my-generic-function)))

(funcall (compile nil '(lambda ()
                         (format t "In a compiled closure: ~S~%"
                                 (typep (make-instance 'my-generic-function)
                                        'my-generic-function)))))

Gives T, NIL, and NIL respectively, where I would expect all T.

As far as I can tell, this only happens for user-defined classes whose metaclass is funcallable-standard-class, whether or not subclassing standard-generic-function.