Custom Query (1030 matches)

as of Cocotron 2845a0e2fa, doing:

(#_NSRunAlertPanel #@"title" #@"message" #@"Yes" #@"No" #@"Maybe")

from the main thread hangs, burning 100% CPU and (apparently) slowly leaking memory.

I haven't yet tried to create an ObjC example that demonstrates this, though it doesn't seem likely that it's CCL-specific.

What I was trying to do is to declare a function inline. That function has a macro inside. Depending on whether I declaim it inline or notinline I get two different outcomes.

Well I assume that we always should get the same outcome (semantically) independent of whether we declaim something inline or notinline.

Here's a demo:

(in-package :cl-user)

(defpackage :test
  (:use :cl))

(in-package :test)

(defmacro foo ()
  `(funcall ',(intern "FOOBAR")))

(defun foobar ()
  42)

(declaim (inline bar))
(defun bar ()
  (foo))

(in-package :cl-user)

(defun busted ()
  (test::bar))

;; Just for information...
(find-symbol "FOOBAR")			; => FOOBAR, :INTERNAL

;; Error!
(busted)

;;; Lets try it with bar not being inlined.
;;; =======================================

(in-package :test)

(declaim (notinline bar))
(defun bar ()
  (foo))

(in-package :cl-user)

(unintern 'foobar)			; GC that

(defun busted ()
  (test::bar))

;; Runs fine this time.
(busted)

;; Just for information...
(find-symbol "FOOBAR")			; => NIL, NIL

I tried to run win32 binary in Windows 7 64-bit. but an exception occurred.

this is log.

$ ./wx86cl
%eax = 0x02403058
%ecx = 0x000005ec
%edx = 0x00000008
%ebx = 0xc0000005
%esp = 0x02402de0
%ebp = 0x02403038
%esi = 0x02403060
%edi = 0x024030b4
%eip = 0x00023c95
%eflags = 0x00010202

%cs = 0x0023
%ds = 0x002b
%ss = 0x002b
%es = 0x002b
%fs = 0x0053
%gs = 0x002b
Exception on foreign stack

Exception occurred while executing foreign code
? for help
[4148] Clozure CL kernel debugger: